开通VIP,畅享免费电子书等14项超值服
首页
好书
留言交流
下载APP
联系客服
2016.03.12
工作簿中有很多个工作表名称,如何快速获取呢?
按快捷键alt+f11,插入一个模块,输入下面的代码,并点击运行按钮。
Sub 表名()
Dim i%
For i = 1 To Sheets.Count
Cells(i, 'd') = Sheets(i).Name
Next
End Sub
微信登录中...请勿关闭此页面