Как заменить несколько пробелов на один пробел в ячейках Excel?

Предположим, у меня есть список текстовых строк, содержащих несколько пробелов. Теперь мне нужно заменить эти пробелы одним пробелом между текстовыми строками, чтобы разделить слова, как показано на следующем скриншоте. Как можно заменить несколько пробелов на один сразу, не удаляя их по одному?

Замена нескольких пробелов на один с помощью формулы

Замена нескольких пробелов на один с помощью Kutools для Excel

Замена нескольких пробелов на один с помощью кода VBA

Замена нескольких пробелов на один с помощью формулы

В Excel обычная функция «Найти и заменить» может не работать хорошо для решения этой проблемы, поэтому мы можем применить простую формулу для её решения. Пожалуйста, сделайте следующее:

1. Введите эту формулу: =TRIM(SUBSTITUTE(A2,CHAR(32)," ")) в пустую ячейку рядом с вашими данными, см. скриншот:

2. Затем нажмите клавишу Enter, чтобы получить результат, выберите ячейку B2, затем перетащите маркер заполнения на диапазон ячеек, к которым вы хотите применить эту формулу, и все лишние пробелы будут удалены из текстовых строк, останется только один пробел между словами. См. скриншот:

Замена нескольких пробелов на один с помощью Kutools для Excel

Если вам нужно удалить другие типы пробелов, такие как начальные пробелы, конечные пробелы или все пробелы в тексте, я рекомендую мощный инструмент — Kutools для Excel. С помощью его функции Удалить пробелы вы можете удалить любые пробелы, которые вам нужны, например, начальные пробелы, конечные пробелы, все пробелы...

После установки Kutools для Excel выполните следующие действия:

1. Выберите диапазон данных, из которого вы хотите удалить лишние пробелы.

2. Нажмите Kutools > Текст > Удалить пробелы, см. скриншот:

3. В диалоговом окне Удалить пробелы выберите Все лишние пробелы в секции Тип пробелов, и вы можете просмотреть результат в окне Предварительного просмотра, см. скриншот:

4. Затем нажмите кнопку ОК или Применить, и все лишние пробелы будут удалены из ячейки, останется только один пробел между словами.

Нажмите, чтобы скачать Kutools для Excel и попробовать бесплатно прямо сейчас!

Замена нескольких пробелов на один с помощью кода VBA

Если вас интересует код VBA, я могу создать код для вас, чтобы заменить несколько пробелов на один. Пожалуйста, сделайте следующее:

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. Затем нажмите Вставить > Модуль и вставьте следующий код в окно Модуля.

Код VBA: Замена нескольких пробелов на один пробел

Sub replace_multiplespaces()
'Updateby Extendoffice
Dim x As Range
Dim Workx As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set Workx = Application.Selection
Set Workx = Application.InputBox("Range", xTitleId, Workx.Address, Type:=8)
    For Each x In Workx
        x = WorksheetFunction.Trim(x)
    Next x
End Sub

3. Затем нажмите клавишу F5, чтобы запустить этот код, и появится всплывающее окно с запросом выбора диапазона данных, из которого вы хотите удалить лишние пробелы, см. скриншот:

4. Затем нажмите кнопку ОК, и все лишние пробелы будут заменены одним пробелом между словами.