本格的な住所変換の機能を実現するためには 郵便番号辞書などのツールを利用するなど 開発コストもかかりますが
Windows に標準インストールされる IME の機能を利用した簡易な方法もあります
利用するには 予め IME で郵便番号辞書が利用できるように設定しておく必要があります
設定状態によっては 正しく変換されないケースもあると思うので あくまで補助機能と位置づけておいたほうがよいでしょう
Private Sub Worksheet_Change(ByVal Target As Range) If (Target.Address = "$A$1") Then Cells(2, 1).Value = StrConv(Target.Value, vbWide) Cells(2, 1).Select SendKeys "{F2}", True SendKeys "+{HOME}", True SendKeys "{F13}", True SendKeys "{ENTER}", True End If End Sub