跪求将同一个工作簿中的150多张工作表汇总到一张总表中，复制的工作量太大了

465258423

如题 拜托各位了

465258423

表格的格式几乎完全一样（注意可能有轻微的差异 ）

LangQueS

建议将基础数据都保存在同一个工作表中……

关于使用Excel管理数据的基本方法请参考：
  
★Excel数据管理的一般规律★    http://club.excelhome.net/thread-287461-1-1.html

dajiahaoxinku12

银行的人，口气就是太硬。我什么都没注意，你自己看看吧。
Sub 合并()
    Application.ScreenUpdating = False
    For Each sht In Worksheets
        If sht.Name = "汇总" Then Exit Sub
    Next
    Worksheets.Add.Name = "汇总"
       For Each sht In Worksheets
           With sht
               If .Name <> "目录" And .Name <> "汇总" Then
                   If n > 2 Then
                     .Range("a3:p" & .Cells(Rows.Count, 2).End(3).Row).Copy Worksheets("汇总").Range("a" & Range("a1048576").End(3).Row + 1)
                   Else
                     .Range("a2:p" & .Cells(Rows.Count, 2).End(3).Row).Copy Worksheets("汇总").Range("a1")
                   End If
               End If
           End With
           n = n + 1
        Next
End Sub

dajiahaoxinku12

…………………………………………………………………………………………………………