Как в Excel оставить только заполненные ячейки: удаляем пустоты за 5 минут

Работа с большими таблицами в Microsoft Excel часто превращается в борьбу с пустыми строками и столбцами. Они появляются после импорта данных, копирования из других источников или просто в результате неаккуратного заполнения. Пустые ячейки не только портят внешний вид документа, но и мешают анализу: искажают результаты формул, усложняют создание графиков и сводных таблиц.

Многие пользователи тратят часы на ручное удаление пустот, даже не подозревая, что в Excel есть встроенные инструменты для автоматизации этого процесса. В этой статье мы разберём 5 проверенных способов, как оставить только заполненные ячейки — от простейших методов для новичков до продвинутых техник с использованием Power Query и VBA. Вы узнаете, какой метод выбрать в зависимости от объёма данных и структуры таблицы, а также как избежать типичных ошибок при очистке.

Особое внимание уделим сохранению целостности данных: научимся удалять пустоты без потери важной информации и без нарушения связей между ячейками. Все инструкции сопровождаются скриншотами (в текстовом формате) и пошаговыми алгоритмами, которые сработают в Excel 2010–2021 и Microsoft 365.

1. Самый быстрый способ: фильтрация и удаление пустых строк

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

Алгоритм работает по принципу "отсеивания": сначала выделяются все пустые строки, затем они удаляются за один клик. Этот способ идеален для таблиц до 10 000 строк — с большими объёмами Excel может подвисать.

• 📌 Выделите весь диапазон данных (например, A1:D1000). Для этого кликните по первой ячейке, зажмите Shift и выберите последнюю.
• 🔍 Перейдите на вкладку Данные → нажмите кнопку Фильтр (или используйте горячие клавиши Ctrl+Shift+L).
• 📋 В выпадающем списке любого столбца снимите галочку с пункта (Пустые) и нажмите OK.
• ✂️ Выделите все отфильтрованные строки (они будут подсвечены), кликните правой кнопкой → Удалить строки с листа.
• 🔄 Не забудьте отключить фильтр после очистки: Данные → Фильтр.

⚠️ Внимание: Если в вашей таблице есть формулы, возвращающие пустые значения (например, =ЕСЛИ(A1=0;"";"Данные")), они тоже будут удалены. Чтобы этого избежать, предварительно замените формулы на статические значения через Копировать → Специальная вставка → Значения.

Убедитесь, что в таблице нет скрытых строк

Проверьте наличие формул с пустыми результатами

Сохраните резервную копию файла

Выделите весь диапазон данных, включая заголовки-->

2. Использование функции "Удалить дубликаты" для чистки данных

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

Преимущество способа: он сохраняет уникальные непустые строки, даже если они повторяются по содержимому. Например, если у вас в столбце A есть пустые ячейки, а в B и C — данные, строка не будет удалена.

• 📊 Выделите диапазон с заголовками (например, A1:C100).
• 🔄 Перейдите на вкладку Данные → Удалить дубликаты.
• 🎯 В открывшемся окне снимите все галочки, кроме тех столбцов, где нужно удалить пустоты (например, оставьте только Столбец A).
• 🗑️ Нажмите OK — Excel удалит все строки, где в выбранном столбце пусто.

💡 Полезный совет: Если вам нужно удалить строки, где все ячейки пустые, выделите весь диапазон и оставьте галочки на всех столбцах в окне Удалить дубликаты. Excel интерпретирует полностью пустую строку как дубликат и удалит её.

Фильтрация

Удаление дубликатов

Сортировка

VBA-макросы

Не удаляю пустоты-->

3. Сортировка как инструмент для группировки пустот

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

Важно: перед сортировкой добавьте вспомогательный столбец с номерами строк (например, пронумеруйте строки от 1 до N в столбце A). Это поможет восстановить исходный порядок данных после очистки.

• 📌 Добавьте слева от таблицы новый столбец и пронумеруйте строки (например, в A1 введите 1, в A2 — 2, затем протяните маркер автозаполнения вниз).
• 🔄 Выделите весь диапазон (включая вспомогательный столбец) и отсортируйте его по столбцу, где больше всего пустот. Для этого: Данные → Сортировка → выберите столбец → Настраиваемая сортировка → Пустые ячейки вверху.
• ✂️ После сортировки все пустые строки окажутся в начале или конце таблицы. Выделите их и удалите (ПКМ → Удалить).
• 🔙 Верните исходный порядок, отсортировав данные по вспомогательному столбцу с номерами.

⚠️ Внимание: Если в вашей таблице есть объединённые ячейки, сортировка может привести к ошибке. В этом случае сначала разъедините ячейки через Главная → Объединить и поместить в центре → Отменить объединение.

4. Продвинутый метод: Power Query для сложных таблиц

Если вы работаете с очень большими таблицами (100 000+ строк) или данными из внешних источников (например, CSV, SQL), лучший выбор — инструмент Power Query (доступен в Excel 2016 и новее). Он позволяет автоматизировать очистку и сохранять шаги для повторного использования.

Power Query не удаляет данные напрямую — он создаёт новую таблицу без пустот, сохраняя исходный файл нетронутым. Это идеально для работы с важными данными, где нельзя рисковать потерять информацию.

• 📥 Выделите вашу таблицу и перейдите на вкладку Данные → Из таблицы/диапазона (в Excel 2016–2019) или Получить данные → Из таблицы/диапазона (в Excel 365).
• 🔧 В открывшемся редакторе Power Query выберите столбец, где нужно удалить пустоты.
• 🗑️ Нажмите на стрелку в заголовке столбца → снимите галочку с (пусто) → OK.
• 💾 Нажмите Закрыть и загрузить → выберите Новый лист или Таблица.

Sub DeleteEmptyRows()
Dim rng As Range, row As Range, cell As Range
Dim isEmpty As Boolean
Dim lastRow As Long, i As Long

' Определяем диапазон данных (меняйте "A1" на вашу первую ячейку)
Set rng = Range("A1").CurrentRegion
lastRow = rng.Rows.Count

' Проходим по строкам с конца (чтобы не сбивались индексы)
For i = lastRow To 1 Step -1
isEmpty = True
For Each cell In rng.Rows(i).Cells
If Not IsEmpty(cell) And cell.Value <> "" Then
isEmpty = False
Exit For
End If
Next cell
If isEmpty Then
rng.Rows(i).Delete
End If
Next i
End Sub

=СЧЁТЗ(B2:D2)

Private Sub Workbook_Open()
Call DeleteEmptyRows ' Вызов макроса из предыдущего раздела
End Sub