リストを使ってフォルダの一括作成(選択したセルより下に入力されている文字のフォルダを1つずつ作っていく)

Excel 最強の教科書[完全版]――すぐに使えて、一生役立つ「成果を生み出す」超エクセル仕事術

リストを使って、フォルダをデスクトップのフォルダに一括作成する。
以下は、「yamada」というユーザー名のデスクトップにある「000」というフォルダ内に一括作成するマクロ。

スポンサーリンク

----- べんりあつめ。-----

Sub folsaku()
Dim a
Do Until ActiveCell = ""
i = ActiveCell
MkDir "C:\Users\yamada\Desktop\000\" & i
ActiveCell.Offset(1, 0).Activate
Loop
End Sub

スポンサーリンク

スマホのみ下に表示