爱问 爱问共享资料 医院库

EXCEL VBA 又来请教了?

首页

EXCEL VBA 又来请教了?

EXCEL VBA 又来请教了,谢谢大家!

提交回答

全部答案

    2018-07-30 15:44:25
  • 试试行不行:
    Option Explicit
    Sub 序号()
    Dim rng As Range, i%, k%, r%, st As String
    k = 1
    For Each rng In Selection
    r = rng.Row
    If Rows(r & ":" & r).Hidden = False Then
    st = st & rng.Offset(, -1) & "/" & k
    k = k + 1
    End If
    Next
    With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    .SetText st
    .PutInClipboard
    End With
    End Sub

    婷吖、

    2018-07-30 15:44:25

类似问题

换一换

相关推荐

正在加载...

爱问推荐

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈
关注
爱问

关注爱问微信公众号,开启知识之旅,随时随地了解最新资讯。

确定举报此问题

举报原因(必选):