@echo offpushd %~dp0for /f %%i in (list.txt) do mkdir %%ifor /f %%j in (list.txt) do move "*%%j*" %%jexit

Sub auto_open() Worksheets("Sheet1").Activate Range("A1").SelectEnd Sub もしくは、 Private Sub Workbook_Open() Application.Goto Sheets(1).Range("A1"), True End Sub

Sub Worksheet_Activate() Dim wbThis As Workbook Dim wsThis As Worksheet Dim ws As Worksheet Dim ListStr As String '変数にこのブックをセット Set wbThis = ThisWorkbook '変数にこのシートをセット Set wsThis = wbThis.Worksheets("csv") 'リスト入…