リストを使ってフォルダの一括作成（選択したセルより下に入力されている文字のフォルダを１つずつ作っていく）
2020/03/18
■■■■■■■
リストを使って、フォルダをデスクトップのフォルダに一括作成する。
以下は、「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