年賀状続き
データはダミー。
郵便番号のハイフンいらない
数字全角
（ハイフンは全角にすると回転しちゃうので半角で(；´Д｀)）

後、　名字2文字名前2文字のバランスが悪いからスペース入れてみる。
名前一文字のバランスの悪さがなぁ・・・。
 
修正後

Excelで

• 氏名
• 姓＜必須＞
• 名＜必須＞
• 連名
• 連名2
• 連名3
• 連名4
• 氏名（ひらがな）
• 年齢
• 生年月日
• 郵便番号＜必須＞
• 住所＜必須＞
• 住所1
• 住所2

のリストを作りまして、シート２に
「都道府県コード及び市区町村コード」のR1.5.1現在の団体シートから都道府県と市区町村をあわせたリスト
を貼り付けておきます。（これが住所１に入り、以降が住所２に）

Sheet1

Option Explicit
Sub changeDATA()
Dim e As Integer: e = Range("A1").End(xlDown).Row
Dim i As Integer
Dim l As Integer
Dim na
Columns("K:K").NumberFormatLocal = "@"
For i = 2 To e
'名前が長かったら姓にスペース(1文字姓はそのまま)
If Len(Cells(i, 2)) > 1 Then
Cells(i, 15).FormulaArray = "=MAX(LEN(RC[-12]:RC[-8]))"
If Len(Cells(i, 2)) < Cells(i, 15) + 1 Then
Cells(i, 2) = "　" & Cells(i, 2)
End If
End If
'郵便番号
Cells(i, 11) = CStr(Replace(Cells(i, 11), "-", ""))
'住所
Cells(i, 12) = StrConv(Cells(i, 12), vbWide)
Cells(i, 12) = Replace(Cells(i, 12), "－", "-")
l = Sheet2.Searchaddress(Cells(i, 12))
 'If l = 0 Then MsgBox ("エラー")
Cells(i, 13) = Left(Cells(i, 12), l)
Cells(i, 14) = Right(Cells(i, 12), Len(Cells(i, 12)) - l)
'住所の長さ
Cells(i, 15).Formula2R1C1 = "=Len(RC[-3])"
Next
Me.UsedRange.Sort Cells(1, 15), xlDescending, , , , , , xlYes
End Sub

sheet2の方に関数を。うぅ、固定値使っちゃう。

Option Explicit
Function Searchaddress(allstr As String) As Integer
Searchaddress = 0
Dim adr: adr = WorksheetFunction.Transpose(Range("A2:A1748"))
Dim e As Integer: e = 1748 - 1
Dim i As Integer
For i = 1 To e
If allstr Like (adr(i) & "*") Then
Searchaddress = Len(adr(i))
Exit For
End If
Next
End Function

ん～なんかかっこ悪いんだよなぁ～