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

 

 

 

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