Заголовок + данные + удаление пустых строк

[sane4ek_d]

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

[Teslenko_EA]

Здравствуйте sane4ek_d.
Мнение: технически задача выполнима, но не верна в принципе. Нельзя хранить данные в прайсах и отчетах, и аккуратно потом извлекать и обрабатывать дабы "не разрушить красоту" и не потерять данные. Храните данные в специальных таблицах, даже если это не таблицы баз данных, а текстовые документы или листы Excel. Поверьте создать прайс имея данные намного проще обратного.
Евгений.

[sane4ek_d]

Сообщение от Teslenko_EA

Здравствуйте sane4ek_d.
Мнение: технически задача выполнима, но не верна в принципе. Нельзя хранить данные в прайсах и отчетах, и аккуратно потом извлекать и обрабатывать дабы "не разрушить красоту" и не потерять данные. Храните данные в специальных таблицах, даже если это не таблицы баз данных, а текстовые документы или листы Excel. Поверьте создать прайс имея данные намного проще обратного.
Евгений.

Дело в том что это не прайс а считалка которая копируется постоянно. И когда клиенту считается просто лишнее необходимо удалять

[Teslenko_EA]

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

Sub DeleteEmptyRowsColumns()
Dim r&, j%, q%, LastRow&
With ActiveSheet.UsedRange
    LastRow = .Row - 1 + .Rows.Count
End With
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
    If (Val(Cells(r, 3).Value) * Not IsNumeric(Cells(r, 1).Value)) <> 0 Then j = j + 1
    If Cells(r, 4).Value = "0" Then
        Rows(r).Delete: q = q + 1
    ElseIf Len(Cells(r, 4).Text) = 0 And Not Len(Cells(r, 1).Text) = 0 Then
        If j = q And j > 0 Then Rows(r).Delete
        j = 0:  q = 0
    End If
Next r
End Sub

Евгений.