怎么快速提取一個excel文件中的所有工作表名？批量打印分離提取工作表名稱，有兩種方法，一種是在用公式法利用，一種是使用VBA代碼基于。現(xiàn)在我們舉實(shí)例只能說明下操作方法。諸如，200以內(nèi)表格，一個工作

怎么快速提取一個excel文件中的所有工作表名？

批量打印分離提取工作表名稱，有兩種方法，一種是在用公式法利用，一種是使用VBA代碼基于。

現(xiàn)在我們舉實(shí)例只能說明下操作方法。

諸如，200以內(nèi)表格，一個工作簿中有多個工作表?，F(xiàn)要批量改提純工作表名稱。

一、公式法

1、定義,定義名稱

點(diǎn)擊菜單的【公式】—【定義,定義名稱】，可以打開【新建項(xiàng)名稱】對話框，在【名稱】處輸入一個定義名稱，本例輸入輸入：sheetname，方便啊后面在工作表中摘錄；在【腳注位置】處輸入：(1)，接著然后點(diǎn)擊【可以確定】。

只能證明：是宏表函數(shù)，沒法就在單元格中不使用，沒法定義名稱后，使用名稱換取結(jié)果。(1)列一當(dāng)前工作好簿中的所有工作表名稱。

2、輸入公式

在第一個工作表的A1單元格然后輸入以下公式：

IFERROR(INDEX(sheetname,ROW(A1)),)

然后公式下拉填充，知道直接出現(xiàn)空白即再繼續(xù)。

說明：公式里的IFERROR函數(shù)的作用是為了被屏蔽錯誤值，讓結(jié)果更清爽整潔。

到這里，看到公式用INDEX函數(shù)其他提取進(jìn)去的工作表名稱是帶工作簿名稱的，我們是需要將工作簿名稱可以去掉，保留工作表名稱就可以。

3、能去掉工作簿名稱

在B1單元格里輸入輸入工作表名稱，輸入輸入完后回車。后再按CTRLE即可飛快再填充下面所有單元格的內(nèi)容。

現(xiàn)在所有工作表名稱就都其他提取不出來了。

二、VBA法

右擊工作表名稱—【欄里點(diǎn)代碼】，先打開VBA代碼編輯器，再輸入以上代碼：

Sub GetSheetName()

DimshtsuchWorksheet

DimiasInteger

i1

whileEachshtintoSheets

Cells(i,1)

ii1

Next

EndSub

然后再再點(diǎn)擊黃色運(yùn)行按鈕，

即可在A列改大小化合所有工作表的名稱。

vba如何實(shí)現(xiàn)自動查找匹配并復(fù)制？

總之你不想麻煩，直接用Vlookup即可，你每次上網(wǎng)下載表格把公式復(fù)制上來，接著向下拉即可。學(xué)VBA要有心理準(zhǔn)備，耐心是最有用

VLOOKUP(A2,E:F,2,0)