excel 用vba提取所有工作表名
发布网友
发布时间：2022-04-21 02:57
共2个回答
热心网友
时间：2022-06-17 15:01
Sub tst()
Dim nn, i, bb
bb = Worksheets.Count
For i = 1 To bb
nn = nn & Sheets(i).Name & " "
Next i
Sheets(1).Cells(1, 1) = nn
End Sub
热心网友
时间：2022-06-17 15:01
Sub test()
For Each sht In Sheets
shtn = shtn & sht.Name & "、"
Next
Range("A1").Value = Left(shtn, Len(shtn) - 1)
End Sub
