VBAでcsvを読み込み区切り文字で区切る方法

＜目次＞

(１) VBAでcsvを読み込み区切り文字で区切る方法
　(１-１) 構文
　(１-２) サンプルプログラム
　(１-３) サンプルプログラムの実行結果

(１) VBAでcsvを読み込み区切り文字で区切る方法

(１-１) 構文

指定した区切り文字で区切るためには「Split」ファンクションを使用します。構文は次のようになっており、区切った結果を１次元の配列として、戻り値で返却します。

Split([分割対象の文字列], "[区切り文字（任意）]",[配列要素数])

（構文説明）

（例）

'# 分割結果の格納用
Dim Result() As String
Result() = Split(tmpBook.ActiveSheet.Cells(i1, 1).Value, ";")

＞目次にもどる

(１-２) サンプルプログラム

（サンプル）

Public Sub SepCsv()

    Dim i1 As Integer
    '# 分割結果の格納用
    Dim Result() As String
    '# 分割対象のcsvを開く
    Dim tmpBook As Workbook: Set tmpBook = Workbooks.Open("C:\Temp\SepCsv\SampleData.csv")
    Debug.Print "#### : " & tmpBook.Name
    
    '# 開いたcsvの各行をループする
    For i1 = 1 To 1000
    
        '# 各行のA列の情報をSplitにより、指定したセパレータ（例「;」）で分割
        Result() = Split(tmpBook.ActiveSheet.Cells(i1, 1).Value, ";")
        '# 分割した単語の個数が0以上の場合（行に何か情報があった場合）
        If UBound(Result) > 0 Then
            '# 分割した単語数だけ列ループする
            For j1 = 0 To UBound(Result)
                '# 分割した各単語を、同じ行の「j1」列目にコピー
                '#（＝セパレータで行を分割したのと同等の結果になる）
                tmpBook.ActiveSheet.Cells(i1, j1 + 1).Value = Result(j1)
            Next
        End If
    Next
    tmpBook.Save
    tmpBook.Close

End Sub

（図１２１）

＞目次にもどる

(１-３) サンプルプログラムの実行結果

・Before

（図１３１）