Sub 半角スペースを削除する()

    'A列の最終行を取得する
    最終行 = Cells(Rows.Count, "A").End(xlUp).Row
    
    '1行から最終行まで処理する
    For 行 = 1 To 最終行
        
        'Replace(置換対象, 置換前, 置換後)で書く
        Range("A" & 行) = Replace(Range("A" & 行), " ", "")
    
    Next 行

End Sub