Excel VBA | Cells を使った住所クリーニング（全角→半角、不要なスペース削除）

Sub CleanAddress()
    Dim i As Long, lastRow As Long
    Dim addr As String
    
    ' A列の最終行を取得
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 1 To lastRow
        addr = Cells(i, 1).Value
        
        ' 空白セルはスキップ
        If addr <> "" Then
            ' 前後の空白を削除
            addr = Trim(addr)
            
            ' 全角スペースを削除
            addr = Replace(addr, "　", "")
            
            ' 全角英数字を半角に変換
            addr = StrConv(addr, vbNarrow)
            
            ' 半角カタカナを全角に変換（必要なら）
            addr = StrConv(addr, vbWide)
            
            ' 整形後の住所をB列に出力
            Cells(i, 2).Value = addr
        End If
    Next i
End Sub

Sub CleanAddress()
    Dim i As Long, lastRow As Long
    Dim addr As String
    
    ' A列の最終行を取得
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 1 To lastRow
        addr = Cells(i, 1).Value
        
        ' 空白セルはスキップ
        If addr <> "" Then
            ' 前後の空白を削除
            addr = Trim(addr)
            
            ' 全角スペースを削除
            addr = Replace(addr, "　", "")
            
            ' 全角英数字を半角に変換
            addr = StrConv(addr, vbNarrow)
            
            ' 半角カタカナを全角に変換（必要なら）
            addr = StrConv(addr, vbWide)
            
            ' 整形後の住所をB列に出力
            Cells(i, 2).Value = addr
        End If
    Next i
End Sub