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)

たとえば、これは「別のシート名」という名前のワークシートに、列 C ではなく列 F に配置します。

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

Offset更新:メソッドと組み合わせて、すでにある程度のダイナミックレンジを使用しています。これで目的の場所に値を貼り付けるのに問題がある場合は、その場所が何であるかをお知らせください。より詳細な回答を提供できます。

于 2013-10-21T19:51:36.363 に答える