「２－３４－５６」を「二ー三四ー五六」に変える。（エクセル）

＃３の方の答えで良いと思いますが、 私も、ユーザー定義関数を作ってみました。 Public Function tr(str As String, replaceList As String, convertList) As String Dim i, c For i = 1 To Len(replaceList) str = Replace(str, Mid(replaceList, i, 1), Mid(convertList, i, 1)) Next tr = str End Function 使い方 =tr(A1,"１２３４５６７８９－","一二三四五六七八九ー") 対応する文字を置き換えます。

書式のDBNUM１、関数NUBERSTRINGなどやってみたが、全角数字に対しては、上手く行かなかった。 エクセルで、セル内に全角で入力された、アラビヤ数字と－があるとき（漢字と混じっていても良い）、エクセル側で漢数字に変換して見ました。 ユーザー関数を作ります。 ツール－マクロ－ＶＢＥとクリックして進んで、VBEの画面になるが、そのメニューで挿入－標準モジュールをクリックする。出てきた画面に下記をコピペする。 Function kanji(a) x = "１２３４５６７８９０－" y = "一ニ三四五六七八九〇の" st = "" For i = 1 To Len(a) s = Mid(a, i, 1) p = InStr(x, s) If p = 0 Then st = st & s Else st = st & Mid(y, p, 1) End If Next i kanji = st End Function 次にシートに戻って、数字の入ったセルの右隣に列 挿入し、=KANJI(A1)のように関数式をいれる。 下方向へ式を複写する。 （テスト例） 本町３－２３－１４ 神田町２－３６７ 山田市奥町１－３４－３４５ 山田市奥町７－２３－３０５ 明神市神社町２－７８メゾン３－３４５ エクセルのセルの書式で縦書きにしてみるとおかしなところはないようである。 ワードの方に指しこんだ時上手く行くかやって見てください。 なおハイフンは「の」に置換えたが、「ノ」や「ー」でも同じで、好みでy = "一ニ三四五六七八九〇の" の最後の文字を変えれば良いし、（他のケースで）「一」「三」も「壱」「参」にしたりもそこを変えれば出きる。

差込印刷が設定されているWord文書を開きAlt+F9を押します。 フィルドの編集画面になります。 { MERGEFIELD “住所” }　といった形式で各フィールドが表示されます。 ※”住所”はフィールド名ですので、差込データの割付によって変わります。 この部分に下記のように　\v　というオプションを付け加えます。 上記の場合なら、このように変更します。 { MERGEFIELD “住所” \v } これで、英数字が漢数字に置き換えられます。 もとの文書編集画面に戻すには、もう一度 Alt+F9 を押します。

【セルの書式設定】で【表示形式】を【文字列】に変更してはどうですか。