VBA使用带有偏移的Range.Copy方法粘贴值

Question

我目前正在使用以下代码使用 Range.Copy 方法使用 Offset 合并具有相同范围的多个工作表中的数据。

我正在尝试仅粘贴值而不是公式。但是，我也得到了导致错误“#REF!”的公式。
谁能帮我正确的语法？
我刚开始学习 VBA 编码。

    For Each ws In Sheets(Array("A", "B", "C", "D", "E"))
    ws.Activate
    bottomD = Range("BC" & Rows.Count).End(xlUp).Row
    Range("BC3:BE" & bottomD).Copy Sheets("Summary").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
    Next ws

Answer 1

您可以直接赋值，无需使用复制/粘贴，也无需选择/激活:

For Each ws In Sheets(Array("A", "B", "C", "D", "E"))
    With ws.Range("BE3", ws.Cells(ws.Rows.Count, "BC").End(xlUp))
        Sheets("Summary").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) _
           .Resize(.Rows.Count, .Columns.Count).value = .value
    End With
Next ws