Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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

Заменяйте несколько пробелов одним пространством, используя формулу

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

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


Удалить пробелы между буквами и словами:

Kutools for ExcelАвтора Удалить места утилита может помочь вам удалить несколько типов пробелов, например удалить все ведущие пробелы, конечные пробелы, все пробелы и т. д.

doc удаляет пробелы

Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!


Заменяйте несколько пробелов одним пространством, используя формулу


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

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

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

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

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


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

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

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

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

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

Sub replace_multiplespaces()
'Updateby20150602
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 чтобы запустить этот код, и появится окно подсказки, чтобы напомнить вам о выборе диапазона данных, который вы хотите удалить лишние пробелы, см. снимок экрана:

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

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


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

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

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

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

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

2. Щелчок Kutools > Текст > Удалить места, см. снимок экрана:

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

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

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

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

Нажмите, чтобы узнать больше об этой функции «Удалить места».

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


Демонстрация: замените несколько пробелов на один пробел, используя Kutools for Excel

Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!


  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905
  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Alan Elston · 2 years ago
    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