セル内で漢字と共存している全角・半角数字の統一

質問

質問なんですが。
数百とデータが入力された住所録の中で下記の様に住所が入力されているセル列があるんですけど、

○○市○○町１－２－３
○○区○○町4-5-6

と丁目・番地・号が半角全角数字が各データ毎にバラバラに入力されている住所データ列のセル内の数字を全て半角に統一したいのですが、やはり各セルを修正していくしかないんでしょうか？
他に方法がありましたら教えてください＞＜

よろしくお願いします。
Excel2003を使用しております。

回答No.1

noname#176215 · ベストアンサー

カタカナも半角になっていいなら ASC関数を使えば一括処理できます。
それが嫌な場合は 作業列を２つ使って

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

■B1セル
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(
A1,"１",1),"２",2),"３",3),"４",4),"５",5)

■C1セル
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(
B1,"６",6),"７",7),"８",8),"９",9),"０",0)

とします。

回答No.4

Cupper

では、関数やマクロを使わない方法を回答してみます。

　[編集] → [置換]
で全角の数字を半角に置き換えましょう。

数字ですので 0 から 9 まで10回繰り返す必要がありますが、シートに不要な関数やマクロを残さずに済みます。

回答No.3

imogasi

列数が少ない（住所列だけとか。関数を入れるので数十列は困る）
英数カナ文字を全角に変換する(全角に統一してよいとして）、
でJIS関数があります。
この方法が出てないようですが、どうですか
=JIS(B1)
東1-2-3 東１－２－３
ヒガシ2-3 ヒガシ２－３
マンションA-2 マンションＡ－２

回答No.2

mitarashi

別解です。
VBAで、アクティブシートの使用しているセルを全て処理対象にしています。replaceToNarrowを実行してください。
出典は分からなくなってしまいました。原作者さんご容赦下さい。
2000用のコードですが、2003でも動くかも。
なお、数字だけでなく、全角のハイフン、（）も半角に変換するコードです。
おまけは全角のーも半角ハイフンに直します。必要なら’を外して下さい。
Sub replaceToNarrow()
Dim rng As Range
Application.ScreenUpdating = False
For Each rng In ActiveSheet.UsedRange
With rng
.Value = cnv_narrow(.Value)
'おまけ　ー　も半角-に直したい時
'.Value = cnv_hyphen(.Value)
End With
Next
Application.ScreenUpdating = True
End Sub

Private Function cnv_narrow(target As String)
Dim regEx, Match, Matches

Set regEx = CreateObject("VBScript.RegExp")
regEx.Pattern = "([０-９－\（\）])+"
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(target)
cnv_narrow = target
If Matches.Count > 0 Then
For Each Match In Matches
regEx.Pattern = Match.Value
regEx.IgnoreCase = False
cnv_narrow = regEx.Replace(cnv_narrow, StrConv(Match.Value, vbNarrow))
Next
End If
Set regEx = Nothing
End Function
'おまけ
Private Function cnv_hyphen(target As String)
Dim regEx, Match, Matches

Set regEx = CreateObject("VBScript.RegExp")
regEx.Pattern = "ー"
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(target)
cnv_hyphen = target
If Matches.Count > 0 Then
For Each Match In Matches
regEx.Pattern = Match.Value
regEx.IgnoreCase = False
cnv_hyphen = regEx.Replace(cnv_hyphen, "-")
Next
End If
Set regEx = Nothing
End Function