ExcelでA列に100件のデータがあるとします。各セルには文字列がはいっています。例えば、

下記を標準モジュールに置き、変換したい対象範囲を選択した状態で、

実行してみてください。

Sub main()
    Dim r As Range
    For Each r In Selection
        r.Value = clernupSpace(r.Value)
    Next
End Sub

Function cleanupSpace(r)
    res = Trim(r)
    l = 0
    Do While l <> Len(res)
        l = Len(res)
        res = Replace(res, "  ", " ")
    Loop
    clernupSpace = res
End Function

蛇足ですが、変換したいデータがA1にあった場合、B1などに

=cleanupSpace(A1)

としても利用できます。

http://excelvba.pc-users.net/

後から気がつきましたが、空白には半角と全角があるので、全角スペースにも対応させました。

Sub test()
    Dim lastRow As Long
    Dim i As Long
    Dim str1 As String
    Dim str2 As String
    
    '最終行の取得
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 1 To lastRow
        '前後の空白を削除して取得
        str1 = Trim(Cells(i, 1).Value)
        Do
            '空白２文字を１文字に置換を繰り返す
            str2 = Replace(str1, "  ", " ")
            str2 = Replace(str2, "　　", " ")
            '一見同じようなコードに見えますが
            '全角と半角スペースの違いがあるのでそのままコピーしてください
            str2 = Replace(str2, "　 ", " ")
            str2 = Replace(str2, " 　", " ")
            
            '変化が無かったら抜ける
            If str1 = str2 Then
                Exit Do
            Else
                str1 = str2
            End If
        Loop
        
        'セルに書き戻し
        Cells(i, 1).Value = str1
    Next
End Sub

http://q.hatena.ne.jp/