Удаление строки по значению

[FormAlDeGid]

И снова здасте Всем.

Задача вот в чем: есть сводная таблица в которую копируются строки из нескольких файлов после чего надо удалить последнюю стоку из каждой скопированной части. Строка представляет из себя итоговые подсчеты выше стоящих значений, "Итого 548,00 0,000 0,00 548,00" есть предположение что можно удалять всю строку исходя из того что в ней содержится текст "итого". Подскажите как это реализовать.

[EducatedFool]

Подскажите как это реализовать.

1) выкладываете файл
2) помечаете цветом строки, подлежащие удалению
3) получаете готовый макрос

[IgorGO]

в сводной - может просто настроить показывать/не показывать итог

[Volodshan]

Зачем копировать, если удалять?..
Сводная в каком понимании - Сводная XL или в одну свели с разных?..
Консолидация - выход?..
Или трехмерные ссылки?..

[FormAlDeGid]

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

[SAS888]

По-моему, достаточно удалить все строки, в столбце "A" которых пусто. Например, так:

Sub DelRows()
    Dim i As Long: Application.ScreenUpdating = False
    For i = Cells(Rows.Count, 6).End(xlUp).Row To 1 Step -1
        If Cells(i, 1) = "" Then Rows(i).Delete
    Next
End Sub

[FormAlDeGid]

SAS888 клевенько но не совсем. надо чтобы пустые строки-разделители остались.

[EducatedFool]

Sub УдалениеИтоговыхСтрок()
    On Error Resume Next: Application.ScreenUpdating = False
    While Err = 0
        Range("f:f").Find("Итого").EntireRow.Delete
    Wend
End Sub

[FormAlDeGid]

EducatedFool примного вам благодарен =)

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

[EducatedFool]

Sub test()
    On Error Resume Next
    Intersect([m:m], ActiveSheet.UsedRange).SpecialCells(xlCellTypeBlanks).Formula = "буква"
End Sub

Ну а лучше так:

Sub test()
    On Error Resume Next: Application.ScreenUpdating = False
    While Err = 0
        Range("f:f").Find("Итого").EntireRow.Delete
    Wend

    ' тут ваш код обработки листа

    ' помечаем пустые строки
    ActiveSheet.UsedRange.Columns(1).SpecialCells(xlCellTypeBlanks).Offset(, 12).Formula = "буква"
End Sub