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

?

牛閃閃的第一個(gè)反應(yīng)是，這個(gè)肯定要用到VBA代碼了。復(fù)制以下代碼

Sub a()

For Each sh In Sheets

k = k + 1

Cells(k, 1) = sh.Name

Next

End Sub

試試看看，在“表名”匯總中鼠標(biāo)右鍵代碼，然后復(fù)制代碼到窗體中，然后“運(yùn)行”窗口�？磩�(dòng)圖操作。

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

具體操作如下：

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

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

此一系列操作是利用get.workbook 函數(shù)獲取表名，然后在利用TRANSPOSE函數(shù)進(jìn)行轉(zhuǎn)置，讓工作表豎排顯示。

工作表獲取后，發(fā)現(xiàn)會(huì)包含工作薄名字，然后利用分列按鈕進(jìn)行分離。注意分列前，先把函數(shù)進(jìn)行復(fù)制成值的操作。然后利用分列功能進(jìn)行分列，利用“]”符號(hào)進(jìn)行分列。看動(dòng)圖操作。