エクセル 英数字の削除

質問

エクセルの表で住所欄（A列）があり、セル内の半角・全角数字（ハイフンを含む）を削除するにはどうすれば良いでしょうか？
※削除項目【0～9,０～９,-,ー】

データは常に増え続け現在2000ほどあります。
A列上での作業を行い変換できればと思います。

よろしくお願いします。

回答No.3

Wendy02

こんばんは。

最近は、あまり、この手のコードを書いたことがないので、やり方を忘れています。
バックアップを取ってからためしてみてください。ただ、住所欄から抜き出すのは、
　削除項目【0～9,０～９,-,ー】

単純に、こういうような削除の仕方でよいのか、少し不安が残ります。
もう少し規則性があって複雑ではなかったかと思いますが、とりあえず、私のほうは、ためしのサンプル程度に掲示しておきます。理屈は、#1 さんと同じ理屈で、コードの中ではヒットしたものの置換を繰り返しています。

'標準モジュール

Sub RegDeleFigures()
　　Dim myPat As String
　　Dim Matches As Object
　　Dim Match As Object
　　Dim c As Range
　　Dim buf As String

　　myPat = "[\d０-９ー\-]"
　　With CreateObject("VBScript.RegExp")
　　　　.Pattern = myPat
　　　　.Global = True
　　　　Application.ScreenUpdating = False
　　　　For Each c In Range("A1", Range("A65536").End(xlUp))
　　　　　　If .Test(c.Value) Then
　　　　　　　　buf = c.Value
　　　　　　　　Set Matches = .Execute(buf)
　　　　　　　　For Each Match In Matches
　　　　　　　　　　buf = Replace(buf, Match, "")
　　　　　　　　Next Match
　　　　　　　　c.Value = buf
　　　　　　End If
　　　　Next c
　　　　Application.ScreenUpdating = True
　　End With
End Sub