Replaceメソッドでシート全体を置換する : Excel

実行画面

各支店の月別売上表です。月が英語で記入されているので日本語に置換ます。

作成した２つのマクロです。
月を日本語に置き換えるマクロと、英語に戻すマクロがあります。

日本語に置換したシートです。

プログラムソース

Option Explicit

Sub 月を日本語()
    Cells.Replace what:="January", Replacement:="１月"
    Cells.Replace what:="February", Replacement:="２月"
    Cells.Replace what:="March", Replacement:="３月"
End Sub

Sub 月を英語()
    Cells.Replace what:="１月", Replacement:="January"
    Cells.Replace what:="２月", Replacement:="February"
    Cells.Replace what:="３月", Replacement:="March"
End Sub

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します

Excel ： Replaceメソッドでシート全体を置換する

Replaceメソッドでシート全体を指定した文字列に置換ます。

実行画面

プログラムソース