郵便番号が「未入力 or 桁数不正」な人を住所ごとリストアップするマクロ
前回のマクロを発展させて、エラーのある人の氏名・郵便番号・住所全体をまとめて別シートに出力するバージョンです。
これで「誰の住所が不完全なのか」を一目で確認できます。
マクロコード例
Sub 郵便番号チェック_住所付き()
Dim lastRow As Long
Dim i As Long
Dim wsSrc As Worksheet, wsDest As Worksheet
Dim destRow As Long
Dim zipCode As String
Dim fullAddr As String
' 元データのシートを設定（例：Sheet1）
Set wsSrc = ThisWorkbook.Sheets("Sheet1")
' 出力先シートを用意（なければ新規作成）
On Error Resume Next
Set wsDest = ThisWorkbook.Sheets("郵便番号チェック結果")
On Error GoTo 0
If wsDest Is Nothing Then
Set wsDest = ThisWorkbook.Sheets.Add
wsDest.Name = "郵便番号チェック結果"
Else
wsDest.Cells.Clear ' 既存の内容をクリア
End If
' 見出しを設定
wsDest.Range("A1").Value = "氏名"
wsDest.Range("B1").Value = "郵便番号"
wsDest.Range("C1").Value = "住所"
wsDest.Range("D1").Value = "エラー内容"
wsDest.Range("E1").Value = "行番号"
destRow = 2
' A列:氏名, B列:郵便番号, C列:都道府県, D列:市区町村, E列:番地, F列:建物名 と仮定
lastRow = wsSrc.Cells(wsSrc.Rows.Count, "A").End(xlUp).Row
For i = 2 To lastRow ' 1行目は見出しと仮定
zipCode = Trim(wsSrc.Cells(i, "B").Value)
zipCode = Replace(zipCode, "-", "") ' ハイフンを除去
' 住所を結合
fullAddr = wsSrc.Cells(i, "C").Value
If wsSrc.Cells(i, "D").Value <> "" Then fullAddr = fullAddr & vbLf & wsSrc.Cells(i, "D").Value
If wsSrc.Cells(i, "E").Value <> "" Then fullAddr = fullAddr & vbLf & wsSrc.Cells(i, "E").Value
If wsSrc.Cells(i, "F").Value <> "" Then fullAddr = fullAddr & vbLf & wsSrc.Cells(i, "F").Value
' チェック
If zipCode = "" Then
' 未入力
wsDest.Cells(destRow, "A").Value = wsSrc.Cells(i, "A").Value
wsDest.Cells(destRow, "B").Value = "(未入力)"
wsDest.Cells(destRow, "C").Value = fullAddr
wsDest.Cells(destRow, "D").Value = "郵便番号が未入力"
wsDest.Cells(destRow, "E").Value = i
wsDest.Cells(destRow, "C").WrapText = True
destRow = destRow + 1
ElseIf Len(zipCode) <> 7 Or Not IsNumeric(zipCode) Then
' 桁数不正 or 数字以外
wsDest.Cells(destRow, "A").Value = wsSrc.Cells(i, "A").Value
wsDest.Cells(destRow, "B").Value = wsSrc.Cells(i, "B").Value
wsDest.Cells(destRow, "C").Value = fullAddr
wsDest.Cells(destRow, "D").Value = "桁数不正または数字以外を含む"
wsDest.Cells(destRow, "E").Value = i
wsDest.Cells(destRow, "C").WrapText = True
destRow = destRow + 1
End If
Next i
MsgBox "チェックが完了しました。エラー件数: " & destRow - 2, vbInformation
End Sub
コードのポイント
- 住所結合: 都道府県・市区町村・番地・建物名を改行でまとめて1セルに。
- WrapText: 出力先の住所セルを折り返し表示にして見やすく。
- エラー内容: 「未入力」か「桁数不正／数字以外」を明示。
- 行番号: 元シートのどの行かを記録して追跡しやすく。
実行後のイメージ（郵便番号チェック結果シート）
| 氏名 | 郵便番号 | 住所 | エラー内容 | 行番号 |
|---|---|---|---|---|
| 山田太郎 | (未入力) | 東京都<br>中央区銀座1-2-3 | 郵便番号が未入力 | 5 |
| 佐藤花子 | 12345 | 東京都<br>新宿区西新宿2-8-1 | 桁数不正または数字以外を含む | 12 |
| 鈴木一郎 | 12A-4567 | 神奈川県<br>横浜市中区山下町100-1 | 桁数不正または数字以外を含む | 20 |
応用アイデア
- エラーがある行を元シートで赤色にマーキング。
- 正しい郵便番号は自動で「123-4567」形式に整形。
- エラー件数が0なら「全件正常」とメッセージを出す。
