Sub フォルダ作成() Dim i As Long For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row MkDir ThisWorkbook.Path & "\" & Cells(i, 1) Next iEnd Subだけで?
ボーカロイド好きが集うMastodonインスタンス、通称「ボカロ丼(ボカロドン)」です。 ** This server is for "Vocaloid" lovers. If you are not, please select other server. **