Sub Test22()
Dim LastRow As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To LastRow Step 2

ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value = ThisWorkbook.Sheets("uriage").Cells(i, 2).Value
ThisWorkbook.Sheets("Sheet1").Cells(i, 2).Value = ThisWorkbook.Sheets("uriage").Cells(i + 1, 2).Value
ThisWorkbook.Sheets("Sheet1").Cells(i, 3).Value = ThisWorkbook.Sheets("uriage").Cells(i, 4).Value

Next i
Dim r As Long, c As Long
Dim Target As Range

With ThisWorkbook.Sheets("Sheet1").UsedRange
For r = 1 To .Rows.Count
For c = 1 To .Columns.Count
If Not IsEmpty(.Cells(r, c).Value) Then Exit For '---(1)
Next c

If c = .Columns.Count + 1 Then
If Target Is Nothing Then
Set Target = .Rows(r).EntireRow
Set Target = Union(Target, .Rows(r).EntireRow)
End If
End If
Next r
End With

If Not Target Is Nothing Then
End If

MsgBox "件数は" & LastRow / 2 & "です"
End Sub


Sub CSVファイル読み込み()
Dim cnt As Long '表のデータ件数を格納するための変数
Dim myFile As Variant '[ファイルを開く]画面の戻り値用の変数

myFile = Application. _
GetOpenFilename("CSVファイル (*.csv), *.csv")
If myFile = False Then Exit Sub
Workbooks.Open myFile

'B 開いたファイルにフリガナ列を追加し、表の書式を整える
With Range("A1").CurrentRegion
cnt = .Rows.Count - 1 'データ数
.Cells(1, 3).Value = "フリガナ"
.Columns(3).Offset(1).Resize(cnt) _
.Formula = "=PHONETIC(B2)"
.Columns("E:G").Offset(1).Resize(cnt) _
.NumberFormatLocal = "#,##0"
.Borders.LineStyle = xlContinuous
.Rows(1).Interior.Color = rgbLightBlue
.Rows(1).HorizontalAlignment = xlCenter
End With

'C Excelブックとして保存する(同名ファイルがある場合は上書き保存)
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs _
Filename:=Replace(myFile, "csv", "xlsx"), _
Application.DisplayAlerts = True
End Sub


@echo off

echo バッチファイルと同じディレクトのすべてのファイルをリネームします。
echo (拡張子を含まない)ファイル名のどの位置に文字を挿入しますか?
echo 0:先頭
echo 1:末尾

set /p select="数字で選択して下さい:"
set /p add="追記する文字を入力して下さい:"

if %select%==0 (
for %%i in (*) do (
rem 実行バッチファイル自身以外に実行
if not %%i==%~n0%~x0 (
rem 先頭に追記
ren %%i %add%%%~ni%%~xi
) else (
for %%i in (*) do (
rem 実行バッチファイル自身以外に実行
if not %%i==%~n0%~x0 (
rem 末尾に追記
ren %%i %%~ni%add%%%~xi


@echo off

rem 該当するファイルの拡張子に書き換える
for %%f in ( *.xlsx ) do call :sub "%%f"
exit /b

set fname=%1
set fname=%fname: =_%
set fname=%fname: =_%
ren %1 %fname%
goto :EOF


@echo off
setlocal enabledelayedexpansion
cd /d %~dp0
set keyword=届
for /f "tokens=*" %%i in ('dir /b ^| findstr /i "%keyword%"') do (
set a=%%i
ren "!a!" "!a:%keyword%=!"