80%的人看完，學會了一鍵合併多表

案例：將格式相同的多表中的內容合併在第一個工作表。

滑鼠點一下二維碼，瞬間將所有工作表的數據合併過來。

讀者在使用過程中，各種問題都有，現在針對這些問題逐一解答。

1.直接複製二維碼到自己的工作簿，點擊二維碼發現完全沒反應。

二維碼圖片只是一個過程媒介而已，最核心部分是已編寫完整的過程代碼。有了附加的過程代碼，才能真正的合併數據。

2.下載了盧子提供的模板，點擊二維碼，彈出無法運行的警告對話框。

01 使用WPS表格打開

默認情況下，WPS表格是不支持使用VBA，需要裝VBA插件才能使用，收費版支持VBA。

02 使用Excel打開

在開發工具選項卡，單擊宏安全性，宏設置，啟用所有宏，設置完以後，重新打開工作簿。

有部分讀者沒有開發工具這個功能，可以在Excel選項，自定義功能區，勾選開發工具。

前面的準備工作做好了，下面進入正題。

數據源需要滿足的下面3個條件：

01 沒有合併單元格

02 所有表格格式一樣

03 除了要合併的表格，沒有其他多餘的表格

Step 01 按Alt F11組合鍵，插入模塊。

Step 02 在模塊中將下面的VBA代碼，複製粘貼上去即可。

Sub 合併()

Dim sht As Worksheet, arr

For Each sht In Worksheets

If sht.Name <> "匯總" Then

i = sht.Range("b65536").End(xlUp).Row

j = Sheets("匯總").Range("b65536").End(3).Row 1

arr = sht.Range("a2:f" & i)

Sheets("匯總").Range("a" & j).Resize(UBound(arr), 6) = arr

End If

Next

End Sub

Step 03 關閉窗口回到工作表中，並插入一張照片，調整照片大小。

Step 04 右鍵圖片，點擊指定宏。

Step 05 選擇剛剛的宏名，點擊確定。

Step 06 確認工作表的格式統一，並且沒有合併單元格。一切準備工作完成以後，就可以見證神奇的一刻。

Step 07將工作簿另存為啟用宏的工作簿，到這裡就大功告成了。

七項減稅措施，你最期待什麼能降稅？

作者：盧子，清華暢銷書作者，《Excel效率手冊 早做完，不加班》系列叢書創始人，