Как заменить несколько пробелов на один пробел в ячейках 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. Затем нажмите кнопку ОК, и все лишние пробелы будут заменены одним пробелом между словами.
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек