Excel VBA 特定の行をコピーして別の場所に複製して加工する方法

以下のシーンで利用します。

1.データのバックアップを作成する（例: 元のデータを保持しつつ、別のシートにコピー）

2.特定の条件に合う行だけをコピーする（例: 金額が一定以上の行を別のシートにコピー）

3.テンプレート行を複製する（例: 既存のフォーマットを維持しつつ新しいデータを追加）

4.定期的にデータを転記する（例: 当日のデータを履歴シートにコピー）

Option Explicit

Sub CopyRow5to10() '標準モジュール
    Rows(5).Copy Destination:=Rows(10)
End Sub

指定した行を別のシートにコピー

Option Explicit

Sub CopyRowToAnotherSheet() '標準モジュール
    Sheets("Sheet1").Rows(5).Copy Destination:=Sheets("Sheet2").Rows(2)
End Sub

選択した行を別の行にコピー

Option Explicit

Sub CopySelectedRow() '標準モジュール
    If Not TypeOf Selection Is Range Then
        MsgBox "セルを選択してください。", vbExclamation, "エラー"
        Exit Sub
    End If
    
    Selection.EntireRow.Copy Destination:=Rows(10)
End Sub

特定の条件に合う行を別のシートにコピー

Option Explicit

Sub CopyImportantRows() '標準モジュール
    Dim wsSrc As Worksheet, wsDst As Worksheet
    Dim i As Long, lastRow As Long, dstRow As Long

    Set wsSrc = Sheets("Sheet1")
    Set wsDst = Sheets("Sheet2")
    
    lastRow = wsSrc.Cells(Rows.Count, 1).End(xlUp).Row
    dstRow = 1 ' コピー先の最初の行

    For i = 1 To lastRow
        If wsSrc.Cells(i, 1).Value = "重要" Then
            wsSrc.Rows(i).Copy Destination:=wsDst.Rows(dstRow)
            dstRow = dstRow + 1
        End If
    Next i
End Sub

A列が空白でない行だけをコピー

Option Explicit

Sub CopyNonEmptyRows() '標準モジュール
    Dim wsSrc As Worksheet, wsDst As Worksheet
    Dim i As Long, lastRow As Long, dstRow As Long

    Set wsSrc = Sheets("Sheet1")
    Set wsDst = Sheets("Sheet2")
    
    lastRow = wsSrc.Cells(Rows.Count, 1).End(xlUp).Row
    dstRow = 1

    For i = 1 To lastRow
        If wsSrc.Cells(i, 1).Value <> "" Then
            wsSrc.Rows(i).Copy Destination:=wsDst.Rows(dstRow)
            dstRow = dstRow + 1
        End If
    Next i
End Sub

指定した行をコピーして新しい行に挿入

Option Explicit

Sub CopyRowAndInsert() '標準モジュール
    Rows(5).Copy
    Rows(6).Insert Shift:=xlDown
End Sub

シートの全行をコピーする

Option Explicit

Sub CopyAllRows() '標準モジュール
    Sheets("Sheet1").UsedRange.Copy Destination:=Sheets("Sheet2").Cells(1, 1)
End Sub

高速化

Application.ScreenUpdating = False
'（コピー処理）
Application.ScreenUpdating = True