2017-11-02 VBA セルの値でフォルダ作成 VBA VBA スタンダード 資格 VBA 書籍 Sub mkdir_go() Dim i For i = 1 To 20 MkDir ThisWorkbook.Path & "\" & Cells(i, 1).Value 'フォルダ作成 NextEnd Sub