Как правильно отфильтровать данные в табличке?

[PTO]

Подскажите, как сделать правильно фильтрацию или выборку данных из таблички, см. вложение Таблица Комплектация.rar.

В результате, после заполнения и фильтрации таблички нужно, чтобы остались только: строчка раздела и то, что заполнено ниже раздела.
Если в разделе ничего не заполнено - в итоговой табличке быть не должно ни раздела ни строчек таблички.

[Скрипт]

PTO, если средствами самой программы "Excel" нельзя сделать то, что вы хотите, то можно попробовать сделать макрос.

[NewStudent07]

Sub Macros_01()
'Если предположить, что Вы не будете добавлять новые/удалять старые строки в таблицу, то этот макрос будет работать на ура,
'но если будете, то его надо будет коректировать
Dim i As Long
Dim a As String
'Создаем дуликат таблицы, который будет основой для итоговой таблицы
Sheets("Лист1").Copy Before:=Sheets(1)
'Задаем нашему дубликату имя
a = InputBox("Введите имя итогоовой таблицы", , "Итоговая таблица")
ActiveSheet.Name = a

'Отключаем мерцание екрана
Application.ScreenUpdating = False

'Проверяем есть ли записи в разделе "Полы",
'Если нет, то этот раздел удаляем
If Range("D46").Value = "" And Range("D45").Value = "" And Range("D44").Value = "" And Range("D43").Value = "" And _
    Range("D42").Value = "" Then
    Range("B41").EntireRow.Delete
End If

'Проверяем есть ли записи в разделе "Конструкции встроенных помещений, вставки, ограждения",
'Если нет, то этот раздел удаляем
If Range("D40").Value = "" And Range("D39").Value = "" And Range("D38").Value = "" And Range("D37").Value = "" And _
    Range("D36").Value = "" And Range("D35").Value = "" And Range("D34").Value = "" And Range("D33").Value = "" And _
    Range("D32").Value = "" Then
    Range("B31").EntireRow.Delete
End If

'Проверяем есть ли записи в разделе "Грузоподъемные механизмы и конструкции",
'Если нет, то этот раздел удаляем
If Range("D30").Value = "" And Range("D29").Value = "" And Range("D28").Value = "" And Range("D27").Value = "" Then
    Range("B26").EntireRow.Delete
End If

'Проверяем есть ли записи в разделе "Ограждение проемов",
'Если нет, то этот раздел удаляем
If Range("D25").Value = "" And Range("D24").Value = "" And Range("D23").Value = "" And Range("D22").Value = "" And _
    Range("D21").Value = "" And Range("D20").Value = "" And Range("D19").Value = "" And Range("D18").Value = "" And _
    Range("D17").Value = "" Then
    Range("B16").EntireRow.Delete
End If

'Проверяем есть ли записи в разделе "Ограждающие конструкции",
'Если нет, то этот раздел удаляем
If Range("D15").Value = "" And Range("D14").Value = "" And Range("D13").Value = "" And Range("D12").Value = "" Then
    Range("B11").EntireRow.Delete
End If

'Проверяем есть ли записи в разделе "Конструкции каркаса",
'Если нет, то этот раздел удаляем
If Range("D10").Value = "" And Range("D9").Value = "" Then
    Range("B8").EntireRow.Delete
End If

'Проверяем есть ли записи в разделе "Рабочая документация",
'Если нет, то этот раздел удаляем
If Range("D7").Value = "" And Range("D6").Value = "" And Range("D5").Value = "" Then
    Range("B4").EntireRow.Delete
End If
'Удаляем пустые строки внутри каждого раздела
    For i = 46 To 4 Step -1
        If Cells(i, 3).Value <> "" And Cells(i, 4).Value = "" Then
            Cells(i, 4).EntireRow.Delete
        End If
    Next i
'Включаем мерцание екрана
Application.ScreenUpdating = True
End Sub

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!
Модератор.