vba - 将数据复制到 Excel 中另一个工作表上的特定单元格区域

Question

您好，我有这段代码，可以很好地将数据复制并附加到单独的工作表中，但是我希望将其粘贴到目标工作表中的特定单元格范围，我该如何修改它？

Sub SummurizeSheets()
    Dim ws As Worksheet

    Application.ScreenUpdating = False
    Sheets("Summary").Activate

    For Each ws In Worksheets
        If ws.Name <> "Summary" Then
            ws.Range("D2:D6, D8:D15").Copy
            Worksheets("Summary").Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
        End If
    Next ws
End Sub

Answer 1

修改此行，使其引用所需的工作表和单元格地址:

Worksheets("Summary").Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)

例如，这会将其放在名为“Another Sheet Name”的工作表中的 F 列中，而不是 C 列中:

Worksheets("Another Sheet Name").Cells(Rows.Count, 6).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)

更新:您已经结合 Offset 方法使用了某种程度的动态范围。如果您无法将值粘贴到所需位置，请告诉我该位置是什么，我可以提供更详细的答案。