如果一個(gè)工作簿中有多個(gè)工作表，快速獲取所有工作表名稱有兩種方法比較不錯(cuò)，一種是使用函數(shù)，另一種是用VBA代碼。

使用函數(shù)

使用函數(shù)的話需要提前安裝一個(gè)函數(shù)擴(kuò)展包。如下圖所示，這個(gè)工作簿中有7個(gè)表，需要提取所有工作表名稱。我們?cè)诘谝粡埞ぷ鞅淼腁1單元格輸入公式

=IFERROR(GetSheetName(ROW(A1)),'')

然后向下拖動(dòng)復(fù)制，知道出現(xiàn)空白即停止。

這里IFERROR函數(shù)的作用是屏蔽錯(cuò)誤值，讓結(jié)果更整潔。

這里提到的函數(shù)擴(kuò)展包在方方格子官網(wǎng)可以找到。

使用VBA代碼

我們切換到【開發(fā)工具】菜單，點(diǎn)擊【Visual Basic】打開VBA代碼編輯器，新建一個(gè)模塊，并輸入如下代碼。

Sub GetSheetsName()
Dim sht As Worksheet
Dim i As Integer
i = 1
For Each sht In Sheets
Cells(i, 2) = sht.Name
i = i + 1
Next
End Sub

然后點(diǎn)擊【運(yùn)行】按鈕，即可在B列快速生成所有工作表的名稱。

第一種方法相對(duì)簡(jiǎn)單，對(duì)于初學(xué)者比較友好，但需要提前安裝函數(shù)擴(kuò)展包；第二種方法需要有簡(jiǎn)單的VBA基礎(chǔ)，但也相對(duì)比較簡(jiǎn)單。大家可以根據(jù)自己的情況選擇合適的方法。