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]|[０-９]" Then Sheets(i).Name = i end if Next i End Sub

0 件のコメント:

コメントを投稿

登録: コメントの投稿 (Atom)