×

关注微信公众号

如何在一列列出工作薄中的所有表(表名无规律)

2012-7-21 17:56| 发布者: 温强| 查看: 12579| 评论: 0

以下宏将在a列传回所有工作表名称。(很实用)
Sub Maco1()
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next
End Sub

报名咨询 关注微信 在线报名 返回顶部