Перейти к основному содержанию

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

док заменить несколько пробелов 1

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

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

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

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


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

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

1. Введите эту формулу: = ОБРЕЗАТЬ (ПОДСТАВИТЬ (A2; СИМВОЛ (32); "")) в пустую ячейку помимо значения вашей ячейки, см. снимок экрана:

док заменить несколько пробелов 2

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

док заменить несколько пробелов 3


Замените несколько пробелов одним пробелом с помощью кода 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

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


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

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

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней

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

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

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

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

док заменить несколько пробелов 6

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

Нажмите, чтобы узнать больше об этой функции удаления пробелов.

Нажмите, чтобы загрузить Kutools for Excel и бесплатную пробную версию сейчас!


Демо: замените несколько пробелов одним пробелом с помощью Kutools for Excel

Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Загрузите и бесплатную пробную версию прямо сейчас!

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi Thanks for a useful Blog. It helped me get the answer I was looking for. _................ I was just wondering if this is acceptable and correct for removing Replace Multiple Spaces With Single Space From Cells: Taking your example, Formal to be dragged down: =Trim(A2) ( I do not understand why you have SUBSTITUTE(A2,CHAR(32)," ") instead of just A2 ??? ) It appear to give the correct results. _..... Here is one way I would do it using VBA Sub TrimRange() Let Range("B2:B9").Value = Evaluate("=If({1},TRIM(" & Range("A2:A9").Address & "))") End Sub Alan
This comment was minimized by the moderator on the site
I should have checked the Microsoft Doco: https://support.office.com/en-us/article/TRIM-function-410388fa-c5df-49c6-b16c-9e5630b479f9<br />".....The TRIM function was designed to trim the 7-bit ASCII space character (value 32) from text. In the Unicode character set, there is an additional space character ....." etc - hence the need to make sure the TRIM is working on Char 32 for any spaces...
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations