Макрос скрывающий пустые строки в excel

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

Как скрыть пустые строки средствами Excel?

Скрыть строки вручную

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

Скрыть строки используя сортировку

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

Программное скрытие макросом VBA

Теперь речь пойдет о том как программно скрыть пустые строки макросом. Возьмем процедуру, при помощи которой мы уже удаляли пустые строки и внесем в её программный код небольшие изменения. Заменим команду Rows(r).Delete на Rows(r).Hidden = True 

Sub Skryt_Pustye_Stroki()          
Dim r As Long, FirstRow As Long, LastRow As Long
FirstRow = ActiveSheet.UsedRange.Row
LastRow = ActiveSheet.UsedRange.Rows.Count - 1 + ActiveSheet.UsedRange.Row
    For r = LastRow To FirstRow Step -1
        If Application.CountA(Rows(r)) = 0 Then
            Rows(r).Hidden = True
        End If
    Next r
End Sub

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

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

Автоматическое скрытие с использованием надстройки

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

Пользователь на свой выбор может как удалить так и скрыть пустые строки. Может удалить либо скрыть строки содержащие либо не содержащие заданный текст. При поиске заданного текста пользователь на свой выбор может учитывать либо не учитывать регистр. Возможен одновременный поиск сразу нескольких значений, введенных через точку с запятой (;). Кроме того пользователь также может ограничивать диапазон действия макроса, задавая номера первой и последней обрабатываемой строки. Надстройка освобождает пользователя от поиска нужного макроса в списке доступных макросов, так как позволяет вызывать диалоговое окно прямо из панели инструментов Excel.

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

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

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

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

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

Откройте редактор Visual Basic (ALT+F11):

И воздайте в нем новый модуль для текущей книги «Insert»-«Module», а потом запишите в него следующий VBA-код макроса:

Sub SelectLine()
  Dim i As Long
  Dim diapaz1 As Range
  Dim diapaz2 As Range
Set diapaz1 = Application.Range(ActiveSheet.Range("A1"), _
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell))
For i = 1 To diapaz1.Rows.Count
If WorksheetFunction.CountA(diapaz1.Rows(i).EntireRow) = 0 Then
If diapaz2 Is Nothing Then
Set diapaz2 = diapaz1.Rows(i).EntireRow
Else
Set diapaz2 = Application.Union(diapaz2, diapaz1.Rows(i).EntireRow)
End If
End If
Next
If diapaz2 Is Nothing Then
MsgBox "Ненайдено ниодной пустой строки!"
Else
diapaz2.Select
End If
End Sub


Теперь если нам нужно автоматически выделить все пустые строки в таблице бюджета перед тем как их удалить, выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Макросы»-«SelectLine»-«Выполнить». В результате выделяться все пустые ячейки только для пустых строк внутри исходной таблицы.

Пример работы первого VBA-кода:

Пустые строки, которые находиться под последними заполненными ячейками не будут выделены. Теперь для удаления выделенных строк пользователю осталось только выбрать инструмент: «ГЛАВНАЯ»-«Ячейки»-«Удалить»-«Удалить строки с листа». Или нажать комбинацию горячих клавиш CTRL+=. А после в появившемся окне «Удаление ячеек» выбрать опцию «строку» и нажать ОК.

Вначале кода присваиваем для переменной diapaz1 диапазон ячеек в границах между A1 и последней используемой ячейкой на рабочем листе Excel.

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

Далее в цикле проверяются все строки в этом диапазоне, каждая по отдельности, на количество непустых ячеек. В том случаи если метод CountA возвращает значение 0, то адреса этих ячеек дополняют несмежный диапазон в переменной diapaz2 еще на одну пустую строку.

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



Макрос для удаления пустых строк

Как удалить строку макросом? Если нужно сделать так чтобы макрос автоматически не только выделял, но и сам удалял пустые целые и смежные диапазоны ячеек без использования других инструментов, тогда в конце кода для переменной diapaz2.Select следует изменить метод на [Delete]:

diapaz2.[Delete]

Удалить:

Sub DelLine()
  Dim i As Long
  Dim diapaz1 As Range
  Dim diapaz2 As Range
Set diapaz1 = Application.Range(ActiveSheet.Range("A1"), _
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell))
For i = 1 To diapaz1.Rows.Count
If WorksheetFunction.CountA(diapaz1.Rows(i).EntireRow) = 0 Then
If diapaz2 Is Nothing Then
Set diapaz2 = diapaz1.Rows(i).EntireRow
Else
Set diapaz2 = Application.Union(diapaz2, diapaz1.Rows(i).EntireRow)
End If
End If
Next
If diapaz2 Is Nothing Then
MsgBox "Ненайдено ниодной пустой строки!"
Else
diapaz2.[Delete]
End If
End Sub


Пример второго VBA-кода:

Макрос для скрытия пустых строк

Как скрыть пустые строки макросом? Но если вам нужно не удалить, а только скрыть (например, при подготовке документа на печать), тогда эту строку кода следует модифицировать несколько иначе:

diapaz2.EntireRow.Hidden = True

Скрыть:

Sub HidLine()
  Dim i As Long
  Dim diapaz1 As Range
  Dim diapaz2 As Range
Set diapaz1 = Application.Range(ActiveSheet.Range("A1"), _
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell))
For i = 1 To diapaz1.Rows.Count
If WorksheetFunction.CountA(diapaz1.Rows(i).EntireRow) = 0 Then
If diapaz2 Is Nothing Then
Set diapaz2 = diapaz1.Rows(i).EntireRow
Else
Set diapaz2 = Application.Union(diapaz2, diapaz1.Rows(i).EntireRow)
End If
End If
Next
If diapaz2 Is Nothing Then
MsgBox "Ненайдено ниодной пустой строки!"
Else
diapaz2.EntireRow.Hidden = True
End If
End Sub


Пример третьего VBA-кода:

Добавление строк макросом

Как вставить строки макросом? Если мы изменим код в этом же месте как показано ниже, то получиться инструмент для добавления и вставки строк после пустых:

diapaz2.[Insert]

Добавить:

Sub AddLine()
  Dim i As Long
  Dim diapaz1 As Range
  Dim diapaz2 As Range
Set diapaz1 = Application.Range(ActiveSheet.Range("A1"), _
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell))
For i = 1 To diapaz1.Rows.Count
If WorksheetFunction.CountA(diapaz1.Rows(i).EntireRow) = 0 Then
If diapaz2 Is Nothing Then
Set diapaz2 = diapaz1.Rows(i).EntireRow
Else
Set diapaz2 = Application.Union(diapaz2, diapaz1.Rows(i).EntireRow)
End If
End If
Next
If diapaz2 Is Nothing Then
MsgBox "Ненайдено ниодной пустой строки!"
Else
diapaz2.[Insert]
End If
End Sub


Пример четвертого VBA-кода:

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

Set diapaz1 = Selection

Читайте также: Как выделить столбцы в Excel макросом.

Внимание! Следует помнить о том, что если таким образом создавать экземпляр объекта для переменной diapaz1, то тогда нельзя перед запуском макроса выделять все ячейки листа или все ячейки любого столбца. Иначе это затормозит программу Excel, так как один лист содержит аж 1 048 576 строк и тогда они все будут обрабатываться макросом, а пользователь будет ждать.

Скрытие/отображение ненужных строк и столбцов

Постановка задачи

Предположим, что у нас имеется вот такая таблица, с которой приходится «танцевать» каждый день:

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

Задача — временно убирать с экрана ненужные в данный момент для работы строки и столбцы, т.е., 

• скрывать подробности по месяцам, оставляя только кварталы
• скрывать итоги по месяцам и по кварталам, оставляя только итог за полугодие
• скрывать ненужные в данный момент города (я работаю в Москве — зачем мне видеть Питер?) и т.д.

В реальной жизни примеров таких таблиц — море.

Способ 1. Скрытие строк и столбцов

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

Для обратного отображения нужно выделить соседние строки/столбцы и, щелкнув правой кнопкой мыши, выбрать в меню, соответственно, Отобразить (Unhide).

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

Способ 2. Группировка

Если выделить несколько строк или столбцов, а затем выбрать в меню Данные — Группа и структура — Группировать (Data — Group and Outline — Group), то они будут охвачены прямоугольной скобкой (сгруппированы). Причем группы можно делать вложенными одна в другую (разрешается до 8 уровней вложенности):

Более удобный и быстрый способ — использовать для группировки выделенных предварительно строк или столбцов сочетание клавиш Alt+Shift+стрелка вправо, а для разгруппировки Alt+Shift+стрелка влево, соответственно.

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

Кроме того, если в вашей таблице присутствуют итоговые строки или столбцы с функцией суммирования соседних ячеек, то есть шанс (не 100%-ый правда), что Excel сам создаст все нужные группировки в таблице одним движением — через меню Данные — Группа и структура — Создать структуру (Data — Group and Outline — Create Outline). К сожалению, подобная функция работает весьма непредсказуемо и на сложных таблицах порой делает совершенную ерунду. Но попробовать можно.

В Excel 2007 и новее все эти радости находятся на вкладке Данные (Data) в группе Структура (Outline):

Способ 3. Скрытие помеченных строк/столбцов макросом

Этот способ, пожалуй, можно назвать самым универсальным. Добавим пустую строку и пустой столбец в начало нашего листа и отметим любым значком те строки и столбцы, которые мы хотим скрывать:

Теперь откроем редактор Visual Basic (ALT+F11), вставим в нашу книгу новый пустой модуль (меню Insert — Module) и скопируем туда текст двух простых макросов:

Sub Hide()
    Dim cell As Range
    Application.ScreenUpdating = False                              'отключаем обновление экрана для ускорения
    For Each cell In ActiveSheet.UsedRange.Rows(1).Cells            'проходим по всем ячейкам первой строки
        If cell.Value = "x" Then cell.EntireColumn.Hidden = True    'если в ячейке x - скрываем столбец
    Next
    For Each cell In ActiveSheet.UsedRange.Columns(1).Cells         'проходим по всем ячейкам первого столбца
        If cell.Value = "x" Then cell.EntireRow.Hidden = True       'если в ячейке x - скрываем строку
    Next
    Application.ScreenUpdating = True
End Sub

Sub Show()
    Columns.Hidden = False   'отменяем все скрытия строк и столбцов
    Rows.Hidden = False
End Sub

Как легко догадаться, макрос Hide скрывает, а макрос Show — отображает обратно помеченные строки и столбцы. При желании, макросам можно назначить горячие клавиши (Alt+F8 и кнопка Параметры), либо создать прямо на листе кнопки для их запуска с вкладки Разработчик — Вставить — Кнопка (Developer — Insert — Button).

Способ 4. Скрытие строк/столбцов с заданным цветом

Допустим, что в приведенном выше примере мы, наоборот, хотим скрыть итоги, т.е. фиолетовые и черные строки и желтые и зеленые столбцы. Тогда наш предыдущий макрос придется немного видоизменить, добавив вместо проверки на наличие «х» проверку на совпадение цвета заливки с произвольно выбранными ячейками-образцами:

Sub HideByColor()
    Dim cell As Range
    Application.ScreenUpdating = False
    For Each cell In ActiveSheet.UsedRange.Rows(2).Cells
        If cell.Interior.Color = Range("F2").Interior.Color Then cell.EntireColumn.Hidden = True
        If cell.Interior.Color = Range("K2").Interior.Color Then cell.EntireColumn.Hidden = True
    Next
    For Each cell In ActiveSheet.UsedRange.Columns(2).Cells
        If cell.Interior.Color = Range("D6").Interior.Color Then cell.EntireRow.Hidden = True
        If cell.Interior.Color = Range("B11").Interior.Color Then cell.EntireRow.Hidden = True
    Next
    Application.ScreenUpdating = True
End Sub

Однако надо не забывать про один нюанс: этот макрос работает только в том случае, если ячейки исходной таблицы заливались цветом вручную, а не с помощью условного форматирования (это ограничение свойства Interior.Color). Так, например, если вы с помощью условного форматирования автоматически подсветили в своей таблице все сделки, где количество меньше 10:

…и хотите их скрывать одним движением, то предыдущий макрос придется «допилить». Если у вас Excel 2010-2013, то можно выкрутиться, используя вместо свойства Interior свойство DisplayFormat.Interior, которое выдает цвет ячейки вне зависимости от способа, которым он был задан. Макрос для скрытия синих строк тогда может выглядеть так:

Sub HideByConditionalFormattingColor()
    Dim cell As Range
    Application.ScreenUpdating = False
    For Each cell In ActiveSheet.UsedRange.Columns(1).Cells
        If cell.DisplayFormat.Interior.Color = Range("G2").DisplayFormat.Interior.Color Then cell.EntireRow.Hidden = True
    Next
    Application.ScreenUpdating = True
End Sub

Ячейка G2 берется в качестве образца для сравнения цвета. К сожалению, свойство DisplayFormat появилось в Excel только начиная с 2010 версии, поэтому если у вас Excel 2007 или старше, то придется придумывать другие способы.

Ссылки по теме

• Что такое макрос, куда вставлять код макроса, как их использовать
• Автоматическая группировка в многоуровневых списках

Удаление пустых строк в таблице Microsoft Excel

​Смотрите также​Dim cell As​temaram​если a1=0 то​ Ячейки ► Формат​Guest​ cell.Interior.Color = Range(«B11»).Interior.Color​ Each cell In​ либо на кнопку​ в данный момент​ в заданном диапазоне.​ в строке​D4​ помощи ключевого столбца​ Каким именно способом​Ещё одним вариантом скрыть​ время. В этом​Таблицы, в которых присутствуют​

​ Range​: все работает отлично!​

Стандартное удаление

​ скрыть эту строку​ ► Скрыть или​: ЕСЛИ(Лист2!D12=0;»»;Лист2!D12)​ Then cell.EntireRow.Hidden =​ ActiveSheet.UsedRange.Rows(1).Cells ‘проходим по​ со знаком «​ для работы строки​A2​Blanks​в столбце​Удаление пустых строк в​ лучше воспользоваться, зависит​ пустые ячейки является​ случае, должна помочь​ пустые строки, выглядят​Application.ScreenUpdating = False​ Спасибо!​

​если a2=0 то​ отобразить ► Скрыть​Guest​ True Next Application.ScreenUpdating​ всем ячейкам первой​+​ и столбцы, т.е.,​

​и​(Пустые) в самом​Traffic source​

​ таблице без ключевого​ от сложности таблицы,​ применение фильтра.​ сортировка.​ не очень эстетично.​For Each cell​У меня еще​ скрыть эту строку​ строки.​: Там где ячейки​ = True End​ строки If cell.Value​

​» или «​скрывать подробности по месяцам,​C2​ низу списка. Нажмите​оказалась пуста​

Сортировка

​ столбца​ и от того,​Выделяем всю область таблицы,​Выделяем всю табличную область.​ К тому же,​ In ActiveSheet.UsedRange.Columns(1).Cells​ вопрос!​если a3=0 то​Выделите строки и​ с формулами​ Sub​ = «x» Then​

​-​ оставляя только кварталы​– это соответственно​ОК​Если Ваша таблица не​Повсюду в интернете Вы​ как именно по​ и, располагаясь во​ Кликаем по ней​ из-за лишних строк​If cell.Value =​Нужно что программа​ скрыть эту строку​ щелкните правой кнопкой​Uralmaster​Однако надо не забывать​ cell.EntireColumn.Hidden = True​», либо на кнопки​скрывать итоги по месяцам​ первая и последняя​.​

​ велика, то Вы​ можете встретить простой​ ней разбросаны пустые​ вкладке «Главная», делаем​ правой кнопкой мыши,​ навигация по ним​ «» Then cell.EntireRow.Hidden​ просматривала 3 столбца​если a4=0 то​ мыши на заголовках​: ДИАПАЗОН В КОТОРОМ​

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

​ совет, якобы позволяющий​ строки (располагаются одним​

​ клик по кнопке​ и в контекстном​ может усложниться, так​ = True​ и в строке​

​ скрыть эту строку​ этих строк, а​ НАДО ПРИМЕНЯТЬ УСЛОВИЯ​ этот макрос работает​ x — скрываем​ уровня группировки в​ оставляя только итог​Скопируйте формулу на весь​

​ нажмите​ но в реальных​ удалить пустые строки:​ блоком, или перемешаны​ «Сортировка и фильтр»,​ меню выбираем пункт​ как придется прокручивать​Next​ и если они​как-то так​ потом в открывшемся​ — столбцы B:O​ только в том​ столбец Next For​ левом верхнем углу​

​ за полугодие​ столбец. Как это​

Применение фильтра

​Ctrl+Home​ таблицах с тысячами​Выделите данные от первой​

​ со строками, заполненными​ которая расположена в​ «Сортировка». После этого,​ больший диапазон ячеек​Application.ScreenUpdating = True​ все пустые, то​помогите пожалуйста)​ контекстном меню выберите​ не указал к​ случае, если ячейки​

​ Each cell In​ листа — тогда​скрывать ненужные в данный​ сделать – смотрите​, затем стрелку вниз,​ строк Вы можете​

​ до последней ячейки.​ данными).​ блоке настроек «Редактирование».​ появляется ещё одно​

​ для перехода из​End Sub​ скрывала всю строку,​ABC​

​ команду Скрыть.​ сожалению в примере​

Выделение ячеек

​ исходной таблицы заливались​ ActiveSheet.UsedRange.Columns(1).Cells ‘проходим по​ все группы нужного​ момент города (я​ пошаговую инструкцию Как​ чтобы перейти к​ неосознанно удалить дюжины​Нажмите​Автор: Максим Тютюшев​ В появившемся меню,​ меню. В нём​ начала таблицы в​sboy​ а если хотя​: пусто или 0?​

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

​ работаю в Москве​ вставить одинаковую формулу​ первой строке с​ нужных строк. Если​F5​В этой статье я​ делаем переход по​ нужно выбрать один​

​ конец. Давайте выясним,​: Добрый день.​ бы одна ячейка​

​если пусто​ строке (или ячейки​ который надо​ не с помощью​ столбца If cell.Value​ или разворачиваться сразу.​ — зачем мне​ сразу во все​ данными, а затем​ повезёт, Вы обнаружите​, чтобы открыть диалоговое​

​ объясню, почему удаление​ пункту «Фильтр».​ из следующих пунктов:​ какие существуют способы​Sub Hide()​ заполнена, то оставляла​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub test()​ в строках), которую​vikttur​ условного форматирования (это​ = «x» Then​Кроме того,​ видеть Питер?) и​

​ выбранные ячейки.​

lumpics.ru

Как удалить все пустые строки в Excel

​ нажмите​ потерю в течение​ окно​ пустых строк в​​В ячейках шапки таблицы​​ «Сортировка от А​​ удаления пустых строк​​Application.ScreenUpdating = False​ всю строчку. Подскажите​Dim i&​ нужно скрыть, и​: Меню Сервис-Параметры-Вид-Нулевые_значения (снять​ ограничение свойства Interior.Color).​ cell.EntireRow.Hidden = True​если в вашей таблице​ т.д.​Теперь в нашей таблице​Ctrl+Shift+End​

​ нескольких часов, восстановите​Go to​ Excel при помощи​ появляется характерный значок.​ до Я», «От​ в программе Microsoft​For r =​ пожалуйста как это​For i =​ нажмите Ctrl+9.​ галку).​ Так, например, если​ ‘если в ячейке​ присутствуют итоговые строки​В реальной жизни примеров​ есть ключевой столбец!​.​ рабочую книгу из​(Переход).​выделить пустые ячейки​ Кликаем по этому​ минимального к максимальному»,​

​ Excel, и как​ 4 To Cells(Rows.Count,​ можно сделать.​ 1 To 100​Как вариант, предварительно​Uralmaster​ вы с помощью​ x — скрываем​ или столбцы с​ таких таблиц -​ Примените фильтр к​Кликните правой кнопкой мыши​ резервной копии и​В диалоговом окне нажмите​>​ значку в любом​ или «От нового​ их убрать быстрее​ 2).End(xlUp).Row ‘Each cell​

• ​Создайте свою тему,​If Range(«A» &​ выделив нужные участки​
• ​: нужно по условию​ условного форматирования автоматически​
• ​ строку Next Application.ScreenUpdating​ функцией суммирования соседних​ море.​

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

​ столбцу​ по любой выделенной​ продолжите работу. А​ кнопку​

• ​удалить строку​ на ваш выбор​
• ​ к старому». Какой​​ и проще.​​ In ActiveSheet.UsedRange.Columns(6, 10,​ приложите файл с​​ i).Value = «»​​ в настройках печати​
• ​ в диапазоне именно​ подсветили в своей​​ = True End​​ ячеек​
• ​Способ, прямо скажем, примитивный​​Blanks​​ ячейке и из​ что если не​​Special​​– это плохая​ столбце.​​ именно из перечисленных​​Скачать последнюю версию​
• ​ 14, 18, 22).Cells​ примером в соответствии​ Then​ указать «Печатать только​​ столбцы B:O; если​​ таблице все сделки,​
• ​ Sub Sub Show()​​, то есть шанс​​ и не очень​​(выше дана пошаговая​​ контекстного меню выберите​​ повезёт, и у​​(Выделить).​

​ идея, и покажу​​В появившемся меню, снимаем​ пунктов будет находиться​ Excel​If Cells(r, 6).Value​ с Правилами форума.​Rows(i).EntireRow.Hidden = True​ выделенное»​​ там есть 1усл-просто​​ где количество меньше​ Columns.Hidden = False​ (не 100%-ый правда),​ удобный, но два​ инструкция, как это​​Delete row​​ Вас не будет​

​В диалоговом окне​ Вам 2 быстрых​ галочку с пункта​ в меню, зависит​​Самым известным и популярным​​ = «» Then​​ Эта тема закрыта​​Else: Rows(i).EntireRow.Hidden =​Оберошка​

​ пусте строки 2усл​ 10:​ ‘отменяем все скрытия​

​ что Excel​​ слова про него​​ сделать) чтобы показать​(Удалить строку) или​​ резервной копии?​​Go to special​​ и правильных способа,​​ «Пустые». Жмем на​

​ от типа данных,​ способом удаления пустых​If Cells(r, 10).Value​Есть таблица в которую​ False’​: фильтр установи на​ — пустые строки​…и хотите их скрывать​ строк и столбцов​сам создаст все нужные​ сказать можно. Любые​ строки только с​ просто нажмите​Далее в этой статье​(Выделить группу ячеек)​ как удалить пустые​ кнопку «OK».​ которые размещены в​

​ строк, является использование​ = «» Then​ выводятся результаты вычислений​End If​ данные «все кроме​ но попадаются 0​

Удаление пустых строк при помощи ключевого столбца

​ одним движением, то​ Rows.Hidden = False​ группировки​ выделенные предварительно строки​ максимальным значением (3).​Ctrl+-​ я покажу Вам​ отметьте пункт​ строки не разрушая​Как видим, после этого,​ ячейках таблицы.​

​ контекстного меню программы​If Cells(r, 14).Value​ в столбик​Next​ пустых»​ из-за введеных формул​ предыдущий макрос придется​

1. ​ End Sub​в таблице одним​ или столбцы на​​ Число​​(знак минус).​​ 2 быстрых и​​Blanks​
2. ​ данные. Все эти​ все пустые строки​После того, как вышеуказанная​​ Эксель. Чтобы убрать​​ = «» Then​​Задача:​​End Sub​
3. ​Алексей желтов​​то подобные строки​​ «допилить». Если у​Как легко догадаться, макрос​ движением — через​ листе можно скрыть,​3​​В появившемся окне с​​ надёжных способа удалить​(Пустые ячейки) и​ способы работают в​ исчезли, так как​ операция будет проделана,​ строки таким способом,​If Cells(r, 18).Value​​Необходимо скрыть те​​Евгений833​: Можно с помощью​​ скрываются​​ вас Excel 2010-2013,​
4. ​Hide​ меню​​ щелкнув по заголовку​​означает, что все​ вопросом​ пустые строки из​ нажмите​ Excel 2013, 2010​​ они были отфильтрованы.​​ все пустые ячейки​
5. ​ выделяем диапазон ячеек,​ = «» Then​ строки в таблице​: Красота!​​ надстройки http://vba-excel.ru/projects/addin_vba-excel/delete_range​​в моем случае​ то можно выкрутиться,​​скрывает, а макрос​​Данные — Группа и​
6. ​ столбца или строки​ ячейки в этой​​Delete entire sheet row?​​ листов Excel.​ОК​​ и в более​​Урок: Как использовать автофильтр​
7. ​ переместятся в самый​ который не содержит​​If Cells(r, 22).Value​​ результатов, значения которых​​Спасибо огромное, всё​​Как удалить, так​
8. ​ надо скрыть строки​ используя вместо свойства​Show​​ структура — Создать​​ правой кнопкой мыши​ строке пусты.​(Удалить всю строку​

Удаление пустых строк в таблице без ключевого столбца

​Этот метод работает, если​.​ старых версиях.​ в Microsoft Excel​ низ таблицы. Теперь,​ данных, и кликаем​ = «» Then​ равны 0​ работает!​ и скрыть​

​ с A8 и​Interior​- отображает обратно​ структуру​ и выбрав в​Далее выделите все отфильтрованные​ листа?) нажмите​ в Вашей таблице​

1. ​Кликните правой кнопкой мыши​Если Вы читаете эту​​Ещё один способ удаления​​ мы можем удалить​ правой кнопкой мыши.​Rows(r).Hidden = True​

   ​Есть формулы для​
​forirish​

   ​Sasha serkov​ все что ниже​свойство​ помеченные строки и​​(Data — Group and​​ контекстном меню команду​​ строки и удалите​​ОК​ есть столбец, который​ по любой из​

   

2. ​ статью, то, скорее​ использует выделение группы​ эти ячейки любым​ В раскрывшемся контекстном​End If​ этой цели, желательно,​: как пытающийся разобраться​
3. ​: Если нужно узнать​ ( одну пустую​DisplayFormat.Interior​ столбцы. При желании,​​ Outline — Create​​Скрыть​ их целиком. Как​.​ помогает определить, пуст​ выделенных ячеек и​ всего, постоянно работаете​​ пустых ячеек. Чтобы​​ из тех способов,​ меню делаем переход​End If​
4. ​ чтобы скрытие и​ новичок в VBA,​ как скрыть ячейки​ строку A7 оставить)​, которое выдает цвет​ макросам можно назначить​ Outline)​(Hide)​ это сделать –​Очистите применённый фильтр: на​ рассматриваемый столбец или​
5. ​ нажмите​ в Excel с​ использовать этот способ,​ о которых шла​ по пункту «Удалить…».​End If​ открытие происходило автоматически​ полагаю что если​ в excel, или​Uralmaster​​ ячейки вне зависимости​​ горячие клавиши (​​. К сожалению, подобная​​:​

   

​ описано выше.В результате​ вкладке​
​ нет (ключевой столбец).​
​Delete​

​ большими таблицами. Вы​

office-guru.ru

Скрытие/отображение ненужных строк и столбцов

Постановка задачи

​ сначала выделяем всю​ речь в первой​ Можно не вызывать​End If​ при появлении или​

​ надо скрыть ячейки​ точнее сказать как​: суть проблемы в​ от способа, которым​Alt+F8​ функция работает весьма​Для обратного отображения нужно​ пустая строка (строка​

​Data​ К примеру, это​(Удалить).​ знаете, что пустые​ таблицу. Затем, находясь​

• ​ части урока.​ контекстное меню, а​
• ​End If​ удалении данных в​ со значением «0»,​ скрыть строки или​
• ​ том что при​ он был задан.​и кнопка​ непредсказуемо и на​ выделить соседние строки/столбцы​ 5) будет удалена,​

​(Данные) нажмите кнопку​ может быть ID​В диалоговом окне​

Способ 1. Скрытие строк и столбцов

​ строки периодически появляются​ во вкладке «Главная»,​Если критически важен порядок​ набрать на клавиатуре​Next​ таблице результатов?​ то строка выглядит​ столбцы. То в​ сортировке по убыванию-возрастанию​ Макрос для скрытия​Параметры​ сложных таблицах порой​ и, щелкнув правой​​ все остальные строки​ ​Clear​​ покупателя или номер​

​Delete​ среди данных, ограничивая​ кликаем по кнопке​ размещения ячеек в​ сочетание клавиш «Ctrl+-».​​Application.ScreenUpdating = True​ ​Полосатый жираф алик​​ так: If Range(«A»​

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

Способ 2. Группировка

​ кнопкой мыши, выбрать​ (с пустыми ячейками​(Очистить).​ заказа, или что-то​​(Удаление ячеек) выберите​ работу большинства инструментов​ ​ «Найти и выделить»,​ таблице, то перед​​Появляется небольшое окошко, в​End Sub​: Никак. Никакая формула​ & i).Value =​ покажу 3 способа​ 0 значением попадают​ может выглядеть так:​

​ на листе кнопки​ Но попробовать можно.​ в меню, соответственно,​ или без) останутся​Отлично! Все пустые строки​​ подобное.​​Entire row​​ Excel с таблицами​​ которая расположена на​

​ тем как совершить​ котором нужно указать,​Donald​ не может повлиять​ «0» Then. вопрос​​ как это сделать.​​ в мою таблицу​​Sub HideByConditionalFormattingColor() Dim​​ для их запуска​В Excel 2007 и​Отобразить​ на своём месте.​ полностью удалены, а​Нам важно сохранить порядок​(Строку) и нажмите​ (сортировка, удаление дубликатов,​

​ ленте в группе​​ сортировку, вставляем в​ что конкретно мы​: Спасибо​ даже на формат​ вот в чем​​А также расскажу​ что неудобно​ cell As Range​​ с вкладки​ новее все эти​​(Unhide)​Теперь вспомогательный столбец можно​ строка​​ строк, поэтому мы​ОК​ промежуточные итоги и​ ​ инструментов «Редактирование». В​ середину таблицы ещё​ хотим удалить. Выставляем​​Donald​ своей ячейки (той,​ — если листов​ как отобразить эти​Uralmaster​ Application.ScreenUpdating = False​

​Разработчик — Вставить -​ радости находятся на​.​ удалить. Или Вы​​3​ ​ не сможем просто​​.​​ так далее), не​ ​ появившемся меню, кликаем​​ один столбец.​

Способ 3. Скрытие помеченных строк/столбцов макросом

​ переключатель в позицию​: Что значит этот​ в которой она​ несколько, и в​ скрытые строки или​: снятие нулевых значений​ For Each cell​ Кнопка (Developer -​ вкладке​Проблема в том, что​

​ можете применить другой​(Roger) по-прежнему на​​ отсортировать таблицу по​​Это очень плохой способ​ позволяя им правильно​ по пункту «Выделение​​Все ячейки этого столбца​​ «строку». Жмем на​ участок кода?​ стоит). Что говорить​

​ каждом надо скрыть​ столбцы в excel.​ не помогает​ In ActiveSheet.UsedRange.Columns(1).Cells If​ Insert — Button)​Данные​ с каждым столбцом​ фильтр, чтобы показать​ месте (сравните с​ этому столбцу, чтобы​, делайте так только​ определять диапазон данных.​ группы ячеек…».​ нумеруем по порядку.​ кнопку «OK».​Cells(Rows.Count, 2).End(xlUp).Row​ про другую. А​ строки с нулями,​Очень нужна Ваша​Юрий М​ cell.DisplayFormat.Interior.Color = Range(«G2»).DisplayFormat.Interior.Color​.​(Data)​ и строкой придется​ только те ячейки,​ результатом предыдущей попытки).​ переместить все пустые​ с очень простыми​ И каждый раз​Открывается окно, в котором​

​Затем, производим сортировку по​​После этого, все строки​​Смотрит где заканчивается​​ вот можно поставить​​ значащие столбцы в​ поддержка!​: Сначала сортировка, потом​ Then cell.EntireRow.Hidden =​Допустим, что в приведенном​​в группе​​ возиться персонально, что​​ в которых есть​​Воспользуйтесь этим способом, если​ строки вниз.​ таблицами с парой​ приходится вручную определять​​ переставляем переключатель в​ любому другому столбцу,​ выделенного диапазона будут​​ информация на листе?​

Способ 4. Скрытие строк/столбцов с заданным цветом

​ формат в ячейке,​ которых не совпадают,​Краткое содержание этого​ скрытие.​ True Next Application.ScreenUpdating​ выше примере мы,​Структура​ неудобно.​ одна или несколько​ в Вашей таблице​Выделите всю таблицу, от​ дюжин строк, которые​ границы, иначе итогом​ позицию «пустые ячейки».​

​ и удаляем перемещенные​ удалены.​ а цифра 2​ чтобы нуль отображало​ т е в​ видео:​Guest​ = True End​ наоборот, хотим скрыть​(Outline)​Если выделить несколько строк​ пустых ячеек.Для этого​ присутствуют многочисленные пустые​ первой до последней​ помещаются на одном​ будет неверный результат​ Жмем на кнопку​ вниз ячейки, как​Как альтернативный вариант, можно​ что значит?​

​ «пустышкой». Так можно…​ листе 1 напр.​0:20 Способ №1​: Интересует также скрытие​ Sub​ итоги, т.е. фиолетовые​:​ или столбцов, а​ снимите галочку в​ ячейки, разбросанные по​ строки (нажмите​ экране, а ещё​ и уйма потраченного​ «OK».​ уже описывалось выше.​ выделить ячейки в​Апострофф​

​Кстати, почему ты​ надо скрывать строки​ через контекстное меню​ O-х и пустых​Ячейка G2 берется в​ и черные строки​Этот способ, пожалуй, можно​​ затем выбрать в​​ строке со значением​​ разным столбцам, а​​Ctrl+Home​ лучше –​ времени на исправление​Как видим, после этого,​После этого, чтобы вернуть​ соответствующих строках, и​: Можно покороче, но​

​ не закрываешь свои​ с нулями в​0:44 Способ №2​ строк путем присваивание​ качестве образца для​ и желтые и​ назвать самым универсальным.​ меню​0​ Вам нужно удалить​

​, а затем​не делайте так совсем​ ошибок.​ все строки, содержащие​​ порядок строк к​​ находясь во вкладке​ медленнее -​ вопросы? Лень!​ столбце А, в​ сочетание клавиш (скрытие​ им нулевой высоты​ сравнения цвета. К​

planetaexcel.ru

Как скрыть пустые строки с «0» значением

​ пустые ячейки, выделились.​​ тому, который уже​
​ «Главная», кликнуть по​Sub Hide()​Александр пекарский​

​ листе 2 -​​ ячеек)​

​через макрос на​​ сожалению, свойство​ наш предыдущий макрос​

​ был перед сортировкой,​​ кнопке «Удалить», которая​Dim cell As​

​ то в ручную​​ и т.д., видимо​ через меню на​Юрий М​появилось в Excel​ добавив вместо проверки​ листа и отметим​ Outline — Group)​

​Урок подготовлен для Вас​​ с данными.​ Для этого на​

​ хотя бы одну​​ получили рабочую книгу​ кнопку «Удалить», расположенную​

​ колонке с номерами​​ инструментов «Ячейки» на​ Long​Abram pupkin​ куда-то нужно привязать​
​ панели​: И что? Цикл​

​ только начиная с​​ на наличие «х»​ любым значком те​, то они будут​ командой сайта office-guru.ru​В этом случае у​ вкладке​ пустую ячейку, то​

​ Excel от другого​​ на ленте в​

planetaexcel.ru

Можно ли скрыть в Excel пустые строки для распечатки, чтоб не печатать кучу пустых ячеек? Но не удалить, а скрыть.

​ строк «От минимального​​ ленте. После этого,​Application.ScreenUpdating = False​: ВЫключатель нулей​ функцию с активной​
​1:33 Отображение скрытых​ по строкам: если​ 2010 версии, поэтому​ проверку на совпадение​ строки и столбцы,​ охвачены прямоугольной скобкой​Источник: https://www.ablebits.com/office-addins-blog/2013/10/01/remove-blank-rows-in-excel/​ нас нет ключевого​Data​
​удалена будет вся строка​ человека или в​ группе инструментов «Ячейки».​ к максимальному».​ сразу произойдет удаление​For r =​https://otvet.mail.ru/question/167024191​
​ ячейкой, но не​ строк в excel​ в столбце В​ если у вас​ цвета заливки с​
​ которые мы хотим​ (сгруппированы). Причем группы​Перевел: Антон Андронов​ столбца, который бы​(Данные) нажмите кнопку​

​.​​ результате экспорта из​После этого, все пустые​Как видим, строки выстроились​

​ без дополнительных диалоговых​​ 4 To ActiveSheet.UsedRange.Rows.Count​Donald​
​ знаю куда. кроме​Ссылка на это​

​ ноль, или в​​ Excel 2007 или​ произвольно выбранными ячейками-образцами:​ скрывать:​ можно делать вложенными​Автор: Антон Андронов​ помог определить пуста​Filter​Например, у нас есть​ корпоративной базы данных,​
​ строки будут удалены​ в прежнем порядке,​ окон.​Rows(r).Hidden = Cells(r,​
​: Нужно скрыть строку​ того диапазон обработки​
​ видео https://youtu.be/2k9o6pWGqTc​ «жёлтом» диапазоне СчётЗначений​
​ старше, то придется​Sub HideByColor() Dim​
​Теперь откроем редактор Visual​ одна в другую​Предположим, что у нас​
​ строка или нет.​(Фильтр).​ таблица клиентов, всего​
​ или ненужные данные​ из таблицы.​
​ исключая пустые, которые​Конечно, способ очень простой​

Как скрыть строку, если в поределенной ячейке — пусто? (Формулы)

​ 6) & Cells(r,​​ если в столбцах​
​ не должен ограничиваться​Евгений833​ = 0, то​ придумывать другие способы.​ cell As Range​
​ Basic (​ (разрешается до 8​ имеется вот такая​ Поэтому, мы добавляем​Примените фильтр к столбцу​
​ 6 строк. Мы​ в строках были​
​Важное замечание! Последний способ​ удалены. Теперь, нам​
​ и известный. Но,​ 10) & Cells(r,​
​ F и J​ 100 строками, это​
​: Добрый день!​ скрываем строку.​
​Uralmaster​
​ Application.ScreenUpdating = False​

​ALT+F11​​ уровней вложенности):​
​ таблица, с которой​
​ вспомогательный столбец к​
​Cust#​
​ хотим удалить строки​ удалены вручную. В​
​ нельзя использовать в​ осталось только удалить​ является ли он​
​ 14) & Cells(r,​
​ и N и​ опять же в​
​Помогите кто чем​
​ran​
​: Есть в таблице​

​ For Each cell​​), вставим в нашу​
​Более удобный и быстрый​ приходится «танцевать» каждый​

​ таблице:​​. Для этого нажмите​3​ любом случае, если​ таблицах с перекрывающимися​ добавленный столбец с​ самым удобным, быстрым​ 18) & Cells(r,​ R и V​ каждом листе свое​ может — поиск​: Найдите 5 отличий!​ пустые строки с​ In ActiveSheet.UsedRange.Rows(2).Cells If​ книгу новый пустой​ способ — использовать​ день:​В конце таблицы добавьте​ кнопку со стрелкой​и​ Ваша цель –​ диапазонами, и с​ порядковыми номерами. Выделяем​ и безопасным?​ 22) = «»​ ячейки пустые (все​ определенное кол-во записей​ по форуму не​Сергей шепелев​ «0» значением тк​ cell.Interior.Color = Range(«F2»).Interior.Color​ модуль (меню​ для группировки выделенных​Кому таблица покажется маленькой​ столбец с именем​ в заголовке столбца,​5​ удалить все эти​ пустыми ячейкам, которые​ этот столбец. Затем​Если пустые строки расположены​Next​ 5), начиная с​ для обработки. можно​

​ дал ответ на​​: Для скрытия одной​ введены формулы и​
​ Then cell.EntireColumn.Hidden =​Insert — Module​
​ предварительно строк или​ — мысленно умножьте​Blanks​ снимите галочку в​, потому что они​ пустые строки и​ находятся в строках,​ кликаем по кнопке​ в одном месте,​Application.ScreenUpdating = True​ 4 строки и​ ли в этом​
​ мой простой вопрос​ или нескольких строк​ просто пустые​ True If cell.Interior.Color​) и скопируем туда​

excelworld.ru

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

​ = Range(«K2»).Interior.Color Then​​ текст двух простых​Alt+Shift+стрелка вправо​ в двадцать раз,​ формулу в первую​Select All​Сделайте так, как предложено​ аккуратную таблицу, то​ В этом случае,​ В раскрывшемся меню​ будет довольно легким.​sboy​
​Нашел примерный макрос​ универсальное для всей​ в определенных ячеках​

​ приведенных ниже способов.​​Пример в файле​ cell.EntireColumn.Hidden = True​

​ макросов:​​, а для разгруппировки​
​ добавив еще пару​

Cкрыть строки если ячейки пустые (Макросы/Sub)

​ ячейку столбца:​​(Выделить все), пролистайте​ выше, и получите​ следуйте простым шагам,​ может произойти смещение​ выбираем пункт «Удалить​ Но, если они​: ищем последнюю заполненную​ который можно дополнить​ книги целиком, например​
​ которых нет данных​Выделите ячейку в​k61​ Next For Each​
​Sub Hide() Dim​
​Alt+Shift+стрелка влево​
​ кварталов и два​=COUNTBLANK(A2:C2)​
​ вниз к концу​
​ такой результат:​ приведённым ниже:​
​ ячеек, и таблица​ столбцы с листа».​ раскиданы по всей​
​ строку во 2​
​ но у меня​
​ при нажатии пары​

​ (при нажатии на​​ строке (или ячейки​
​: наипростейший способ:​
​ cell In ActiveSheet.UsedRange.Columns(2).Cells​
​ cell As Range​, соответственно.​ десятка крупных российских​=СЧИТАТЬПУСТОТЫ(A2:C2)​ списка (на практике​
​Строка​Никогда не удаляйте пустые​
​ нарушится.​ После этого, нужный​
​ таблице, то их​ столбце​
​ не получилось((​ клавиш. надеюсь понятно​
​ кнопку)​ в строках), которую​
​в меню Вид​
​ If cell.Interior.Color =​
​ Application.ScreenUpdating = False​
​Такой способ скрытия ненужных​
​ городов.​
​Эта формула, как и​
​ этот список может​
​4​
​ строки, при помощи​


​Как видим, существует несколько​​ столбец будет удален.​

​ поиск и удаление​​Donald​Спасибо.​
​ написала. заранее огромное​

​При нажатии на​ нужно скрыть. Затем​ выбрать режим Разметка​ Range(«D6»).Interior.Color Then cell.EntireRow.Hidden​

​ ‘отключаем обновление экрана​​ данных гораздо удобнее​Задача — временно убирать​
​ обещает её имя,​
​ быть весьма длинным)​(Roger) тоже исчезла,​ выбора пустых ячеек​
​ способов удаления пустых​
​Урок: Сортировка в Microsoft​ может занять значительное​
​: Всем спасибо.​sub Hide()​ спасибо за помощь.​ кнопку​ выберите команду Главная ►​ страницы.​
​ = True If​
​ для ускорения For​
​ - можно нажимать​

​ с экрана ненужные​​ подсчитывает пустые ячейки​ и поставьте галочку​ потому что ячейка​

​Удаление пустых строк при​​ ячеек из таблицы.​

excelworld.ru

​ Excel​

Sub Макрос1()

    Dim i As Long

            ‘1. Отключение монитора, чтобы ускорить макрос. Это будет заметно,
        ‘ если надо работать с большим кол-вом строк.
    Application.ScreenUpdating = False

        ‘2. Двигаемся по строкам с 4 по 74.
    For i = 4 To 74

            ‘ Если в ячейке пусто или ноль.
        If (Cells(i, «G»).Value = «») Or (Cells(i, «G»).Value = 0) Then
            ‘ Скрытие строки.
            Rows(i).Hidden = True
        ‘ Если в ячейке не пусто и не ноль.
        Else
            ‘ Отображение строки.
            Rows(i).Hidden = False
        End If
    Next i

        ‘3. Вкл. монитора.
    Application.ScreenUpdating = True

    End Sub

[свернуть]