【VBA】データの最終行を完全一致で転記する方法

手作業でのデータ転記は時間がかかるだけでなく、ミスも起こりやすいです。この記事では、特定の値と完全に一致するデータの最終行を自動で転記する方法を紹介します。

💡

Pick Up おすすめ

Excelスキルをアップグレード

実務で役立つスキルを体系的に学びませんか？Udemyなら頻出テクニックを最短でマスターできます。

サンプルコード

VBA

Option Explicit
Sub 転記処理()
    Dim ws As Worksheet, srcWs As Worksheet, destWs As Worksheet
    Dim lastRowSrc As Long, lastRowDest As Long, i As Long
    Dim searchValue As String
    
    ' シートの設定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set srcWs = ThisWorkbook.Sheets("SourceSheet")
    Set destWs = ThisWorkbook.Sheets("DestinationSheet")
    
    ' 検索値を指定
    searchValue = "完全一致する文字列"
    
    ' ソースシートの最終行取得
    lastRowSrc = srcWs.Cells(srcWs.Rows.Count, 1).End(xlUp).Row
    
    ' ディスティネーションシートの最終行取得
    lastRowDest = destWs.Cells(destWs.Rows.Count, 1).End(xlUp).Row + 1
    
    Application.ScreenUpdating = False
    For i = 1 To lastRowSrc
        If srcWs.Cells(i, 1) = searchValue Then
            ' 完全一致した行を転記
            destWs.Cells(lastRowDest, 1).Resize(1, srcWs.Columns.Count).Value = srcWs.Rows(i).Value
            lastRowDest = lastRowDest + 1
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認してください。