之前的專欄內容有介紹過如何批次合併工作表，前提是每張表的表頭要一致。

那麼表頭不一致的情況，如何批次合併？

下圖一個工作簿中，有多張工作表，每個工作表的表頭都不一樣。

不一樣地體現在這兩個地方：

1、表頭欄位數不一樣，有的多有的少；

2、欄位順序不一一樣。

下來看下彙總的效果：

彙總結果會展示所有表格涉及到的列，且相同列內容合併展示，位置正確。

如果要彙總WPS檔案，只需要在選擇工作簿介面、下拉檔案型別選擇“WPS檔案”即可。

模板表已放入專欄庫，需要的小夥伴自行下載，檔案編號【11】開頭。

當然，你要可以複製以下這段程式碼，到Excel中執行。

如何執行VBA程式碼塊詳見專欄首篇文章。

————————-分割線————————-

Sub 合併單個工作簿下的所有不同表頭的工作表（）

On Error Resume Next

Application。ScreenUpdating = False

Application。DisplayAlerts = False

Dim i As Long， j As Long， a As Long， b As Long， t%

Dim Wb As Workbook， Sht As Worksheet

Dim Restrg， datas

Set d = CreateObject（“scripting。dictionary”）

a = 0：b = 2：i = 1：j = 1