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

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

  1. Выберите столбцы, которые представляют ваши данные. Убедитесь, что вы выбрали как часть диапазона все пустые столбцы.

  2. Выберите опцию «Сортировка» в меню «Данные». Excel отображает диалоговое окно «Сортировка».

  3. Щелкните кнопку Параметры. Excel отображает диалоговое окно «Параметры сортировки».

(См. Рис. 1.)

  1. Выберите переключатель Сортировать слева направо.

  2. Нажмите ОК, чтобы закрыть диалоговое окно Параметры сортировки.

  3. В первом раскрывающемся списке «Сортировать по» укажите строку, по которой нужно выполнить сортировку.

  4. Щелкните ОК.

При такой сортировке все пустые столбцы оказываются «сдвинутыми» вправо, а данные располагаются в отсортированном порядке.

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

Sub DeleteEmptyColumns()

first = Selection.Column     last = Selection.Columns(Selection.Columns.Count).Column     For i = last To first Step -1       If WorksheetFunction.CountBlank(ActiveSheet.Columns(i)) = 65536 Then         Columns(i).Delete       End If     Next i End Sub

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

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

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

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

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

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

link: / excelribbon-Deleting_Blank_Columns [Удаление пустых столбцов].