多個(gè)表一鍵合并到總計(jì)表，超省事兒！
操作巨簡(jiǎn)單：
1?? 先確保有個(gè)叫總計(jì)的工作表（就它一個(gè)標(biāo)題行，別多刪少）
2?? 右鍵點(diǎn)總計(jì)那個(gè)表簽 → 選查看代碼
3?? 粘貼下面這段VBA代碼，Ctrl+S保存，然后按F5直接跑！
vba
Sub 工作表合并()
For Each st In Worksheets
If st.Name <> 總計(jì) Then st.UsedRange.Offset(1, 0).Copy Sheets(總計(jì)).End(xlUp).Offset(1, 0)
Next
End Sub
? 效果：所有其他表的數(shù)據(jù)（自動(dòng)跳過(guò)標(biāo)題行）嘩一下全懟進(jìn)總計(jì)里，不重不漏不手抖！
比如你有1月、2月…12月這些分表，只在總計(jì)里跑一次代碼，立馬全匯總完～再也不用復(fù)制粘貼到眼花、Ctrl+V按到手腕疼了！
配圖也放這兒了，照著點(diǎn)就行
（三張圖已加載：代碼界面+合并前后對(duì)比+效果預(yù)覽）
操作巨簡(jiǎn)單：
1?? 先確保有個(gè)叫總計(jì)的工作表（就它一個(gè)標(biāo)題行，別多刪少）
2?? 右鍵點(diǎn)總計(jì)那個(gè)表簽 → 選查看代碼
3?? 粘貼下面這段VBA代碼，Ctrl+S保存，然后按F5直接跑！
vba
Sub 工作表合并()
For Each st In Worksheets
If st.Name <> 總計(jì) Then st.UsedRange.Offset(1, 0).Copy Sheets(總計(jì)).End(xlUp).Offset(1, 0)
Next
End Sub
? 效果：所有其他表的數(shù)據(jù)（自動(dòng)跳過(guò)標(biāo)題行）嘩一下全懟進(jìn)總計(jì)里，不重不漏不手抖！
比如你有1月、2月…12月這些分表，只在總計(jì)里跑一次代碼，立馬全匯總完～再也不用復(fù)制粘貼到眼花、Ctrl+V按到手腕疼了！
配圖也放這兒了，照著點(diǎn)就行
（三張圖已加載：代碼界面+合并前后對(duì)比+效果預(yù)覽）