Чтобы очистить лишние пробелы во всем диапазоне в Excel VBA, можно использовать различные методы. Вот несколько примеров:

Метод 1: использование функции обрезки

Sub CleanSpacesInRange()
    Dim rng As Range
    Dim cell As Range

    Set rng = Range("A1:C10") ' Replace with your desired range

    For Each cell In rng
        cell.Value = WorksheetFunction.Trim(cell.Value)
    Next cell
End Sub

Метод 2. Использование функции замены

Sub CleanSpacesInRange()
    Dim rng As Range
    Dim cell As Range

    Set rng = Range("A1:C10") ' Replace with your desired range

    For Each cell In rng
        cell.Value = WorksheetFunction.Replace(cell.Value, "  ", " ")
    Next cell
End Sub

Метод 3. Использование регулярных выражений

Sub CleanSpacesInRange()
    Dim rng As Range
    Dim cell As Range
    Dim regex As Object

    Set rng = Range("A1:C10") ' Replace with your desired range
    Set regex = CreateObject("VBScript.RegExp")

    With regex
        .Pattern = "\s+" ' Matches one or more whitespace characters
        .Global = True ' Replace all occurrences
    End With

    For Each cell In rng
        cell.Value = regex.Replace(cell.Value, " ")
    Next cell
End Sub

Эти методы удалят лишние пробелы из каждой ячейки в указанном диапазоне.