excel 2007 从多个工作表复制相同范围并粘贴到当前工作表

Question

vba 新手，我到处查看，尝试了一些已发布的宏并为我修改了它们，但没有任何东西能完美运行，我感到很沮丧，求助。 我需要从多个工作表中复制一系列值并将这些范围粘贴到一张工作表中。 第一张表（总计）将包含宏（作为按钮）。工作表 1 之后的每张工作表都代表一名员工，因此每张工作表的名称就是他们的姓名。随着员工的进出，床单的数量会不时变化。我需要复制的范围对于所有员工都是相同的（N5：V400）。尽管包含该范围内的值的行数会因员工而异。 我还需要复制每个工作表（单元格 Q2）中的员工姓氏，并将其粘贴为粘贴到总计工作表中的每一行的前导单元格。

因此，当宏运行时，每个员工表中的单元格 Q2(Name) 和范围 N5:V500 中的任何值都会粘贴到总计表范围 A3:J5000 中（有两个标题行）。该名称需要粘贴到为每个员工粘贴的每一行的第一个单元格中。

我敢肯定这是一个简单的代码，但话又说回来，我当然没有资格说。 感谢所有可以提供帮助的人。

Answer 1

在这里，试试这个：

久经考验：

Option Explicit
Sub test()

Dim ws As Worksheet, wsTotals As Worksheet
Dim lrow As Long

Set wsTotals = ThisWorkbook.Sheets("Totals")

For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Totals" Then
        lrow = ws.Range("N" & Rows.Count).End(xlUp).Row
        If lrow > 4 Then
            ws.Range("N5:V" & lrow).Copy wsTotals.Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
            ws.Range("Q2").Copy wsTotals.Range(wsTotals.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Address, _
                wsTotals.Range("A" & Rows.Count).End(xlUp).Offset(lrow - 4, 0).Address)
        End If
    End If
Next ws

End Sub

应该这样做。
希望这对你有用。
它正在工作，但没有时间做很多测试。