連番を付けたフォルダを一括作成するマクロ

A列に入力されている名前に２桁の連番をつけて

一括でフォルダを作成するマクロ

コード

Sub フォルダ一括作成()
    Dim lastrow As Long
    Dim i As Long
    
    '最終行を取得
    lastrow = Cells(Rows.Count, 1).End(xlUp).Row
    
    '1行目から最終行まで繰り返し
    For i = 1 To lastrow
        
        'このブックと同じフォルダ内にA列に入力された名前に２桁の連番を付けたフォルダを作る
        MkDir ThisWorkbook.Path & "\" & Format(i, "00") & "_" & Cells(i, 1)
    Next
    
    MsgBox "フォルダ作成完了"
End Sub

注意点

• アクティブシートのA列にフォルダ名を入力
• フォルダ名は【２桁連番_A列に入力した名前】になる