日付の名前のフォルダを一括作成するマクロ

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(Cells(i, 1), "yyyy年mm月dd日")
    Next
    
    MsgBox "フォルダ作成完了"
End Sub

注意点

• アクティブシートのA列に日付を入力
• フォルダ名は【○○○○年○○月○○日】の表記になる。
• 日付8桁をフォルダ名にしたい場合（20230918など）は以下のコードに修正

【yyyy年mm月dd日】→【yyyymmdd】

 'このブックと同じフォルダ内にA列に入力された日付のフォルダを作る
 MkDir ThisWorkbook.Path & "\" & Format(Cells(i, 1), "yyyymmdd")