宏：从两个工作表中复制数据并在第三个中加入

Question

我的 excel 文件，有多个标签。其中一张是“已安排员工访问”，另一张是“已安排 IERWAA 查找”。这两张表具有相同的数据（A 到 J 列），但它们的来源不同（这就是为什么它们位于两个单独的表中）。标题在第 1 行，行数不固定。

我有第三个选项卡“主”，我希望这两个选项卡中的数据相互附加显示。第 1 行将有标题，这对于所有 3 张工作表都是相同的。

我写了一个宏，但它只是复制标题而不是数据。

Dim Sht As Worksheet
For Each Sht In ActiveWorkbook.Worksheets
    If Sht.Name = "Employee Access Arranged" Or Sht.Name = "IERWAA Lookup
    Arranged" Then
    Sht.Select

    LastRow = Range("A6553").End(xlUp).Row
    Range("A2", Cells(LastRow, "J")).Copy
    Sheets("Master").Select
    Range("A6553").End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste

Else
End If
Next Sh

有人可以帮助我如何从两个工作表而不是标题中复制数据。此外，由于行数发生变化，我希望它是动态的以自动拾取最后填充的行。

请注意：这不是另一个问题的重复。我不想只匹配两张纸上的值，而是两张纸上的所有值。此外，这个问题是独一无二的，因为在大多数情况下，最后一列“J”可能没有值，但仍需要复制整列

提前谢谢你。

Answer 1

我头顶的脏话：

dim i as long, lrs as long, lrd as long
for i = 1 to sheets.count
    if not sheets.name="Master" then 
        with sheets(i)
            lrs = .cells(.rows.count,1).end(xlup).row
            .range(.cells(2,"A"),.cells(lrs,"J")).copy
        end with
        with sheets("Master")
            lrd = .cells(.rows.count,1).end(xlup).row
            .cells(lrd+1,1).paste
        end with
    end if
next i

---

编辑1：

清理代码以适用于两个指定的工作表：

Dim i As Worksheet, arr As Variant, lrs As Long, lrd As Long
arr = Array("Employee Access Arranged", "IERWAA Lookup Arranged")
For Each i In Sheets(arr)
    With i
        lrs = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Range(.Cells(2, "A"), .Cells(lrs, "J")).Copy
    End With
    With Sheets("Master")
        lrd = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Range(.Cells(lrd + 1, "A"), .Cells(lrd + 1 + lrs, "J")).PasteSpecial xlValues
    End With
Next i