【VBA】CSVファイルを完全一致で配列に格納する方法

手作業で大量のCSVファイルからデータを取り出すのは時間と労力がかかります。この記事では、VBAを使ってCSVファイルを完全一致で配列に格納し、業務効率化を図る方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub CSVToArray()
    Dim ws As Worksheet, lastRow As Long, i As Long
    Dim csvArray() As Variant
    Set ws = ThisWorkbook.Sheets("Sheet1")
    With Application
        .ScreenUpdating = False
    End With
    'CSVファイルを読み込み、配列に格納する
    csvArray = Split(Replace(ws.Range("A1:A500").Value, vbLf, vbCrLf), vbCrLf)
    For i = LBound(csvArray) To UBound(csvArray)
        If Trim(csvArray(i)) <> "" Then
            '完全一致でデータを処理するロジックをここに記述
            Debug.Print csvArray(i)
        End If
    Next i
    With Application
        .ScreenUpdating = True
    End With
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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