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列中提取單元格數值。

 

哈哈，在End Sub前面加上一句：
MsgBox "報告長官，任務執行完畢，請指示！"
看看效果怎麼樣