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