1.

一步搞定之程式碼

Sub 提取所有工作表名稱()

for x=1 to sheets.count

cells(x,1)=sheets(x).name

next x

End Sub

如圖，按照順序來就可以啦。

方法/步驟

1.分步閱讀

首先我們開啟一個工作樣表作為例子。

2.

工作表標籤名即是工作表的名稱，在指定啟用當前工作表時，可以使用worksheets（“工作表名稱”）的方法來指定。我們這裡可以使用vba來獲取這個名稱。

3.

我們使用alt+f11組合快捷鍵進入vbe編輯器，插入一個新的模組，並在模組中輸入以下程式碼：

Sub Delete_EmptySheets()

Dim sh As String

sh = Worksheets(1).Name

MsgBox sh

End Sub

4.

執行這段程式碼後，就可以獲得5月工資這個工作表的名稱。並將這個名稱賦予了sh這個變數。我們就可以使用這個變數來指定工作表。

5.

這裡我們需要注意的是，worksheets（）使用工作表名稱來指定工作表的時候字串必須使用“”括住，而使用變數時則不需要，如果用“”括住變數，那麼變數會被識別為字串而出錯。

6.

修改名稱我們可以直接使用worksheets（）.name= 的方式進行改名。修改的名稱如果使用變數賦值，則不需要“”括住，如果是直接輸入，則同樣需要以字串的方式。