行下列宏代码,可在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列中提取单元格数值。

 

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