Option ExplicitSub 転記1()Dim i As LongDim zzz As StringDim dtToday As Date dtToday = Date + 20i = 2 Do Until Sheets("データ").Cells(i, "A").Value = "" With Sheets("ひな形(csv用)") .Cells(i, "a").Value = "0" .Cells(i, "e").Value = dtToday …

setlocal enabledelayedexpansioncd /d %~dp0 'set keyword=testset /P keyword=削除したい文字を入力： for /f "tokens=*" %%i in ('dir /b ^| findstr /i "%keyword%"') do (set a=%%iren "!a!" "!a:%keyword%=!")

@echo off::フォルダー内list→log化dir /b *.* > log.log ::logにあるリストのみ移動for /f %%a in (log.log) do move "%%a" %%~xaexit