excel2

=IF(ISNUMBER(MATCH(LEFT(A2,1),一文字姓,0)),REPLACE(A2,2,0,"　"),IF(ISNUMBER(MATCH(LEFT(A2,3),三文字姓,0)),REPLACE(A2,4,0,"　"),REPLACE(A2,3,0,"　")))

【自動空白】住所編
A
郵便番号入力

B
住所全部入力
=VLOOKUP(A2,Sheet4!A:C,2,0)

C
=VLOOKUP(C2,Sheet4!$B$1:$D$124522,2,0)

E
=REPLACE(B2,1,D2,"")

F
=C2&"　"&E2

sheet2--------------------------

A
郵便番号

B住所

C
=LEN(B2)

D
(郵便？）

====================================---

Sub 漢数字⇒全角数字()

Cells.Replace What:="一", Replacement:="１", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="二", Replacement:="２", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="三", Replacement:="３", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="四", Replacement:="４", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="五", Replacement:="５", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="六", Replacement:="６", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="七", Replacement:="７", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="八", Replacement:="８", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="九", Replacement:="９", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

End Sub