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

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

=SUBSTITUTE(A5," ","")

В результате ячейка B5 содержит номер политики со всеми удаленными пробелами.

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

Sub NoSpaces()

Dim c As Range

For Each c In Selection.Cells         c = Replace(c, " ", "")

Next End Sub

Выберите ячейки, которые нужно изменить, а затем запустите макрос. Он проверяет каждую ячейку в выбранном диапазоне, удаляя все пробелы в этом диапазоне. Затем результат помещается обратно в ту же ячейку.

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

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (10741) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Removing_Spaces [Удаление пробелов].