エクセルシート内の漢数字⇔数字を変換する方法【コピペで簡単】

エクセルシート内の漢数字を数字に変換する方法と数字を漢数字に変換する方法をエクセルVBAで作成しました。コピペで簡単に使用できるのでそのまま使用して頂ければと思います。

VBAコードをコピーする

まずはVBAコードをコピーします。

「開発」からVBEを起動
ファイルから標準モジュールを選択

下記画面のようにコードを貼り付ける。

貼り付けるコードは下記になります。

コードを貼り付けて以上で準備は終了です。

使い方

エクセルメニューの「開発」⇒「マクロ」を選択すると下記画面になりますので、変換したいシートを選択した状態で、下記４種類の中から変換したい種類を選択して「実行」ボタンをクリックします。

※実行する前に念のためファイルを保存しておくことをおすすめします。

使用例

使用例を記載します。例えば変換前のファイルが下記のように住所のデータだった場合は、「漢数字⇒全角数字」のマクロを実行するとすべての漢数字が全角数字に変換されます。

しかし、この場合で言うと「四谷一丁目」が「４谷１丁目」とされています。

本当は「四谷１丁目」と変換したいところですよね。そこで、応用例を考えてみます。

応用例（住所）

先ほどは１つの数字すべてを変換してしまっていましたので、例えば住所のように「〇丁目」とある場合には、この「〇丁目」自体をそのまま変換するコードにしてあげれば良いです。

このコードでの実行例は下記のようになります

以上のようにファイルの種類にあわせて、変換方法を変えてみればいろんなタイプのデータにも応用できるかと思います。