Excel VBAで住所と電話番号を半角に変換し、番地のハイフン処理を正確に行う方法

Excel

2026.04.21

Excelで全角数字や漢字入り住所を半角数字とハイフンに変換する際、ビル名などが入ると誤ったハイフンが入ることがあります。VBAを使うことで、番地部分のみ正確に変換し、電話番号も整形できます。

番地部分だけを半角に変換する方法
VBAコードの例
電話番号の変換
注意点
まとめ

番地部分だけを半角に変換する方法

正規表現を使うと、住所の中の「数字＋丁目」「数字＋番」「数字＋号」などの部分だけを抽出して半角に変換し、ハイフンで結合できます。

例として、住所「〇〇県〇〇市１丁目２番３号〇〇ビル」を「〇〇県〇〇市1-2-3 〇〇ビル」に変換することが可能です。

VBAコードの例

下記のコードは、列Aにある住所を列Bに変換して出力する例です。

Sub ConvertAddress()
    Dim ws As Worksheet
    Dim rng As Range, cell As Range
    Dim regEx As Object, matches As Object
    Dim baseAddr As String, numStr As String

    Set ws = ActiveSheet
    Set rng = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)

    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Global = True
    regEx.Pattern = "([０-９0-9]+)丁目|([０-９0-9]+)番|([０-９0-9]+)号"

    For Each cell In rng
        baseAddr = cell.Value
        Set matches = regEx.Execute(baseAddr)
        numStr = ""
        For Each m In matches
            numStr = numStr & ConvertToHalfWidth(m.Value) & "-"
        Next m
        If Right(numStr, 1) = "-" Then numStr = Left(numStr, Len(numStr) - 1)
        '番地部分を置換
        ws.Cells(cell.Row, "B").Value = regEx.Replace(baseAddr, "") & numStr
    Next cell
End Sub

Function ConvertToHalfWidth(str As String) As String
    Dim i As Long, c As String
    For i = 1 To Len(str)
        c = Mid(str, i, 1)
        Select Case c
            Case "０" To "９": Mid(str, i, 1) = Chr(Asc(c) - &HFF10 + 48)
        End Select
    Next i
    ConvertToHalfWidth = str
End Function