2020年10月1日木曜日

[VBA]サンプル1

Sub chage_sheet_name() Dim i As Long For i = 1 To Sheets.Count If Left(Sheets(i).Name, 1) Like "[0-9]|[0-9]" Then Sheets(i).Name = i end if Next i End Sub

0 件のコメント: