エクセルで住所の数字を漢数字に換えたい

質問

初めまして。
エクセルで住所録があるのですがそれを封筒に縦印刷しようとしたのですが
住所の数字の部分が２２とかだと縦に２が二つでてきて非常に見にくいので横並びの２２にするか漢数字の２２にするかしかないと思うのですが漢数字にする関数を使おうとしたところ文字が入ってるとダメみたいでうまく生きません。
どうすればイイでしょうか?
良い方法があれば教えてください。

回答No.5

imogasi

下記のような変換例でよければ、短いVBAで一発変換できるが。
例
A列　　　B列（変換結果）
新宿区大京町2-2-23 新宿区大京町二‐二‐二三
新宿区大京町2-32-241 新宿区大京町二‐三二‐二四一
新宿区大京町2-234 新宿区大京町二‐二三四
新宿区大京町2-2 301 新宿区大京町二‐二 三〇一
新宿区大京町12-227 F234 新宿区大京町一二‐二二七 F二三四
新宿区大京町3-233-28 新宿区大京町三‐二三三‐二八
新宿区大京町223 新宿区大京町二二三
新宿区大京町8-2 暁マンション1-301 新宿区大京町八‐二 暁マンション一‐三〇一
ーーー
標準モジュールに
Sub test01()
n = "1234567890-"
s = "一二三四五六七八九〇‐"
For i = 1 To 10
x = Cells(i, "A")
For j = 1 To Len(x)
p = InStr(n, Mid(x, j, 1))
If p > 0 Then
x = Mid(x, 1, j - 1) & Mid(s, p, 1) & Right(x, Len(x) - j)
End If
Next j
Cells(i, "B") = x
Next i
End Sub
ーー
半角ハイフンについては
上記のコード
s = "一二三四五六七八九〇‐"
を
s = "一二三四五六七八九〇ノ"
にすれば
新宿区大京町二ノ二ノ二三
のようになる。

回答No.4

noname#176215

> 漢数字にする関数を使おうとしたところ文字が入ってるとダメみたい
何を使ったんでしょう。 NUMBERSTRING関数や TEXT関数での漢数字変換
は確かに数値に対してのみ有効です。

数式でやるなら１式ではできません。

A1セルにデータがあるとして

■B1セル
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(
A1,"１","一"),"２","二"),"３","三"),"４","四"),"５","五")

■C1セル
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(
B1,"６","六"),"７","七"),"８","八"),"９","九"),"０","〇")

百やら千やらも対応させるなら その分 作業列を増やして下さい。

回答No.3

mshr1962

ワードやアクセスのはがきウィザードを利用するか
http://www.hobby-navi.com/kouritu_up/hagaki_2.html
下記のサイトのフリーソフトのマクロを利用する。
http://www.vector.co.jp/soft/win95/writing/se210535.html

回答No.2

endows105

「にじゅうに」と入力して変換では駄目なんですか？

回答No.1

ponpoon

もっと良い方法があるかもしれませんが、
自分なら変更したいデータの範囲を指定した後にCtrl＋Fで
検索・置換ウィンドウを出して、変更します。
オプションで、詳細置換も可能です。