實際工作當中我們會碰到按日、按月、按年分類統計，當數據需要匯總一起時，你還在一頁一頁的老（淚）老（流）實（滿）實（面）的復制粘貼嗎？？？

~~T_T|||……,如果真是這樣，真是心里面一萬個草泥馬在狂奔吧。

下面小編告訴你一個簡單又實際的方法，VBA一鍵匯總~~~

點擊開發工具——Visual Basic，輸入以下經文，

Sub combine()

Application.ScreenUpdating =False

For j = 1 ToSheets.Count

If Sheets(j).Name <>ActiveSheet.Name Then

X =Range("A65536").End(xlUp).Row + 1

Sheets(j).UsedRange.Copy Cells(X, 1)

End If

Next

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "當前工作簿下的全部工作表已經合并完畢！", vbInformation, "提示"

End Sub

輸入后點擊F5或者運行-運行子過程或用戶窗體。是不是發現~~~世界原來這么簡單。