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

嗨我有这个代码，它适用于复制和追加数据到一个单独的工作表，但我希望它粘贴到目标工作表中的特定单元格范围，我该如何去弥补它？

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) 

例如，这将它放在名为“另一个工作表名称”的工作表上，而在列F中，而不是列C：

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

更新：您正在使用一个有点dynamic的范围，结合Offset方法。 如果您无法将这些值粘贴到所需的位置，请告诉我该位置是什么，我可以给出更详细的答案。