Excel のシート名から数字以外消す
今の設計書ってご丁寧にもシートごとに「数字. 機能名」みたいにされてるんですよ。
でも、機能一覧を印刷してしまえば、機能名とか幅とって邪魔なだけなんですよねー。番号さえ分かればいい。
てことで、マクロ書いて数字からはじまるシートだけ残し、更にシートの名前を数字オンリーに変更するようにした。
数字がかぶった場合は削除せず、残しておいて、人間が必要か不要か判断することに。
Sub ToInt() For Each s In ActiveWorkbook.Sheets If StartsWithNum(s.name) Then On Error Resume Next s.name = Str(Val(s.name)) Else s.Delete End If Next End Sub Function StartsWithNum(name As String) As Boolean Dim ch As Integer ch = Asc(Left(name, 1)) StartsWithNum = Asc("0") <= ch And ch <= Asc("9") End Function
んー、かぶった場合は「'」とか付けた方が良かったかも。まぁいいや。
これでだいぶ作業がはかどった。