多sheet页数据合并

问题描述：帮客户处理数据分析问题。需将多个sheet页合并为一个进行数据透视，数据量很大，重复操作多，尽量摆脱手工操作

问题解决：

1、在需要合并的excel文件中新建一个sheet页，在新sheet页右键选择-“查看代码”

2、左侧对象中选择新建的sheet页名称，右侧空白栏输入以下代码

Sub hb() 

Dim bt, i, r, c, n, first As Long 

bt = 1 '表头行数，多行改为对应数值 

Cells.Clear 

For i = 1 To Sheets.Count 

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

        If first = 0 Then 

            c = Sheets(i).Cells(1, Columns.Count).End(xlToLeft).Column 

            Sheets(i).Range("A1").Resize(bt, c).Copy Range("A1") 

            n = bt + 1: first = 1 

        End If 

        r = Sheets(i).Cells(Rows.Count, "A").End(xlUp).Row 

        Sheets(i).Range("A" & bt + 1).Resize(r - 1, c).Copy Range("A" & n) 

        n = n + r - bt 

    End If 

Next 

End Sub

3、执行运行，等待执行结束，建议检查数据量是否正常。