EXCEL工做表名称与单元格数据的相互引用 vba

行下列宏代码,可在A列中从A1开始引用全部该工做簿各工做表的命名:

Sub 引用工做表命名()
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next
End Sub
其中,更改代码“For i = 1 To Sheets.Count”中的i值为2,可从第二个工做表开始引用工做表命名,如同时将代码“Cells(i, 1) = Sheets(i).Name”更改成“Cells(i-1, 1) = Sheets(i).Name”,则从A1开始引用工做表命名。

===================
运行下列宏代码,可引用A列中的各单元格数据命名该工做簿中各工做表:

Sub 引用单元格数据命名工做表()
On Error Resume Next     'ignore
Application.Calculation = xlCalculationManual     'Manual
Dim i%
For i = 1 To Sheets.Count
Sheets(i).Name = Cells(i, 1).Text
Next
Application.Calculation = xlCalculationAutomatic  'Auto
End Sub

其中,更改代码“For i = 1 To Sheets.Count”中的1的值为2,可从第二个工做表开始重命名;更改代码“Sheets(i).Name = Cells(i, 1).Text”中1的值为2,可从B列中提取单元格数值。ide

 

哈哈,在End Sub前面加上一句:
MsgBox "报告长官,任务执行完毕,请指示!"
看看效果怎么样spa

本站公众号
   欢迎关注本站公众号,获取更多信息