手順: 元データのブックを一度保存して開き直す ALT+F11を押す 現れた画面で挿入メニューから標準モジュールを挿入する 現れたシートに下記をコピー貼り付ける sub macro1() dim myPath as string dim myFile as string dim h as range dim s as string dim w as worksheet mypath = thisworkbook.path & "\" on error resume next kill mypath & "*.csv" application.displayalerts = false for each w in worksheets if w.name <> activesheet.name then w.delete next application.displayalerts = tr