EXCEL VBA 文字列を分割・指定文字で区切る・カンマ区切り・配列格納　（Split関数）

EXCEL VBA 文字列を分割・指定文字で区切る・カンマ区切り・配列格納　（Split関数）

'
'
Sub Split00()  'Split関数サンプル
    
    Dim I As Long
    Dim Buf As Variant '配列を指定します。
    
    Buf = Split("東京, 神奈川, 千葉", ",")  'Split関数を使って文字列（"東京, 神奈川, 千葉"）を”，”カンマ区切りで分割します。

    For I = 0 To UBound(Buf)  '配列に分割して格納したデータを繰り返します。
        MsgBox Buf(I)  '分割したデータを順番にメッセージボックスへ表示します。
    Next I
    

End Sub
'

EXCEL VBA 一つの文字列を分割して別々の列に転記します。（Split関数）

'
'
Sub Split01()  'A列に登録されている文字列を分割して別々の列に転記します。

    Dim i, L, lRow As Long
    Dim Buf As Variant
    
    lRow = Cells(Rows.Count, "A").End(xlUp).Row  'A列の最終行を取得します。
    
    For i = 2 To lRow  '2行目からA列の最終行まで繰り返します。
    
        Buf = Split(Cells(i, 1), ",")  'Split関数を使ってカンマ区切りの文字列を分割して配列に登録します。
        
        For L = 0 To UBound(Buf)  '文字列を分割した配列要素分繰り返します。
            Cells(i, L + 3) = Buf(L)   '配列に分割した文字列をセルに転記します。
        Next L
    
    Next i

End Sub
'

EXCEL VBA カンマ区切りの文字列を分割して別シートに転記します。（Split関数）

'
'
Sub Split02()     '別シートに項目ごとに転記します。

    Dim ws01, ws02 As Worksheet
    Dim i, L, lRow As Long
    Dim Buf As Variant
    
    Set ws01 = Worksheets("データ")
    Set ws02 = Worksheets("取扱商品")
    
    lRow = ws01.Cells(Rows.Count, "A").End(xlUp).Row     'ワークシート「データ」A列の最終行を取得します。
    
    ws02.Cells.ClearContents 'ワークシート「取扱商品」を文字列クリアーします。
    
    For i = 1 To lRow   '１行目からA列の最終行まで繰り返します。
    
        Buf = Split(ws01.Cells(i, 1), ",")       'Split関数を使ってカンマ区切りの文字列を分割して配列に登録します。
        
        For L = 0 To UBound(Buf)  '文字列を分割した配列要素分繰り返します。
            ws02.Cells(i, L + 1) = Buf(L)         '配列に分割した文字列をセルに転記します。
        Next L
    
    Next i

End Sub
'

EXCEL VBA 複数の区切り記号（文字）混在の文字列を分割して別シートに転記します。（Split関数）

'
'
Sub Split03() '複数の区切り記号（文字）混在の文字列を分割して別シートに転記します。


    Dim ws01, ws02 As Worksheet
    Dim i, L, lRow As Long
    Dim Buf As Variant
    
    Set ws01 = Worksheets("データ")
    Set ws02 = Worksheets("社員情報")
    
    lRow = ws01.Cells(Rows.Count, "A").End(xlUp).Row       'ワークシート「データ」A列の最終行を取得します。
    
    ws02.Cells.ClearContents 'ワークシート「社員情報」の文字列をクリアーします。
    
    For i = 1 To lRow   '１行目からA列の最終行まで繰り返します。
    
        Buf = Replace(ws01.Cells(i, 1), ";", ",")  'Replaceメゾットを利用して”；”⇒”,”へ変換
        Buf = Replace(Buf, "\", ",")  'Replaceメゾットを利用して”￥”⇒　”,”へ変換
        
        
        Buf = Split(Buf, ",")       'Split関数を使ってカンマ区切りの文字列を分割して配列に登録します。
        
        For L = 0 To UBound(Buf)  '文字列を分割した配列要素分繰り返します。
            ws02.Cells(i, L + 1) = Buf(L)         '配列に分割した文字列をセルに転記します。
        Next L
    
    Next i

End Sub

'

EXCEL VBA フォルダーの階層ごとに分割してフォルダー名・ファイル名を別々のセルに格納する（Split関数）

'
'
'******** AKIRA55.COM ******* https://akira55.com/
'
Sub fileList01()  '選択したフォルダー（サブフォルダー含む）のファイル一覧作成

    Dim Add As Range
    Dim Hani As String
    Dim I, lCol As Long
    
    Cells.Clear 'シート内容をクリアー
    
    Range("A1") = 1
    
    With Application.FileDialog(msoFileDialogFolderPicker) 'ダイアログボックスが表示されてフォルダー選択します。
        If .Show = True Then
                Call fileList_sub(.SelectedItems(1)) 'フォルダーが選択されていれば、サブプログラムを実行
            Else
                MsgBox "フォルダーを選択しませんでした。"
                Exit Sub 'プログラム終了
        End If
        
    End With
    
    
    Set Add = Range("A1").CurrentRegion  'セルA1からなる表範囲を取得する。
    
    Add.Borders.LineStyle = xlContinuous '格子罫線を作成：細実線
    
    Range("B1") = "ドライブ"
    
    lCol = Add.Columns(Add.Columns.Count).Column ' 表の最終列を取得します。
    
    For I = 3 To lCol  '先頭行のC列から最終列まで階層番号を記載する。
        Cells(1, I) = "階層" & I - 2
    Next I
     
    
    For Each Add In Range(Cells(1, 1), Cells(1, lCol))  'A1～
         Add.Interior.ColorIndex = 20    '背景色を指定します。
    Next Add

End Sub
'


'
'
Sub fileList_sub(Path As String)  '選択フォルダーパスを受け取りフォルダー内のファイル一覧を作成します。
    Dim Sub_forlder As Object
    Dim Temp As String
    Dim I, F, L As Long
    Dim buf As Variant
    
    Temp = Dir(Path & "\*.*")  '選択ファルダー内の最初のファイルを選択します。
    
    Do While Temp <> "" '全てのファイルを繰り返します。
    
        I = Range("A1") '行番号を代入
        I = I + 1 'ファイル内容を転記する行番号を加算します。
        
        Cells(I, "A") = I - 1  'A列に件数を表示します。
        
        buf = Path & "\" & Temp  'フォルダーパスとファイル名を表示します。
        buf = Split(buf, "\")       'Split関数を使って円マーク区切りの文字列を分割して配列に登録します。
        
        For L = 0 To UBound(buf)  '文字列を分割した配列要素分繰り返します。
             Cells(I, L + 2) = buf(L)          '配列に分割した文字列をセルに転記します。
        Next L
    
        Range("A1") = I  'セルA1に件数カウントする。
        
        Temp = Dir() '次のファイルを選択します。
    
    Loop
     
    With CreateObject("Scripting.FileSystemObject")
        
        For Each Sub_forlder In .GetFolder(Path).SubFolders  'すべてのフォルダーを繰り返します。
            
            Call fileList_sub(Sub_forlder.Path)  '再帰呼び出しを行いフォルダパスからサブフォルダ内容を取得
        
        Next Sub_forlder
    
    End With
    
End Sub
'
'