多个Sheet文件合并成一个excel表VBA 宏代码

按 Alt+F11 打开 VBA 编辑器，插入模块，写入遍历所有 Sheet、逐行追加数据的代码，运行即可。

Sub 合并所有Sheet到总表()
    Dim i As Integer
    Dim 总表 As Worksheet
    ' 新建总表
    Set 总表 = Sheets.Add(After:=Sheets(Sheets.Count))
    总表.Name = "合并总表"
    ' 复制表头
    Sheets(1).Rows(1).Copy 总表.Range("A1")
    ' 遍历所有Sheet追加数据
    For i = 1 To Sheets.Count - 1
        Sheets(i).Range("A2").CurrentRegion.Offset(1, 0).Copy _
        总表.Range("A" & 总表.Cells(Rows.Count, 1).End(xlUp).Row + 1)
    Next i
End Sub

标签：excel