將數據復制到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方法結合使用。 如果您無法將此值粘貼到所需位置，請告訴我該位置是什么，我可以提供更詳細的答案。