サッと一技Excel VBAマクロ

◆エクセルで、シート名の一括編集はできますか。 例えば、シート名「田中Ａ、田中Ｂ... - Yahoo!知恵袋
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1414918804

Sub Test()
　Dim ws As Worksheet, myFind As String, myReplace As String
　myFind = Application.InputBox("検索文字列は？", "シート名置換", Type:=2)
　myReplace = Application.InputBox("置換文字列は？", "シート名置換", Type:=2)
　For Each ws In ActiveWorkbook.Worksheets
　　On Error Resume Next
　ws.Name = Replace(ws.Name, myFind, myReplace, 1, -1, 2)
　Next ws
End Sub

◆エクセルの名前定義の一括削除の方法 | OKWave
http://okwave.jp/qa/q3028652.html

Sub 名前定義一括削除()
　Dim objName As Name
　For Each objName In ActiveWorkbook.Names
　　objName.Delete
　Next objName
End Sub

Excelでなんかめんどくさい事を、サッとできてしまうマクロ書ける人が羨ましい…
リブレOfficeならもっと簡単に誰でもできるのかなぁ(ﾁﾗ