помогите пожалуйста с макросами в Exel

[ILKIN]

Здравствуйте!
Я работаю на одном бух. программе. Это программа не может обрабатывать некоторые рапорты, которые мне очень нужны. Так что каждый месяц я должен обрабатывать эти рапорты в программе Exel. Дело в том что когда я получаю первоначальные данные из Exel-а лист содержит очень много лишних данных. Например:
Строка1: загаловка столбец
Строка2:Информация о товаре (код, имя, количества и тд.)
Строка3: загаловка столбец
Строка4:Информация о товаре (код, имя, количества и тд.)
Строка5: загаловка столбец
Строка6:Информация о товаре (код, имя, количества и тд.)
И тд...
Количества этих строк достигает как минимум 25000. А я должен удалять все строки которые содержат загаловок (конечно кроме первого). Точнее говоря Строка3, Строка5, и тд. должны автоматический удалятся.
Если это тема обсуждалось в форуме, извиняюсь, и прошу кинте пожалуйста тему.
Заранее блогадарю за любую помощ!
Здесь мы должны удалить все строки начинающие со словом Malzeme (Sınıf&#305 Türü
Оставит только первую строку.

[EducatedFool]

Если бы Вы сразу прикрепили к сообщению файл, уже получили бы макрос, удаляющий лишние строки.

А так могу посоветовать лишь отфильтровать ненужные строки (при помощи автофильтра) по какому-нибудь критерию, а потом удалить отфильтрованные строки, и снять фильтр.

[ILKIN]

Извините не додумался!
Этот файл слишком огромный, я вырезал большую часть. С фильтрацией отнимает огромное время.
Огромное спасибо что выделили внимание!
Здесь мы должны удалить строки начинающие со словом Malzeme (Sınıf&#305 Türü
Оставит только первую строку

[EducatedFool]

Вот весь макрос:

Код: Выделить всё

[color=darkblue]Sub[/color] Макрос1()
    [color=darkblue]On[/color] [color=darkblue]Error[/color] [color=darkblue]Resume[/color] [color=darkblue]Next[/color]
    [a1].AutoFilter Field:=1, Criteria1:="(TM) Ticari Mal"
    Range("a3:a" & Rows.Count).SpecialCells(xlCellTypeConstants) _
            .SpecialCells(xlCellTypeVisible).EntireRow.Delete
    [a1].AutoFilter
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

(записал при помощи макрорекордера, и чуть-чуть подредактировал)

Пример файла:

[ILKIN]

Вот весь макрос:

Код: Выделить всё

[color=darkblue]Sub[/color] Макрос1()
    [color=darkblue]On[/color] [color=darkblue]Error[/color] [color=darkblue]Resume[/color] [color=darkblue]Next[/color]
    [a1].AutoFilter Field:=1, Criteria1:="(TM) Ticari Mal"
    Range("a3:a" & Rows.Count).SpecialCells(xlCellTypeConstants) _
            .SpecialCells(xlCellTypeVisible).EntireRow.Delete
    [a1].AutoFilter
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

(записал при помощи макрорекордера, и чуть-чуть подредактировал)

Пример файла:

Сработала!
Огромное спасибо! EducatedFool я признателен. Спасибо!!!
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Здравствуйте EducatedFool!
Вчера когда Вы дали мне этот макрос все сработало. А сегодня в вашем файле все работает, а в моем ничего не получается. Или я что то неверно делаю, или не знаю... Вроде бы вчера я копировал Ваш макрос, и вставил в моем файле, изменил только имя макроса и еше слово '(TM) Ticari Mal' на 'Malzeme (Sınıf&#305 Türü'. И все сработало. А сегодня уже нет. Можете помочь? В чем проблема?
--------------------------------------------------------------------------------