> 信息中心

EXCELVBA又来请教了?EXCELVBA又来请教了,谢谢大家

来源:百度知道 编辑:杨美丽
有网友碰到过这样的EXCELVBA又来请教了?EXCELVBA又来请教了,谢谢大家,问题详细内容为:EXCEL VBA 又来请教了,谢谢大家!,我搜你通过互联网收集了相关的一些解决方案,希望对有过相同或者相似问题的网友提供帮助,具体如下:

网友提供的解决方案1:
EXCEL VBA 又来请教了,谢谢大家!
网友提供的解决方案2:
试试行不行: 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
请注意,本站信息均由系统收集自互联网,相关信息仅供参考,医疗等重要信息请以正规途径为最终意见,本站不承担任何责任!

www.wosoni.com false 互联网 http://www.wosoni.com/n/rmpsl/3f4MpSLL1c13z.html report 453 网友提供的解决方案1:EXCEL VBA 又来请教了,谢谢大家!网友提供的解决方案2:试试行不行:Option ExplicitSub 序号()Dim rng As Range, i%, k%, r%, st As Stringk = 1For Each rng In Selectionr = rng.RowIf Rows(r & ":" & r).Hidden = False Thenst = st & rng.Offset(, -1) & "/" & kk = k

相关信息

热门图片

经济金融企业管理法律法规社会民生科学教育降生活体育运动文化艺术电子数码电脑网络娱乐休闲行政地区心理分析医疗卫生