在整理數據的時候,分方便數據整理我們會按照月份或者日期將數據進行分類整理,如下圖的我們將每個月的數據單獨整理出來。
如上圖:我們有第一個季度1-3月份數據分別整理,現在我們需要將每個月的數據全部彙總到第一季度的工作表中去。上圖只有3個月的數據如果要彙總可以單獨負責粘貼就可以了,但實際工作中我們需要彙總的表格可能有許多,這個時候複製粘貼就會顯得非常耗時沒有效率。
下面我們就來學一下一個5秒就可以彙總全部表格數據的方法。如下圖所示:
操作方法:
1、按ALT+F11,進入代碼編輯窗口,粘貼輸入以下代碼即可;
2、代碼窗口點擊運行代碼將自動彙總數據。
代碼如下:
Sub 多表合併()
Dim i%, rs%, rss%, st As Worksheet, ast As Worksheet
Set zst = Sheet4 '將彙總工作表第一季度定義為變量zst
For i = 1 To 3
Set st = Sheets(i & "月") '將1-3月的工作表定義為變量st
rs = st.UsedRange.Rows.Count '計算1-3月每個表的最後一行
rss = zst.UsedRange.Rows.Count + 1 '計算第一季度工作表的最後一行的下一行
st.Range("A2:B" & rs).Copy Cells(rss, 1) '複製1月、2月、3月每個工作表的數據到第一季度的彙總表中
Cells(rss, 3).Resize(rs - 1) = i & "月" '將1-3月工作表的工作嗎寫入到彙總表對應的月份當中
Next
End Sub
注意點:
對象變量進行賦值時需要用set。
現在你學會如何5秒鐘彙總N多表格數據了嗎?
閱讀更多 Excel函數與VBA實例 的文章