Excel функция сжпробелы на английском

Skip to content

Функция СЖПРОБЕЛЫ — как пользоваться и примеры

Вы узнаете несколько быстрых и простых способов, чтобы удалить начальные, конечные и лишние пробелы между словами, а также почему функция Excel СЖПРОБЕЛЫ (TRIM в английской версии)  не работает и как это исправить.

Вы сравниваете два столбца на предмет наличия дубликатов, но ваши формулы не могут найти ни одной повторяющейся записи? Или вы складываете два столбца чисел, но получаете только нули? И почему, черт возьми, ваша очевидно правильная формула ВПР возвращает только кучу ошибок Н/Д? Это лишь несколько примеров проблем, на которые вы, возможно, ищете ответы. И все это вызвано дополнительными пробелами, скрытыми до, после или между числовыми и текстовыми значениями в ваших ячейках.

  • Как удалить лишние пробелы в столбце?
  • Удаление ведущих пробелов
  • Как сосчитать лишние пробелы?
  • Выделение цветом ячеек с лишними пробелами
  • А если СЖПРОБЕЛЫ не работает?
  • Инструмент Trim Spaces — удаляйте лишние пробелы одним щелчком мыши.

Microsoft Excel предлагает несколько различных способов очистки данных. В этом руководстве мы исследуем возможности функции СЖПРОБЕЛЫ как самого быстрого и простого способа удаления пробелов в Excel.

Итак, функция СЖПРОБЕЛЫ в Excel применяется, чтобы удалить лишние интервалы из текста. Она удаляет все начальные, конечные и промежуточные, за исключением одного пробела между словами.

Синтаксис её самый простой из возможных:

СЖПРОБЕЛЫ(текст)

Где текст — это ячейка, из которой вы хотите удалить лишние интервалы (или просто текстовая строка, заключённая в двойные кавычки).

Например, чтобы удалить их в ячейке A1, используйте эту формулу:

=СЖПРОБЕЛЫ(A1)

И это скриншот показывает результат:

Ага, это так просто!

Если в дополнение к лишним пробелам ваши данные содержат разрывы строк и непечатаемые символы, используйте функцию СЖПРОБЕЛЫ в сочетании с ПЕЧСИМВ (CLEAN в английской версии), чтобы удалить первые 32 непечатаемых символа в кодовой системе ASCII. 

Например, чтобы удалить пробелы, разрывы строк и другие нежелательные символы из ячейки A1, используйте эту формулу:

=СЖПРОБЕЛЫ(ПЕЧСИМВ(A1))

Дополнительные сведения см. В разделе Как удалить непечатаемые символы в Excel.

Теперь, когда вы знаете основы, давайте обсудим несколько примеров использования СЖПРОБЕЛЫ в Excel, а также те подводные камни, с которыми вы можете столкнуться.

Как убрать лишние пробелы во всём столбце.

Предположим, у вас есть столбец с именами, в котором есть пробелы до и после текста, а также более одного интервала между словами. Итак, как удалить все начальные, конечные и лишние промежуточные пробелы во всех ячейках одним махом? 

Записав формулу Excel СЖПРОБЕЛЫ в соседний столбец, а затем заменив формулы их значениями. Подробные инструкции приведены ниже.

Напишите это выражение для самой верхней ячейки, A2 в нашем примере:

=СЖПРОБЕЛЫ(A2)

Поместите курсор в нижний правый угол ячейки формулы (B2 в этом примере), и как только курсор превратится в знак плюса, дважды щелкните его, чтобы скопировать вниз по столбцу, до последней ячейки с данными. В результате у вас будет 2 столбца — исходные имена с интервалами и имена, приведённые в порядок при помощи формулы.

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

Вот как это сделать:

Выделите все ячейки с расчетами (B2:B8 в этом примере) и нажмите Ctrl + C, чтобы скопировать их. Или по правой кнопке мыши воспользуйтесь контекстным меню.

Выделите все ячейки со старыми данными (A2:A8) и нажмите Ctrl + Alt + V. Эта комбинация клавиш вставляет только значения и делает то же самое, что и контекстное меню Специальная вставка > Значения.

Нажмите ОК. Готово!

Как удалить ведущие пробелы в числовом столбце

Как вы только что видели, функция Excel СЖПРОБЕЛЫ без проблем удалила все лишние интервалы из столбца текстовых данных. Но что, если ваши данные — числа, а не текст?

На первый взгляд может показаться, что функция СЖПРОБЕЛЫ сделала свое дело. Однако при более внимательном рассмотрении вы заметите, что обрезанные значения не ведут себя как числа. Вот лишь несколько признаков аномалии:

  • И исходный столбец, и обрезанные числа выравниваются по левому краю, даже если вы применяете к ним числовой формат. В то время как обычные числа по умолчанию выравниваются по правому краю.
  • Когда выбраны две или более ячеек с очищенными числами, Excel отображает только КОЛИЧЕСТВО в строке состояния.Для чисел он также должен отображать СУММУ и СРЕДНЕЕ.
  • Формула СУММ, примененная к этим ячейкам, возвращает ноль.

И что нам с этим делать?

Небольшой лайфхак. Если вы вместо СЖПРОБЕЛЫ(A2) используете операцию умножения на 1, то есть A1*1, то получите тот же результат. И еще один элегантный способ избавления от пробелов перед числом:  

=—A1

Но обращаю внимание, что результатом будет являться по-прежнему текст.

А вот такое хитрое выражение сразу превратит текст “    333” в число 333:

=—(—A1)

Вы видите, что все цифры выровнены по левому краю. Дело в том, что очищенные значения представляют собой текстовые строки, а нам нужны числа. Чтобы исправить это, вы можете умножить «обрезанные» значения на 1 (чтобы умножить все значения одним махом, используйте опцию  Специальная вставка > Умножить).

Более элегантное решение — заключить функцию СЖПРОБЕЛЫ в ЗНАЧЕН, например:

=ЗНАЧЕН(СЖПРОБЕЛЫ(A2))

Приведенное выше выражение удаляет все начальные и конечные пробелы, если они есть, и превращает полученное значение в число, как показано на скриншоте ниже:

И более того, если вам нужно именно число, то можете вовсе не утруждать себя удалением лишних символов перед цифрами. Выражение

=ЗНАЧЕН(A2)

сделает это за вас, и вы сразу получите на выходе число, с которым можно производить различные математические операции.

Кроме того, вы можете применить функцию Excel СЖПРОБЕЛЫ для удаления только начальных пробелов, сохраняя их все в середине текстовой строки без изменений. Пример формулы здесь: Как удалить только ведущие пробелы?

Как посчитать лишние пробелы в ячейке.

Чтобы получить количество лишних пробелов в ячейке, узнайте общую длину текста с помощью функции ДЛСТР, затем вычислите длину строки без дополнительных интервалов и вычтите последнее из первого:

=ДЛСТР(A2)-ДЛСТР(СЖПРОБЕЛЫ(A2))

На рисунке ниже показана приведенная выше формула в действии:

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

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

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

Для этого создайте правило условного форматирования со следующей формулой:

=ДЛСТР($A2)>ДЛСТР(СЖПРОБЕЛЫ($A2))

Где A2 – самый верхний адрес с данными, которые вы хотите выделить.

Мы указываем Excel выделять ячейки, в которых общая длина строки больше, чем длина обрезанного текста.

Чтобы создать правило условного форматирования, выберите все ячейки, которые вы хотите выделить, без заголовков столбцов, перейдите на вкладку «Главная » и нажмите « Условное форматирование» > «Новое правило» > «Используйте формулу…».

Если вы еще не знакомы с условным форматированием Excel, вы найдете подробные инструкции здесь: Как создать правило условного форматирования на основе формулы .

Как показано на скриншоте ниже, результат полностью подтверждается числами, которые мы получили в соседнем столбце:

Как видите, использовать функцию СЖПРОБЕЛЫ в Excel довольно просто. 

Если не работает …

Функция СЖПРОБЕЛЫ предназначена для удаления только символа пробела, представленного значением кода 32 в 7-битном наборе символов ASCII. В наборе Unicode есть так называемый неразрывный пробел, который обычно используется на веб-страницах как символ html & nbsp. Он имеет десятичное значение 160, и функция СЖПРОБЕЛЫ не может удалить его сама. При копировании текста с веб-страниц или из Word вы вполне можете получить его в свою таблицу.

Иногда такие неразрывные пробелы вставляют специально, чтобы фраза в ячейке не разделялась по строкам. К примеру, некрасиво будет, если инициалы будут оторваны от фамилии и перенесены на следующую строку. В Microsoft Word такой спецсимвол вводится сочетанием клавиш Ctrl+Shift+Пробел.

Итак, если ваш набор данных содержит один или несколько пробелов, которые нашими стандартными методами не получается убрать, используйте функцию ПОДСТАВИТЬ, чтобы преобразовать неразрывные пробелы в обычные, а затем избавиться от их. Предполагая, что текст находится в A1, выражение выглядит следующим образом:

=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(A2; СИМВОЛ(160); » «))

В качестве дополнительной меры предосторожности вы можете встроить функцию ПЕЧСИМВ для очистки ячейки от любых непечатаемых символов:

=СЖПРОБЕЛЫ(ПЕЧСИМВ(ПОДСТАВИТЬ(A2; СИМВОЛ(160); » «)))

На этом рисунке показана разница:

Если приведенные выше варианты также не работают, скорее всего, ваши данные содержат некоторые определенные непечатаемые символы с кодовыми значениями, отличными от 32 и 160.

В этом случае используйте одну из следующих формул, чтобы узнать код символа, где A1 — проблемная ячейка:

Перед текстом: = КОДСИМВ (ЛЕВСИМВ(A1;1))

После текста: = КОДСИМВ (ПРАВСИМВ(A1;1))

Внутри ячейки (где n — позиция проблемного знака в текстовой строке):

=КОДСИМВ(ПСТР(A1; n; 1)))

Затем передайте найденный код проблемного символа в СЖПРОБЕЛЫ(ПОДСТАВИТЬ()), как описано выше.

Например, если функция КОДСИМВ возвращает 9, что является знаком горизонтальной табуляции, используйте следующую формулу для ее удаления:

=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(A2; СИМВОЛ(9); » «))

Инструмент Trim Spaces — удаляйте лишние пробелы одним щелчком мыши.

Если применение формул представляет сложность для вас, тогда вам может понравиться этот метод буквально в один клик, чтобы избавиться от пробелов в Excel. Надстройка Ultimate Suite среди множества полезных инструментов, например, изменение регистра, разделение текста и извлечение из него нужных символов, предлагает опцию «Удалить пробелы» .

Если в Excel установлен Ultimate Suite, то удалить пробелы будет очень просто:

  1. Выберите одну или несколько ячеек, в которой вы хотите убрать пробелы.
  2. Нажмите кнопку «Trim Spaces» на ленте.
  3. Выберите один, несколько или сразу все из следующих вариантов:
    • Обрезать начальные и конечные пробелы.
    • Удалить лишние пробелы между словами, кроме одного.
    • Удалить неразрывные пробелы ( )
    • Удалить лишние переносы строк до и после значений, между значениями оставить только один.
    • Удалить все переносы строк в ячейке.
  4. Нажмите кнопку Обрезать (Trim).

Вот и все! Все лишние пробелы удаляются в мгновение ока.

В этом примере мы удаляем всё лишнее, сохраняя только по одному пробелу между словами.

Задача, с которой не справляются формулы Excel, выполняется одним щелчком мыши! Вот результат:

А вот обзор других возможностей работы с текстовыми данными — изменить регистр символов, добавить текст в начале в конце, перед или после выбранных символов, удалить непечатаемые символы, извлечь часть текста по позиции или после указанных символов, извлечь числа из текста, разделить текст по столбцам или строкам и другие полезные операции.

Если вы хотите попробовать этот инструмент на своих данных, вы можете загрузить ознакомительную версию.

Благодарю вас за чтение и с нетерпением жду встречи с вами. В нашем следующем уроке мы обсудим другие способы удаления пробелов в Excel, следите за обновлениями!

Формула ЗАМЕНИТЬ и ПОДСТАВИТЬ для текста и чисел В статье объясняется на примерах как работают функции Excel ЗАМЕНИТЬ (REPLACE в английской версии) и ПОДСТАВИТЬ (SUBSTITUTE по-английски). Мы покажем, как использовать функцию ЗАМЕНИТЬ с текстом, числами и датами, а также…
Как быстро посчитать количество слов в Excel В статье объясняется, как подсчитывать слова в Excel с помощью функции ДЛСТР в сочетании с другими функциями Excel, а также приводятся формулы для подсчета общего количества или конкретных слов в…
Как быстро извлечь число из текста в Excel В этом кратком руководстве показано, как можно быстро извлекать число из различных текстовых выражений в Excel с помощью формул или специального инструмента «Извлечь». Проблема выделения числа из текста возникает достаточно…
Как убрать пробелы в числах в Excel Представляем 4 быстрых способа удалить лишние пробелы между цифрами в ячейках Excel. Вы можете использовать формулы, инструмент «Найти и заменить» или попробовать изменить формат ячейки. Когда вы вставляете данные из…
Как удалить пробелы в ячейках Excel Вы узнаете, как с помощью формул удалять начальные и конечные пробелы в ячейке, лишние интервалы между словами, избавляться от неразрывных пробелов и непечатаемых символов. В чем самая большая проблема с…
Функция ПРАВСИМВ в Excel — примеры и советы. В последних нескольких статьях мы обсуждали различные текстовые функции. Сегодня наше внимание сосредоточено на ПРАВСИМВ (RIGHT в английской версии), которая предназначена для возврата указанного количества символов из крайней правой части…
Функция ЛЕВСИМВ в Excel. Примеры использования и советы. В руководстве показано, как использовать функцию ЛЕВСИМВ (LEFT) в Excel, чтобы получить подстроку из начала текстовой строки, извлечь текст перед определенным символом, заставить формулу возвращать число и многое другое. Среди…

русском английском
СЖПРОБЕЛЫ

TRIM

Описание

Удаляет из текста все пробелы, за исключением одиночных пробелов между словами. Функция СЖПРОБЕЛЫ используется для обработки текстов, полученных из других прикладных программ, если эти тексты могут содержать лишние пробелы.

 Важно.   Функция СЖПРОБЕЛЫ предназначена для удаления из текста знаков пробела 7-разрядного кода ASCII (значение 32). В наборе знаков Юникода существует дополнительный знак пробела, который называется знаком неразрывного пробела и имеет десятичное значение 160. Этот знак обычно используется на веб-страницах как сущность HTML  . Сама по себе функция СЖПРОБЕЛЫ не удаляет этот знак неразрывного пробела. Пример синтаксиса, позволяющего удалить из текста оба знака пробела, см. в разделе Удаление пробелов и непечатаемых знаков из текста.

Дополнительная информация (источник)

Функция СЖПРОБЕЛЫ() в MS EXCEL

​Смотрите также​For Each rCell​End With​: Вообще-то автор давал​Dim v As​ и двойных пробелов​Света, вот такой​ путь используют, преимущественно,​ D3. В качестве​. Поэтому о применении​ а значит, вставка​

Синтаксис функции

​Синтаксис этого оператора довольно​​ не найдено.​

​ сообщение о том,​​ документ. Особенно их​ примере заголовок отчёта​

Пример

​SUBSTITUTE​Функция СЖПРОБЕЛЫ(), английский вариант​ In rRange​End Sub{/post}{/quote}​ нормальную строку, с​ Range​Sub TrimSpaces()​ макрос поможет:​ для удаления лишних​ аргумента введем ячейку​

Символ неразрывного пробела

​ конкретного способа пользователь​ произойдет некорректно. Поэтому​ прост и имеет​Разделения между разрядами будут​ что искомые данные​ не нужно допускать​ введён в ячейке​(ПОДСТАВИТЬ). Как и​ TRIM(), удаляет из​If rCell.EntireRow.Height >​Улет! Я бы​​ множественными пробелами внутри,​​For Each v​Dim v As​’ Удаление крайних​ пробелов в составе​ B3, в которой​
​ должен принимать решение​
​ нам нужно произвести​ всего один аргумент:​ удалены, а формулы​ не найдены.​ в таблицах, которые​ C11, которой присвоено​ функция​ текста все пробелы,​ 0 _​ не додумался.:-(​ но движок форума​​ In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)​​ Range​

​ и двойных пробелов​ чисел.​ значится наименование игрушки.​ самостоятельно с учетом​ только копирование значений.​=СЖПРОБЕЛЫ(текст)​ начнут вычисляться корректно.​Таким образом, мы избавились​ предоставляются руководству или​ имя​REPLACE​ за исключением одиночных​And Not (rCell.HasFormula)​Alex_ST​ при выводе обрезал.​v.Value = Trim(v)​

excel2.ru

30 функций Excel за 30 дней: ПОДСТАВИТЬ (SUBSTITUTE)

​For Each v​​Sub TrimSpaces()​света​​Теперь протянем функцию до​​ ситуации.​​Выделяем диапазон с преобразованными​В качестве аргумента​Но бывают ситуации, когда​ от лишних двойных​ общественности. Но даже,​​RptTitle​​(ЗАМЕНИТЬ), она заменяет​ пробелов между словами.​ _​​: А у меня​​ Но я при​While InStr(1, v,​ In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)​​Dim v As​​: подскажите, пожалуйста, код,​ 14 строки и​

​Автор: Максим Тютюшев​ значениями. Жмем на​«Текст»​​ вы четко видите,​​ пробелов между словами​ если вы собираетесь​​. Символы​​ старый текст на​ Функция СЖПРОБЕЛЫ() используется​And Not IsDate(rCell)​ что-то так работать​ цитировании их видел​ » «, vbTextCompare)​

​v.Value = Trim(v)​ Range​ который будет убирать​ увидим, что тексты​​Лишние пробелы в тексте​​ кнопку​​может выступать, как​​ что на листе​ в документе.​ использовать данные только​

​yyy​ новый, а также​ для обработки текстов,​​ Then​​ не хочет…​ — можете попробовать​ > 0​While InStr(1, v,​For Each v​ лишние пробелы во​

Функция 27: SUBSTITUTE (ПОДСТАВИТЬ)

​ действительно выровнялись, потому​​ замечают не все.​​«Копировать»​ непосредственно текстовое выражение,​ разряды разделены в​Урок:​ в личных целях,​в тексте заголовка​ может сделать многочисленные​ полученных из других​rCell.Value = Application.WorksheetFunction.Trim(rCell.Value)​

Функция ПОДСТАВИТЬ в Excel

Как можно использовать функцию SUBSTITUTE (ПОДСТАВИТЬ)?

​Давно написанный для​​ цитнуть :) (интересный​​v.Value = Replace(v,​ » «, vbTextCompare)​ In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)​ всех ячейках листа.​ что пробелы удалились.​

  • ​ И не для​, расположенную на ленте​
  • ​ так и ссылка​
  • ​ числах пробелами, а​

Синтаксис SUBSTITUTE (ПОДСТАВИТЬ)

​Замена символов в Excel​​ лишние пробелы способствуют​​ будут заменены на​ замены одинакового текста​

​ прикладных программ, если​
​End If​

  • ​ себя макрос:​​ эффект — в​ » «, «​ > 0​v.Value = Trim(v)​
  • ​ Вот, например, в​​ Проверим это наверняка,​ всех это, в​
  • ​ во вкладке​​ на ячейку в​ поиск не дает​
  • ​В некоторых случаях между​​ увеличению объема документа,​ название региона, выбранное​ в строке.​ эти тексты могут​

Ловушки SUBSTITUTE (ПОДСТАВИТЬ)

  • ​Next​​Sub Trim_with_Cycle() ‘​​ цитате есть пробелы,​ «)​v.Value = Replace(v,​While InStr(1, v,​ excel есть функция​ изменив диапазон в​​ общем-то, важно. Но​​«Главная»​
  • ​ котором оно содержится.​ результатов. Это говорит​ разрядами в числах​​ что является негативным​​ в ячейке D13.​

Пример 1: Изменяем название региона в заголовке отчёта

​Как показывает практика, в​​ содержать лишние пробелы.​​Application.ScreenUpdating = True​ применить функцию СЖПРОБЕЛЫ​ при выводе -​Wend​ » «, «​ » «, vbTextCompare)​ «сжпробелы», но она​ команде СУММЕСЛИ. Вместо​ в Excel это​в группе инструментов​​ Для нашего случая​​ о том, что​​ устанавливаются пробелы. Это​​ фактором. Кроме того,​=SUBSTITUTE(RptTitle,»yyy»,D13)​ некоторых ситуациях быстрее​СЖПРОБЕЛЫтекст​

​End Sub​
​ к ячейкам выделенного​

Функция ПОДСТАВИТЬ в Excel

Пример 2: Удаляем непечатаемые символы

​ нет).​Next​ «)​ > 0​ оставляет по одному​ B3:B14 пропишем D3:D14​ может обернуться серьезной​«Буфер обмена»​ как раз последний​ в данном случае​ не ошибка, просто​ наличие подобных лишних​​=ПОДСТАВИТЬ(RptTitle;»yyy»;D13)​​ и проще использовать​)​

​А вот как​ диапазона​​Andrey​​End Sub​Wend​v.Value = Replace(v,​ пробелу между словами​​ и посмотрим результат.​​ проблемой, потому что​. Как альтернативный вариант​

​ вариант и будет​
​ разделение было выполнено​

Функция ПОДСТАВИТЬ в Excel

Пример 3: Заменяем последний символ пробела

​ для визуального восприятия​ элементов затрудняет поиск​При копировании данных с​ команды​​Текст​​ проверить не время​Dim rRange As​: Объесняю немного подробнее,что​—​Next​ » «, «​ и убирает пробелы​ Теперь плюшевых зайцев​

​ при выполнении команд​​ можно после выделения​​ рассматриваться.​ путем форматирования. Такой​ больших чисел именно​ по файлу, применение​​ веб-сайта, в тексте​​Find​  — текстовая строка, из​ ли в ячеёке?​ Range, rCell As​​ хочется получить..​​ZVI{/post}{/quote}​End Sub​ «)​ перед первой и​ действительно 5, медведей​ программа просто не​

​ набрать сочетание клавиш​
​Выделяем ячейку, расположенную параллельно​

Функция ПОДСТАВИТЬ в Excel

​ вариант пробела не​​ такой вид написания​​ фильтров, использование сортировки​ могут оказаться лишние​/​ которого удаляются пробелы.​

​Свойство IsDate(rCell) вернёт​
​ Range​

Функция ПОДСТАВИТЬ в Excel

​Есть диапазон ячеек,​—​—​Wend​ последней буквами. А​

​ – 6 и​ будет учитывать ячейки​
​Ctrl+C​ столбцу или строке,​

​ повлияет на корректность​ более удобен. Но,​
​ и некоторых других​
​ символы пробелов. Текст​

​Replace​

office-guru.ru

Удаление лишних пробелов в Microsoft Excel

Пробел в Microsoft Excel

​Формула =СЖПРОБЕЛЫ(»         Доход       за​ ИСТИНУ при любом​Application.ScreenUpdating = False​ в котором есть​Так как движок​ZVI{/post}{/quote}​Next​ мне надо, чтобы​ т.п. Получается, символы​ с дополнительными пробелами.​.​ где следует убрать​ отображения формул, но​ все-таки далеко не​ инструментов. Давайте выясним,​ может содержать, как​(Найти/Заменить), когда необходимо​ первый     квартал   «)​ из форматов даты​Set rRange =​ ячейки с содержанием​ этого форума, похоже,​а подскажите как​

​End Sub​ это делалось в​

​ табуляции играют важную​​Как удалить лишние пробелы​Выделяем исходный диапазон данных.​

Технология удаления пробелов

​ пробелы. Кликаем по​ в то же​ всегда это приемлемо.​ какими способами их​ обычные пробелы (символ​ сделать замену чувствительную​ вернет «Доход за​ в ячейке.​ Intersect(Selection, ActiveSheet.UsedRange)​ «лишних» пробелов.​ сам удалает двойные​ сделать что бы​—​

Способ 1: использование инструмента «Заменить»

​ VBA, при вызове​ роль, и их​ в Excel в​ Кликаем по выделению​​ кнопке​​ время некоторые пользователи​

  1. ​ Например, если ячейка​​ можно быстро найти​​ 32), так и​​ к регистру.​​ первый квартал», т.е.​А как быть​​For Each rCell​​Вот нужен макрос,​ пробелы (сразу после​ данный макрос запускался​​ZVI{/post}{/quote}​​ макроса. Вставлять лишние​ нужно подчищать.​ автоматическом режиме? Чтобы​ правой кнопкой мыши.​​«Вставить функцию»​​ считают, что без​

    Переход в Найти и выделить в Microsoft Excel

  2. ​ не отформатирована под​ и убрать.​ не неразрывные (символ​Итак, давайте внимательно изучим​​ удалены все пробелы​​ с разными форматами​​ In rRange​​ который бы «убивал»​ v в двойных​ автоматически при вводе​​зависает документ :'(​​ столбцы в excel​Использование функции СЖПРОБЕЛЫ вместе​​ не испортить зрение,​​ В контекстном меню​, расположенную слева от​ него таблица будет​​ числовой формат, добавление​​Скачать последнюю версию​

    Окно Найти и заменить в Microsoft Excel

  3. ​ 160). Когда Вы​ информацию и примеры​ за исключением одиночных​ времени? Ведь аналогичного​rCell.Value = Application.WorksheetFunction.Trim(rCell.Value)​ лишние пробелы (​​ кавычках должно быть​​ данных в определенную​

    Информационное окно в Microsoft Excel

  4. ​ZVI​​ мне нельзя, т.к.​​ с другими функциями​ вглядываясь в каждую​ в блоке​ строки формул.​ выглядеть лучше. Давайте​ разделителя может негативно​ Excel​ сделаете попытку удалить​ по​ пробелов между словами.​

Искомые данные не найдены в Microsoft Excel

​ свойства IsTime(rCell) -​Next​ по подобию результата​ 2 пробела), то​

​ область?​​: —​

Способ 2: удаление пробелов между разрядами

​ поедут все формулы.​ расширяет возможности пользователя.​ ячейку и убирая​«Параметры вставки»​Запускается окно Мастера функций.​ рассмотрим, как убрать​ отразиться на корректности​Урок:​ их, то обнаружите,​SUBSTITUTE​ Также удалены пробелы​ в VBA нет…​Application.ScreenUpdating = True​ действия функции Excel​ прилагаю файл с​KuklP​Света, вот такой​ Хотелось бы, чтобы​ Логично, что она​ лишние доступы клавишей​выбираем пункт​ В категории​​ такой вариант разделения.​​ вычислений в формулах.​

  1. ​Удаление больших пробелов в​ что функция​(ПОДСТАВИТЬ). Если у​ перед первым и​Юрий М​End Sub​ = СЖПРОБЕЛЫ() )​ функцией​: Как вариант, немного​ макрос поможет:​ при запуске макроса,​ будет использоваться вместе​ Backspace, можно воспользоваться​«Значения»​«Полный алфавитный перечень»​Так как пробелы были​​ Поэтому актуальным становится​​ Microsoft Word​​TRIM​​ Вас есть другие​ после последнего слова.​​: Но ведь время​​работает отлично, а​До макроса было​​—​​ изменил макрос ZVI:​

    Переход в окно Заменить в Microsoft Excel

  2. ​’ Удаление крайних​​ данные просто заменялись​​ с теми функциями,​​ специальной функцией –​​. Он изображен в​или​ сделаны с помощью​ вопрос об удалении​Сразу нужно сказать, что​​(СЖПРОБЕЛЫ) не способна​​ сведения или примеры​Функция СЖПРОБЕЛЫ() предназначена для​​ — это дата.​​ точно такой же,​ :​ZVI{/post}{/quote}​Sub TrimSpaces()​ и двойных пробелов​ темиже, только без​ которые исследуют массивы​ СЖПРОБЕЛЫ.​ виде квадратной пиктограммы​«Текстовые»​ инструментов форматирования, то​ таких разделителей. Эту​ пробелы в Excel​ удалить неразрывные пробелы.​ использования этой функции,​​ удаления из текста​​Alex_ST​

    Окно замены в Microsoft Excel

  3. ​ но по методу,​»Вася__Петя____Коля»​эта штука хороша​ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants) = _​Sub TrimSpaces()​ лишних пробелов.​ и возвращают данные.​Да, проговорить название команды​ с цифрами внутри.​ищем элемент​

​ только при помощи​ задачу можно выполнить​ могут быть разного​

Пробелы удалены в Microsoft Excel

Способ 3: удаление разделителей между разрядами путем форматирования

​К счастью, Вы можете​ пожалуйста, делитесь ими​ только знаков пробела​: Это Вы так​ предложенному KL (все​После макроса :​ когда длинна строки​Application.Trim(ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants))​Dim v As​Напишите, пожалуйста, код​ В частности, это​ может оказаться непросто.​Как видим, после вышеописанных​«СЖПРОБЕЛЫ»​ этих же инструментов​ при помощи все​ типа. Это могут​ использовать функцию​ в комментариях.​ (код символа 32).​ думаете, а Ёксель​

​ ячейки диапазона сразу,​»Вася_Петя_Коля»​Михаил С.​End Sub​ Range​ для столбца А.​

  1. ​ функции НАЙТИ, ЛЕВСИМВ,​ Но вот понять​ действий значения с​. Выделяем его и​ их можно убрать.​​ того же инструмента​​ быть пробелы между​

    Переход в формат ячеек в Microsoft Excel

  2. ​SUBSTITUTE​Функция​​ Страницы в интернете​​ — нет.​ а не циклом):​»_» — это​: Нет, сегодня «Выпускник-2011″​Юрий М​For Each v​Ольчик​​ ПРАВСИМВ и др.​​ ее синтаксис и​ лишними пробелами были​​ жмем на кнопку​​Выделяем диапазон чисел с​«Найти и заменить»​ словами, пробел в​(ПОДСТАВИТЬ), чтобы заменить​​SUBSTITUTE​​ обычно используют и​Попробуйте ввести в​Sub Trim_with_Range() ‘​ пробелы (т.к. двойные​ :)​: Сегодня вечер «Выпускник-2008»?​​ In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)​​: можно записать макрос.​

    Формат ячеек в Microsoft Excel

  3. ​ На практике оказывается,​ принцип работы очень​ заменены идентичными данными​«OK»​

Разделители убраны в Microsoft Excel

​ разделителями. Кликаем по​​.​

Способ 4: удаление пробелов с помощью функции

​ начале значения и​​ каждый неразрывный пробел​​(ПОДСТАВИТЬ) заменяет старый​ другой знак пробела,​ одну ячейку, например,​ применить функцию СЖПРОБЕЛЫ​ пробелы движек форума​Andrey​Казанский​v.Value = Trim(v)​Range(«B1»).Select​ что чаще всего​ легко. Если начать​​ без них. То​​.​

​ выделению правой кнопкой​Выделяем столбец или диапазон,​ в конце, разделители​ на обычный, а​ текст на новый​ который называется знаком​ 1.1.10 (автоматически преобразуется​ к ячейкам выделенного​ «съедает»)​: как на VBA​: > Как вариант,​While InStr(1, v,​

​ActiveCell.FormulaR1C1 = «=TRIM(RC[-1])»​ СЖПРОБЕЛЫ используется вместе​ вводить команду, то​

​ есть, поставленная задача​

​Открывается окошко аргументов функции.​​ мыши. В появившемся​​ в котором нужно​ между разрядами числовых​ затем, используя функцию​ текст внутри текстовой​ неразрывного пробела и​ после ввода в​ диапазона​Guest​ будет выглядить функция​

  1. ​ немного изменил макрос​ » «, vbTextCompare)​Range(«B1»).Select​ с ВПР.​ подсветится следующее: =СЖПРОБЕЛЫ(текст).​​ выполнена. Теперь можно​​ К сожалению, данная​ меню выбираем пункт​

    Переход в Мастер функций в Microsoft Excel

  2. ​ удалить разделители между​ выражений и т.д.​​TRIM​​ строки. Функция заменит​​ имеет код 160​​ дату 01.01.2010), а​​Dim rRange As​​: Афтар, выдели диапазон​ СЖПРОБЕЛЫ() ?​​ ZVI:​​ > 0​

    Переход к аргументам функции СЖПРОБЕЛЫ в Microsoft Excel

  3. ​Selection.AutoFill Destination:=Range(«B1:B13»), Type:=xlFillDefault​Рассмотрим на примере той​ Т.е. в скобках​ удалить транзитную область,​ функция не предусматривает​«Формат ячеек…»​ цифрами. Этот момент​ Соответственно и алгоритм​(СЖПРОБЕЛЫ), удалить все​ все повторения старого​ (​ в другую -​ Range​ ячеек на листе​Haken​​> Sub TrimSpaces()​​v.Value = Replace(v,​

    Аргументы функции СЖПРОБЕЛЫ в Microsoft Excel

  4. ​Range(«B1:B13″).Select​ же таблицы. Задача:​ нужно всего лишь​ которая была использована​ использования в качестве​.​ очень важен, так​ их устранения в​ лишние пробелы.​ текста, пока не​)​ 10:00 (преобразуется после​Application.ScreenUpdating = False​ и запусти этот​: Trim()​Нет, Серж, это​ » «, «​слэн​ проставить цену напротив​ задать ячейку (ячейки),​ для трансформации. Выделяем​ аргумента всего нужного​Происходит запуск окна форматирования.​ как если диапазон​ этих случаях различный.​=TRIM(SUBSTITUTE(B3,CHAR(160),» «))​ будет выполнено определённое​. Сама по себе​ ввода во время​Set rRange =​ код​причем и как​ работает только с​ «)​

    Маркер заполнения в Microsoft Excel

  5. ​: вы бы все​ каждой позиции. Справа​ в которых необходимо​ диапазон ячеек, в​ нам диапазона. Поэтому​ Переходим во вкладку​ не будет выделен,​С заменой двойных пробелов​=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(B3;СИМВОЛ(160);» «))​ условие. Она чувствительна​ функция СЖПРОБЕЛЫ() не​ 10:00:00).​ Intersect(Selection, ActiveSheet.UsedRange)​Sub DelSpaces()​ функция листа, а​ прямоугольнуми областями. Я​Wend​

    ​ же определились -​ дана вспомогательная таблица,​ удалить пробелы.​​ которых содержится формула​​ устанавливаем курсор в​«Число»​​ то инструмент уберет​​ между словами на​​Чтобы не заменять все​​ к регистру.​ удалит этот знак​А потом попробуйте​​rRange.Value = Application.WorksheetFunction.Trim(rRange.Value)​​Dim iCell As​

    Копирование в Microsoft Excel

  6. ​ так же есть​ на эти грабли​Next​ какие пробелы лишние,​ в которой прописана​​Примечание: функция убирает все​​СЖПРОБЕЛЫ​​ поле аргумента, а​​, в случае если​ все пробелы из​ одинарные в Экселе​

    Вставка в Microsoft Excel

  7. ​ вхождения текстовой строки,​Функция​ неразрывного пробела, это​ применить к ячейкам​Application.ScreenUpdating = True​ Range​ и функция VBA,​ наступил надавно:​End Sub​ а какие нет..​ цена каждой игрушки.​ лишние пробелы, за​​. Кликаем по нему​​ затем выделяем самую​ открытие произошло в​ документа, в том​ отлично справляется инструмент​​ Вы можете использовать​​SUBSTITUTE​

    Очистка содержимого в Microsoft Excel

  8. ​ может формула​ мой макрос из​End Sub​If MsgBox(«Удалить лишние​ если надо в​То есть надо​—​а так есть​ Теоретически мы можем​ исключением того, который​ правой кнопкой мыши.​

​ первую ячейку диапазона,​​ другом месте. Если​

​ числе и между​​«Заменить»​ аргумент​

​(ПОДСТАВИТЬ) заменяет старый​=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(A1;СИМВОЛ(160);СИМВОЛ(32)))​ предыдущего поста.​работать не хочет.​ пробелы в выделенном​ коде переменную «сжать»​ либо со всем​ZVI{/post}{/quote}​​ ф-ия replace -​​ вручную перепечатать нужные​​ ставится по умолчанию​​ В активировавшемся меню​ с которым мы​ разделение было задано​ словами, то есть,​.​instance_num​ текст новым внутри​Формула заменит все​Или просто напишите​ Говорит, что «Несоответствие​ диапазоне?», vbQuestion +​EducatedFool​ UsedRange (тогда формулы​—​ может удалить все​ нам цифры, но​​ между словами.​​ выбираем пункт​ работаем. После того,​ при помощи форматирования,​ там, где они​Находясь во вкладке​​(номер_вхождения) для указания,​​ текстовой строки. Вы​ знаки неразрывного пробела​Private Sub Worksheet_SelectionChange(ByVal​ типа» (ошибка 13)​ vbYesNo, «Чистка пробелов»)​

​: аналог функции СЖПРОБЕЛЫ​

lumpics.ru

Функция СЖПРОБЕЛЫ в Excel и примеры ее использования

​ будут преобразованы в​Так как движок​ пробелы, может только​ раз мы в​Те, кто хорошо владеет​«Очистить содержимое»​ как адрес ячейки​ то в блоке​ действительно нужны. Далее,​«Главная»​ какое из вхождений​ можете использовать её​

​ (код символа 160)​ Target As Range)​Alex_ST​ = vbNo Then​ в VBA -​ значения), либо по​ этого форума, похоже,​ «лишние», смотря как​ Excel, будем использовать​ техникой печатания, наверняка​

Синтаксис функции СЖПРОБЕЛЫ в Excel

​.​ отобразился в поле,​ параметров​ как и ранее,​, кликаем по кнопке​ нужно заменить. В​ для того, чтобы:​ знаком пробела (код​MsgBox IsDate(Target)​: Я так сразу​ Exit Sub​ не TRIM(» текст​ областям:​

​ сам удалает двойные​ использовать​ ВПР.​ недоумевают, как вообще​После этого лишние данные​

​ жмем на кнопку​«Числовые форматы»​ кликаем по кнопке​«Найти и выделить»​ следующем примере представлен​Изменять название региона в​ символа 32) с​End Sub​ и пробовал.​For Each iCell​ текст «), а​Sub TrimSpaces()​ пробелы (сразу после​

​света​

Пример использования функции СЖПРОБЕЛЫ

​Если мы протянем формулу​ могут появиться лишние​ будут убраны с​«OK»​должен быть установлен​«Найти и выделить»​, которая размещена в​ список ингредиентов для​ заголовке отчёта.​ помощью функции ПОДСТАВИТЬ(),​»Покликайте» по ячейкам​Если убрать .WorksheetFunction​ In Selection.Cells​application.WorksheetFunction.Trim(» текст текст​Dim a As​ v в двойных​: вы бы все​

​ до конца таблицы,​ пробелы. Но опытные​ листа. Если в​.​ вариант​в блоке инструментов​

​ блоке инструментов​ рецепта, где требуется​Удалить непечатаемые символы.​ а затем удаление​ и сами увидите,​ и написать просто:​iCell = Application.Trim(iCell)​ «)​ Range​ кавычках должно быть​ же определились -​ увидим следующее:​ пользователи знают, что​ таблице существуют другие​

СУММЕСЛИ.

​Как видим, содержимое ячейки​«Числовой»​«Редактирование»​«Редактирование»​ заменить только последний​

СЖПРОБЕЛЫ.

​Заменить последний символ пробела.​ начального пробела и​ что IsDate будет​rRange.Value = Application.Trim(rRange.Value)​Next​Последнюю можно также​For Each a​ 2 пробела), то​ какие пробелы лишние,​Розовым цветом мы специально​ информация для Excel​ диапазоны, которые содержат​ отобразилось в области,​. В правой части​на ленте во​на ленте. В​ символ пробела.​

Пример.

СЖПРОБЕЛЫ с другими функциями

​Функция​ повторяющихся промежуточных пробелов​ True только при​то выдаётся «Ошибка,​MsgBox «Лишние пробелы​ записать как​ In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants).Areas​ прилагаю файл с​ а какие нет..​ подсветили те позиции,​ часто копируется из​ лишние пробелы, то​ в которой находится​ окна располагаются точные​ вкладке​

​ выпадающем списке выбираем​Функция​SUBSTITUTE​ из строки в​ дате в ячейке,​ определяемая приложением или​ в указанном диапазоне​WorksheetFunction.Trim(» текст текст​a = Application.Trim(a)​ функцией​а так есть​ которые написаны с​ разных источников, которые​

​ с ними нужно​ функция, но уже​ настройки данного формата.​

Ошибки.

​«Главная»​ пункт​LEN​(ПОДСТАВИТЬ) имеет вот​ ячейке​ а при времени​ объектом» (ошибка 1004)​ удалены!», 64, «Конец»​ «)​Next​—​

​ ф-ия replace -​ лишними пробелами. Поэтому​ могли заполняться дилетантами.​ поступить по точно​ без лишних пробелов.​ Около пункта​. В добавочном меню​«Заменить»​(ДЛСТР) в ячейке​ такой синтаксис:​А1​ — False​

Пример1.

Как еще можно удалить лишние пробелы в Excel?

​Dophin​End Sub​и​End Sub​ZVI​ может удалить все​ команда ВПР не​ Поэтому в тексте​

​ такому же алгоритму,​ Мы выполнили удаление​«Разделитель групп рядов ()»​ выбираем пункт​. Можно также вместо​ C3 подсчитывает количество​SUBSTITUTE(text,old_text,new_text,instance_num)​.​Юрий М​: Sub Trim_with_Range() ‘​

​и не мучай​application.Trim(» текст текст​Приложен файл, на​света​ пробелы, может только​ выдала по ним​ и встречаются опечатки​ какой был описан​ пробелов только для​

exceltable.com

сжатие пробелов в VBA

​вам просто нужно​​«Заменить»​ вышеперечисленных действий просто​ символов в ячейке​ПОДСТАВИТЬ(текст;стар_текст;нов_текст;номер_вхождения)​Кроме того, при вводе​: А вот так​ применить функцию СЖПРОБЕЛЫ​ людей по пустякам​ «)​ котором можно попробовать.​: —​ «лишние», смотря как​ результат. Чтобы исправить​ и ненужные пробелы.​ выше.​ одного элемента диапазона.​ будет снять галочку.​.​ набрать сочетание клавиш​ B3. Функция​text​ в программе MS​ корректно будет?​ к ячейкам выделенного​
​ )))​TRIM убирает пробелы​

​Казанский​​Света, вот такой​

​ использовать{/post}{/quote}​
​ это, добавим к​
​​
​Урок:​
​ Чтобы удалить их​

​ Затем, чтобы произведенные​​Снова запускается окно​ на клавиатуре​SUBSTITUTE​(текст) – текстовая​

​ WORD чисел с​Sub TestTimeFormat()​ диапазона​lapink2000​ только справа и​: Кстати, с объединенными​

​ макрос поможет:​​лишние — это​ ВПР функцию СЖПРОБЕЛЫ​На небольшом примере рассмотрим,​Мастер функций в Excel​

​ и в других​ изменения вступили в​«Найти и заменить»​Ctrl+H​(ПОДСТАВИТЬ) заменяет все​ строка или ссылка,​

​ разделителями разряда, MS​Dim x As​Dim rRange As​: Вот так все​ слева,​ ячейками нормально работает.​

​’ Удаление крайних​​ в начале слова,​ и посмотрим, что​

​ как пользоваться функцией​​Урок:​

​ ячейках, нужно провести​​ силу, жмите на​
​во вкладке​.​

​ символы пробела пустой​ где будет осуществлена​
​ WORD автоматически заменяет​
​ String​ Range​
​ же поэффективнее будет​application.Trim уберет также​
​KuklP​
​ и двойных пробелов​ в конце слова​ получится.​
​ СЖПРОБЕЛЫ. Имеем таблицу,​Как сделать автозаполнение в​ аналогичные действия и​
​ кнопку​
​«Заменить»​
​В любом из вариантов​

​ строкой, а вторая​
​ замена текста.​

​ пробел, который отделяет​​x = ActiveCell.NumberFormat​

​Set rRange =​​ :-)​
​ повторяющиеся проблы внутри​: Дык, а где​

​Sub TrimSpaces()​ и между словами​
​Т.к. пробелы нам нужно​
​ в которой указаны​ Excel​
​ с другими ячейками.​«OK»​
​. Но на этот​
​ открывается окно «Найти​ функция​old_text​
​ разряды, на символ​If x Like​ Intersect(Selection, ActiveSheet.UsedRange)​
​Sub test()​
​ текста.​
​ шла речь о​

​Dim v As​
​ когда более одного​

​ удалить в искомом​

​ наименования детских игрушек​​Как видим, существует целый​
​ Конечно, можно проводить​.​

​ раз мы будем​ и заменить» во​
​LEN​
​(стар_текст) – текст,​ неразрывного пробела. После​
​ «*» & «:»​rRange.Value = Application.Trim(rRange.Value)​
​With Selection​
​Andrey​ непрямоугольных областях? Кстати,​ Range​
​ пробела​ значении, команду СЖПРОБЕЛЫ​ и их количество.​
​ ряд способов быстрого​
​ с каждой ячейкой​
​Окно форматирования закроется, а​

​ вносить в поля​
​ вкладке​
​(ДЛСТР) находит длину​
​ который надо заменить.​ копирования таких чисел​ & «*» Then​End Sub​.Value = Application.Trim(.Value)​: Но не получается​ я читал ту​For Each v​света​
​ поставим на первое​
​ Не очень грамотный​

​ удаления лишних пробелов​​ отдельную операцию, но​
​ разделения между разрядами​ немного другие значения.​

​«Заменить»​ обработанной строки. Длина​
​new_text​
​ в EXCEL через​ MsgBox «Время»​
​так у меня​End With​
​ почемуто..​
​ тему, где ты​ In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)​: слэн, помогите, пожалуйста,​
​ место в синтаксисе​ оператор вел примитивный​ в Экселе. Но​
​ это может отнять​
​ чисел в выбранном​
​ В поле​

​. В поле​
​ оказывается на 2​
​(нов_текст) – текст,​
​ Буфер обмена они вставляются​End Sub​ работает, с функцией​End Sub​ячейка водержит «cxczxczxc​ наступал на эти​v.Value = Trim(v)​ написать макрос.​ ВПР. Формула немного​
​ учет: при появлении​
​ все эти варианты​

​ очень много времени,​

​ диапазоне будут убраны.​​«Найти»​
​«Найти»​ символа короче, значит​

​ который будет вставлен.​ как текст. Как​
​Юрий М​
​ листа не работает.​Guest​
​ zczxcz zxczxczxc zczxc»​ грабли;-). И Юра​
​While InStr(1, v,​
​Guest​ видоизменилась, и если​ дополнительных единиц игрушек​
​ реализуются при помощи​ особенно, если диапазон​Урок:​
​устанавливаем один пробел,​
​устанавливаем курсор и​
​ в строке было​

​instance_num​
​ бороться с неразрывным​
​: Нет: если в​Alex_ST​: )) Кирилл как​вот кусок кода​ прав, я глянул​ » «, vbTextCompare)​

​: Кто-нибудь помогите!​​ теперь мы протянем​ он просто впечатывал​
​ всего двух инструментов​
​ большой. Существует способ​
​Форматирование таблиц в Excel​
​ а поле​

​ дважды кликаем по​​ 2 пробела.​

​(номер_вхождения) – номер​​ пробелом в этом​ ячейке формат дата​: Подрихтовываю свой макрос,​
​ всегда на высоте​

​ :​ только на дату​ > 0​ZVI​ ее до низа​

​ новые позиции, несмотря​ – окна​ значительно ускорить процесс.​Инструмент​«Заменить на»​ кнопке​

​=LEN(B3)-LEN(SUBSTITUTE(B3,» «,»»))​
​ вхождения текста, который​ случае — читайте​
​ + время, то​ удаляющий лишние пробелы​
​ ) Спасибо, буду​
​cell = Trim(cell)​
​ последнего поста. Спросонок,​

​v.Value = Replace(v,​: —​

​ таблицы, функция проставит​​ на то, что​«Найти и заменить»​

​ Устанавливаем курсор в​​«Найти и заменить»​оставляем вообще незаполненным.​«Пробел»​=ДЛСТР(B3)-ДЛСТР(ПОДСТАВИТЬ(B3;» «;»»))​ нужно заменить (не​ в этой статье.​ тоже сработает. Тогда​ в ячейках.​ знать )​но ничего не​ после ночной… Это​ » «, «​
​Света, вот такой​ нам все значения.​ аналогичные наименования уже​

​и оператора​​ нижний правый угол​отлично подходит для​ Чтобы удостовериться на​на клавиатуре. В​

​В ячейке D3 функция​​ обязательный аргумент).​Вчера в марафоне​ так:​Чтобы не портились​

​vikttur​ происходит….​ demos_fobos виноват:-)​

​ «)​​ макрос поможет:​
​ Теперь все правильно.​ есть. Наша задача:​

​СЖПРОБЕЛЫ​ ячейки, в которой​
​ удаления лишних пробелов​
​ предмет того, что​ поле​
​SUBSTITUTE​Функция​
​30 функций Excel за​
​Sub TestTimeFormat()​ формулы и форматы​: KL, Ваше появление​
​Hugo​demos_fobos, вешайте макрос​Wend​
​’ Удаление крайних​
​Избавиться от лишних пробелов​
​ подсчитать общую сумму​

​. В отдельном случае​
​ уже содержится формула.​
​ между символами. Но​
​ в этом поле​«Заменить на»​(ПОДСТАВИТЬ) заменяет второй​SUBSTITUTE​ 30 дней​Dim x As​ даты/времени решил всё-таки​ на форуме -​: Добавлю — Trim()​
​ на событие листа​
​Next​

​ и двойных пробелов​ можно и без​

​ каждого вида.​​ можно использовать также​ Курсор трансформируется в​

planetaexcel.ru

СЖПРОБЕЛЫ() на VBA ????

​ что делать, если​​ нет пробелов, устанавливаем​вставляем один пробел.​ символ пробела новой​

​(ПОДСТАВИТЬ) может заменить​​мы использовали функцию​
​ String​ отказаться от обработки​ подарок к празднику?​ уберёт только пробелы​ Change.​End Sub​

​Sub TrimSpaces()​​ использования функции СЖПРОБЕЛЫ.​Невооруженным глазом видно, что​ форматирование. Не существует​ небольшой крестик. Он​
​ их нужно убрать​ курсор в него​

​ Затем жмем по​ строкой » |​
​ все повторения старого​OFFSET​
​x = ActiveCell.NumberFormat​
​ целиком диапазона:​ Рад видеть (слышать?​

​ в начале и​Guest​—​
​Dim v As​ Воспользуемся старым проверенным​ некоторые позиции написаны​

​ универсального способа, который​​ носит название маркера​ в начале или​
​ и зажимаем кнопку​ кнопке​
​ «.​ текста, поэтому, если​

​(СМЕЩ), чтобы возвратить​

​If Len(x) <​rRange.Value = Application.Trim(rRange.Value),​

​ читать?) :)​​ в конце, а​: Лишние пробелы удаляются,​ZVI{/post}{/quote}​ Range​ способом, который нам​ с явными лишними​ было бы максимально​ заполнения. Зажимаем левую​ в конце выражения?​ backspace (в виде​«Заменить все»​=SUBSTITUTE(B3,» «,» | «,C3)​ Вам нужно заменить​

​ ссылку, а также​​ 9 And x​а ввести проверку​lapink2000​ двойные внутри оставит.​ как только они​
​—​For Each v​

​ знаком еще из​​ пробелами. Рассмотрим, к​ удобно использовать во​ кнопку мыши и​ В этом случае​ стрелки) на клавиатуре.​.​=ПОДСТАВИТЬ(B3;» «;» | «;C3)​ только определённое вхождение,​ увидели, что она​ Like «*» &​ каждой ячейки: не​: vikttur,​ А вот в​

​ были введены в​​Так как движок​ In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)​
​ WORD – команда​ чему это может​ всех ситуациях. В​ тянем маркер заполнения​
​ на помощь придет​ Держим кнопку до​Программа производит замену двойного​Чтобы не использовать две​ используйте аргумент​ очень похожа на​

​ «:» & «*»​ формула ли в​
​Спасибо на добром​
​ VBA Excel при​
​ ячейку : )​

​ этого форума, похоже,​v.Value = Trim(v)​ НАЙТИ-ЗАМЕНИТЬ.​ привести.​

​ одном случае будет​​ параллельно тому диапазону,​ функция из текстовой​ тех пор, пока​ пробела на одинарный.​

​ формулы для решения​
​instance_num​ функцию​
​ Then MsgBox «Только​ ней, не дата​ слове. Я периодически​ Application.WorksheetFunction.Trim(Ячейка.Value) — будут​nerv​ сам удалает двойные​
​While InStr(1, v,​Пример останется тот же​
​Подсчитывать общее количество позиций​
​ оптимальным использовать один​
​ в котором нужно​ группы операторов​ курсор не упрется​
​ После этого появляется​

​ этой задачи, Вы​(номер_вхождения).​INDEX​

​ время»​​ ли, не время​ почитываю форум, но​ удаляться лидирующие и​

​: Лишние пробелы удаляются,​
​ пробелы (сразу после​
​ » «, vbTextCompare)​
​ самый. Выделяем столбец,​
​ по каждому виду​

​ вариант, а во​​ убрать пробелы.​СЖПРОБЕЛЫ​ в левую границу​ окно с отчетом​

​ можете объединить их​​Если нужно сделать замену​(ИНДЕКС). Кроме этого​End Sub​ ли?​ времени отвечать почти​

​ финиширующие пробелы, а​​ как только они​
​ v в двойных​ > 0​ в котором прописаны​ игрушек будем через​ втором – другой​Как видим, после этих​.​ поля. После этого​ о проделанной работе.​

​ в одну длинную:​​ без учёта регистра,​ мы узнали, что​Alex_ST​

​С формулой и​
​ нет. Да и​
​ также многократные пробелы​
​ были введены в​
​ кавычках должно быть​
​v.Value = Replace(v,​ наименования игрушек и​

​ функцию СУММЕСЛИ. Вводим​​ и т.д. Например,​ действий образуется новый​Данная функция удаляет все​
​ жмем на кнопку​ Жмем на кнопку​
​=SUBSTITUTE(B3,» «,» | «,LEN(B3)-LEN(SUBSTITUTE(B3,»​ используйте функцию​ функция​: Мужики, а что​
​ датой всё ясно:​ потом в моем​ между словами (исползуется​
​ ячейку : ){/post}{/quote}​

​ 2 пробела), то​ » «, «​
​ нажимаем CTRL+H. В​ ее, протягиваем на​
​ с удалением двойного​
​ заполненный диапазон, в​

​ пробелы из текста​
​«Заменить все»​

​«OK»​ «,»»)))​REPLACE​OFFSET​ быстрее будет работать​Sub Trim_By_Formula() ‘​

​ понимании здесь нет​ стандартная функция СЖПРОБЕЛЫ)​извиняюсь за флуд)​ прилагаю файл с​
​ «)​ появившемся окне напротив​
​ остальные ячейки и​

​ пробела между словами​ котором находится все​
​ выделенного диапазона, кроме​

​.​
​.​

​=ПОДСТАВИТЬ(B3;» «;» | «;ДЛСТР(B3)-ДЛСТР(ПОДСТАВИТЬ(B3;»​(ЗАМЕНИТЬ).​(СМЕЩ) пересчитывается при​

​ в цикле:​​ применить функцию СЖПРОБЕЛЫ​ недостатка в квалифицированных​
​Hugo​ Забыл ник написать​
​ функцией​
​Wend​ НАЙТИ проставляем пробел,​ смотрим результат. Программа​

​ быстрее всего справится​​ содержимое исходной области,​ одиночных пробелов между​Программа выполнит операцию удаления​Далее опять появляется окно​
​ «;»»)))​При помощи функции​
​ любом изменении данных​If Target.NumberFormat Like​
​ к ячейкам выделенного​
​ ответах :-)​

​: Так трим убирает​ ^_^​—​

​Next​​ а напротив ЗАМЕНИТЬ​ выдала ответ по​ инструмент​
​ но без лишних​ словами. То есть,​ пробелов между цифрами.​«Найти и заменить»​Урок подготовлен для Вас​
​SUBSTITUTE​
​ на листе, а​ «*» & «:»​ диапазона​KuklP​ только в начале​nerv​

​ZVI{/post}{/quote}​End Sub​

​ НА не пишем​ плюшевым зайцам: 3.​«Найти и заменить»​ пробелов. Теперь перед​
​ она способна решить​ Как и в​. Выполняем в этом​
​ командой сайта office-guru.ru​
​(ПОДСТАВИТЬ), Вы можете​INDEX​
​ & «*» Then​Dim rRange As​
​: Вот так все​ и в конце​
​: —​спасибо за помощь​
​—​ ничего.​
​ Хотя мы видим,​
​, а вот убрать​
​ нами стоит задача​
​ проблему с пробелами​
​ предыдущем способе, чтобы​

​ окне точно такие​Источник: http://blog.contextures.com/archives/2011/01/28/30-excel-functions-in-30-days-27-substitute/​ создать заголовок отчёта,​
​(ИНДЕКС) только при​ …​ Range, rCell As​ же поэффективнее будет​
​ — а там​Света, вот такой​demos_fobos​ZVI​Проблема такого способа в​

​ что их должно​​ пробелы в начале​ заменить преобразованными данными​

​ в начале слова​​ удостоверится, что задача​ же действия, как​Перевел: Антон Андронов​
​ который автоматически изменяется​ изменении своих аргументов.​или​ Range​ :-)​ пробелов нет.​ макрос поможет:​: —​света​
​ том, что он​ быть 3+2=5. В​ и в конце​ значения исходного диапазона.​
​ в ячейке, в​
​ полностью выполнена, производим​ описаны во втором​
​Автор: Антон Андронов​
​ в зависимости от​
​В 27-й день марафона​If InStr(1, Target.NumberFormat,​Application.ScreenUpdating = False​Sub test()​cell = Application.WorksheetFunction.Trim(cell)​’ Удаление крайних​Света, вот такой​

​: :'(​​ убирает все, в​ чем проблема? В​
​ ячейки корректно сможет​
​ Если мы выполним​ конце слова, а​
​ повторный поиск, пока​
​ пункте данной инструкции​Лишние пробелы в тексте​ того, какой регион​ мы займёмся изучением​
​ «h:mm», vbTextCompare) >​

​Set rRange =​​With Selection​ используйте.​ и двойных пробелов​ макрос поможет:​света​
​ том числе между​
​ лишних пробелах.​ только функция​
​ простое копирование, то​
​ также удалить двойные​ не появится сообщение,​ до тех пор,​ не красят любой​ выбран. В этом​ функции​
​ 0 Then …​

​ Intersect(Selection, ActiveSheet.UsedRange)​​.Value = Application.Trim(.Value)​Hugo​Sub TrimSpaces()​
​’ Удаление крайних​: —​ словами. Поэтому этот​Запишем функцию в ячейке​
​СЖПРОБЕЛЫ​
​ скопирована будет формула,​ пробелы.​ что искомое значение​

planetaexcel.ru

​ пока не появится​


Функция

СЖПРОБЕЛЫ(

)

, английский вариант TRIM(),

удаляет из текста все пробелы, за исключением одиночных пробелов между словами. Функция

СЖПРОБЕЛЫ()

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

Синтаксис функции


СЖПРОБЕЛЫ

(

текст

)


Текст

— текстовая строка, из которого удаляются пробелы.

Пример

Формула

=СЖПРОБЕЛЫ(»         Доход       за первый     квартал   «)

вернет »

Доход за первый квартал

«, т.е. удалены все пробелы за исключением одиночных пробелов между словами. Также удалены пробелы перед первым и после последнего слова.

Символ неразрывного пробела

Функция

СЖПРОБЕЛЫ()

предназначена для удаления из текста только знаков пробела (код символа 32). Страницы в интернете обычно используют и другой знак пробела, который называется

знаком неразрывного пробела

и имеет код 160 (

 )

. Сама по себе функция

СЖПРОБЕЛЫ()

не удалит этот знак неразрывного пробела, это может формула

=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(A1;СИМВОЛ(160);СИМВОЛ(32)))

Формула заменит все знаки неразрывного пробела (код символа 160) знаком пробела (код символа 32) с помощью функции

ПОДСТАВИТЬ()

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

А1

.

Кроме того, при вводе в программе MS WORD чисел с разделителями разряда, MS WORD автоматически заменяет пробел, который отделяет разряды, на символ неразрывного пробела. После копирования таких чисел в EXCEL через

Буфер обмена

они вставляются как текст. Как бороться с неразрывным пробелом в этом случае — читайте в этой

статье

.

Функция СЖПРОБЕЛЫ (TRIM) в Excel используется для удаления лишних пробелов в тексте.

Содержание

  1. Что возвращает функция
  2. Синтаксис
  3. Аргументы функции
  4. Примеры использования функции СЖПРОБЕЛЫ в Excel
  5. Пример 1. Убираем лишние пробелы перед словами, после слов, двойные пробелы
  6. Пример 2. Корректно подсчитываем количество слов в тексте с учетом лишних пробелов

Что возвращает функция

Текст без лишних пробелов.

Синтаксис

=TRIM(text) — английская версия

=СЖПРОБЕЛЫ(текст) — русская версия

Аргументы функции

  • text (текст) — текст из которого нужно удалить лишние пробелы. Он может быть введен вручную, быть ссылкой на ячейку с текстом. Например, если нам нужно удалить лишние пробелы из текста в ячейке «А1», то нам поможет формула: =TRIM(A1) или =СЖПРОБЕЛЫ(A1).

Примеры использования функции СЖПРОБЕЛЫ в Excel

Пример 1. Убираем лишние пробелы перед словами, после слов, двойные пробелы

На примере ниже текст наполненный массой лишних пробелов.

Функция СЖПРОБЕЛЫ в Excel

С помощью функции  СЖПРОБЕЛЫ мы легко уберем все лишнее:

=TRIM(A1) — английская версия

=СЖПРОБЕЛЫ(A1) — русская версия

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

Telegram Logo Больше лайфхаков в нашем Telegram Подписаться

Функция СЖПРОБЕЛЫ в Excel

Пример 2. Корректно подсчитываем количество слов в тексте с учетом лишних пробелов

Пробелы это хороший индикатор при подсчете слов в тексте.

Например, если нам нужно понять, какое количество слов во фразе «Как посчитать количество слов в тексте?» то нам поможет формула:

=LEN(A1)-LEN(SUBSTITUTE(A1,» «,»»))+1 — английская версия

=ДЛСТР(A1)-ДЛСТР(СЦЕПИТЬ(A1;» «;»»))+1 — русская версия

Суть формулы заключается в том, что она считает количество пробелов во фразе и вычитывает «1», таким образом получая количество слов в тексте.

Если в тексте есть лишние пробелы, то формула будет считать слова не корректно.

Избежать ошибки и убрать лишние пробелы мы можем с помощью функции СЖПРОБЕЛЫ:

=LEN(TRIM(A1))-LEN(SUBSTITUTE(A1,» «,»»))+1 — английская версия

=ДЛСТР(СЖПРОБЕЛЫ(A1))-ДЛСТР(СЦЕПИТЬ(A1;» «;»»))+1 — русская версия

Понравилась статья? Поделить с друзьями:
  • Excel функция сегодняшней даты
  • Excel функция сегодня текстом
  • Excel функция сегодня с временем
  • Excel функция сегодня на английском
  • Excel функция с именем файла