VBAで郵便番号などのハイフンを取り除く方法

仕事柄、顧客情報を扱う際に顧客番号などに含まれるハイフンを取り除きたい時があります。

VBAでそれを解決してみた。

Sub hyphen()

    Cells(2, 2).Value = Replace(Cells(2, 2).Value, "-", "")
    
End Sub

セルの2行9列目に入力された文字列の「-」を空白にする場合になります。

Cells(2,9).Valueの値を=ReplaceしてCells(2,9).Value,の値に含まれる”-“,を””に置き換える。

しかしこの場合、電話番号のハイフンを消したときに頭の0が消えてしまう。

変換するべきセルを文字列にするのが簡単かな？

以下は空白を消す場合

Sub hyphen()

    Cells(2, 2).Value = Replace(Cells(2, 2).Value, "　", "")
    Cells(2, 2).Value = Replace(Cells(2, 2).Value, " ", "")
    
End Sub

上が全角スペース

下が半角スペース