案例：將格式相同的多表中的內(nèi)容合并在第一個工作表。
鼠標(biāo)點一下二維碼，瞬間將所有工作表的數(shù)據(jù)合并過來。
讀者在使用過程中，各種問題都有，現(xiàn)在針對這些問題逐一解答。
1.直接復(fù)制二維碼到自己的工作簿，點擊二維碼發(fā)現(xiàn)完全沒反應(yīng)。
二維碼圖片只是一個過程媒介而已，最核心部分是已編寫完整的過程代碼。有了附加的過程代碼，才能真正的合并數(shù)據(jù)。
2.下載了盧子提供的模板，點擊二維碼，彈出無法運行的警告對話框。
01 使用WPS表格打開
默認(rèn)情況下，WPS表格是不支持使用VBA，需要裝VBA插件才能使用，收費版支持VBA。
02 使用Excel打開
在開發(fā)工具選項卡，單擊宏安全性，宏設(shè)置，啟用所有宏，設(shè)置完以后，重新打開工作簿。
有部分讀者沒有開發(fā)工具這個功能，可以在Excel選項，自定義功能區(qū)，勾選開發(fā)工具。
前面的準(zhǔn)備工作做好了，下面進入正題。
數(shù)據(jù)源需要滿足的下面3個條件：
01 沒有合并單元格
02 所有表格格式一樣
03 除了要合并的表格，沒有其他多余的表格
Step 01 按Alt+F11組合鍵，插入模塊。
Step 02 在模塊中將下面的VBA代碼，復(fù)制粘貼上去即可。
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 關(guān)閉窗口回到工作表中，并插入一張照片，調(diào)整照片大小。
Step 04 右鍵圖片，點擊指定宏。
Step 05 選擇剛剛的宏名，點擊確定。
Step 06 確認(rèn)工作表的格式統(tǒng)一，并且沒有合并單元格。一切準(zhǔn)備工作完成以后，就可以見證神奇的一刻。
Step 07 將工作簿另存為啟用宏的工作簿，到這里就大功告成了。
源文件：
作者：盧子，清華暢銷書作者，《Excel效率手冊 早做完，不加班》系列叢書創(chuàng)始人，個人公眾號：Excel不加班（ID：Excelbujiaban）
