4

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

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
4

1 回答 1

3

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

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)

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

于 2013-10-21T19:51:36.363 回答