＜考え方＞ WEEKNUM関数を使えば、OK。 ※週の基準は、日曜日スタートは１、2は月曜日スタートになります。 あとは、必要に応じて ＜コード＞ Sub 日付input後､週を返す() Dim input1 As Date, input2 As String Do input1 = InputBox("日付をinputして下さい…

コピーしたい任意の*.csv を、 all.csvへ転記します。 [batファイルで作成] ファイル名は、任意につけてください(自分は、Data転記.datです）。 コピー copy /b *.csv all.csv