【VBA】CSVファイルを部分一致で転記する方法

日々の業務では、大量のデータを手作業で処理することが多いと思います。特にCSVファイルから特定の情報を抽出して別のシートに転記する際は、時間がかかるだけでなくミスも増えるでしょう。この記事では、VBAを使用することで部分一致に基づいて必要なデータだけを高速かつ正確に転記する方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub CSVPartialMatchTransfer()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRowSource As Long, lastRowTarget As Long
    Dim i As Long, j As Long
    
    ' ソースとターゲットのワークシートを指定
    Set wsSource = ThisWorkbook.Sheets("CSV")
    Set wsTarget = ThisWorkbook.Sheets("TargetSheet")
    
    ' データ最終行を取得
    lastRowSource = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    lastRowTarget = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 履歴の更新を停止して高速化
    Application.ScreenUpdating = False
    
    ' データ転記処理
    For i = 1 To lastRowSource
        If InStr(wsSource.Cells(i, "A").Value, "部分一致キーワード") > 0 Then
            wsTarget.Cells(lastRowTarget, "A").Value = wsSource.Cells(i, "B").Value ' B列のデータを転記
            lastRowTarget = lastRowTarget + 1
        End If
    Next i
    
    ' 履歴の更新再開
    Application.ScreenUpdating = True
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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