EXCEL VBA 又来请教了?
EXCEL VBA 又来请教了,谢谢大家!
试试行不行: 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
答:已形成有效突破;成本23.74元,股价脱离主力成本区,可考虑分批参与。详情>>
答:详情>>
答:网络技术接入技术接入技术也称“最后一公里”技术,表示从最终用户到本地电信服务商之间的一段连接详情>>
答:炒股,买卖期货,开网络店铺。呵呵。。详情>>