execl合并同一个工作簿中多个sheet数据

1、每个sheet列数相同

Sub main()
For Each sh In Sheets
    If sh.Name <> "总表" Then
        i = sh.Range("A65536").End(3).Row
        k = Range("A65536").End(3).Row
        sh.Range("A1:O" & i).Copy Range("A" & k + 1)
    End If
Next
End Sub

 

来源：oschina

链接：https://my.oschina.net/u/3962987/blog/3165250