excel里多個sheet中的數據合並到一個sheet里面

測試的時候，遇到幾百個sheet的表數據，有的是空表，有的是有數據的，為了看表中的數據，一個個的點擊太費時間和精力，於是網上找了個方法，挺好使的，分享一下。

首先我們新建一個空白的sheet，用來統計所有的sheet數據，然后鼠標放到新建的sheet上，右鍵拉取彈窗，然后選擇“查看代碼”

 

 進入到代碼編輯窗口

 

 

然后在這個窗口輸入如下代碼，執行即可將多個sheet的數據匯總到我們新建的sheet表格里面。

Sub hebing()
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
     If Sheets(i).Name <> ActiveSheet.Name Then
        X = Range("A65536").End(xlUp).Row + 1
        Sheets(i).UsedRange.Copy Cells(X, 1)
      End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "合並匯總數據完畢！", vbinfomation, "成功！"
End Sub

 

 

 

看到了吧，下面就成功了喲