将多表信息合并到一张工作表中

可爱小喵喵

Sub 合并多表数据()
    Dim EndRow As Long, DataArr As Variant, ToRng As Range
    Dim ToSht As Worksheet, Sht As Worksheet
    Set ToSht = Worksheets("汇总结果") ' 变量 ToSht 是保存汇总结果的工作表
    For Each Sht In Worksheets
        If Sht.Name <> ToSht.Name Then  ' 排除保存汇总结果的工作表
            EndRow = Sht.Range("A1048576").End(xlUp).Row
            DataArr = Sht.Range("A2:H" & EndRow).Value
            Set ToRng = ToSht.Range("A1048576").End(xlUp).Offset(1, 0)
            ToRng.Resize(UBound(DataArr, 1), 8) = DataArr
        End If
    Next Sht
End Sub

不需要合并的表1，有几个不需要合并的表格，如何让像排除' 排除保存汇总结果的工作表，一样排除合并

shiruiqiang

按照，目前表名

gwjkkkkk

Option Explicit
Sub 合并多表数据()
    Dim wks As Worksheet, iRow&, Rng As Range
   
    [A1].CurrentRegion.Offset(1).Clear
    For Each wks In Sheets
        If wks.Name <> "汇总结果" And InStr(wks.Name, "不需要合并的表") = 0 Then
            With wks.[A1].CurrentRegion
                Set Rng = Intersect(.Offset(), .Offset(1))
            End With
            iRow = Cells(Rows.Count, "A").End(3).Row + 1
            Rng.Copy Cells(iRow, 1)
        End If
    Next
   
    Beep
End Sub

gwjkkkkk

请楼主参考。。。