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

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

=SUBSTITUTE(A5," ","")

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

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

Sub NoSpaces()

Dim c As Range

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

Next End Sub

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

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

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

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

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

Этот совет (3037) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и новее) здесь:

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