獲取工作簿中的所有的工作表名？?

?

牛閃閃的第一個反應是，這個肯定要用到VBA代碼了。復制以下代碼

Sub a()

For Each sh In Sheets

k = k + 1

Cells(k, 1) = sh.Name

Next

End Sub

試試看看，在“表名”匯總中鼠標右鍵代碼，然后復制代碼到窗體中，然后“運行”窗口。看動圖操作。

那如果看不懂VBA代碼呢？怎么辦呢？有沒有工具操作的方法呢？有。

具體操作如下：

定義一個名稱，然后使用=get.workbook(1)公式。

接著在任意處，選中工作表對應的行數，比如本例為6個工作表，則選中6列，其實選擇多一些行也沒關系。在其中輸入公式“=TRANSPOSE(a)，然后鍵盤后輸入“Ctrl+Shift+Enter”，即可看到所有單元格中已經包含了所有的工作表名。具體操作如下:

此一系列操作是利用get.workbook 函數獲取表名，然后在利用TRANSPOSE函數進行轉置，讓工作表豎排顯示。

工作表獲取后，發現會包含工作薄名字，然后利用分列按鈕進行分離。注意分列前，先把函數進行復制成值的操作。然后利用分列功能進行分列，利用“]”符號進行分列。看動圖操作。