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方法。如果您无法将此值粘贴到所需位置，请告诉我该位置的位置，我可以给出更详细的答案。

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

1 个答案: