Вопрос : Макрос Эксел для того чтобы уничтожить рядки основанные на условиях

Я импортирую некоторые документы HTML в Эксел и хотел был бы очистить вверх представление перед сбереженияами оно по мере того как архив Эксел.  Я хотел был бы создать макрос для того чтобы извлечь пук пустых рядков также, как некоторые рядки начинают как это:
No

Z:\websitepublic\ ...... выбрало документы ые в этом тексте Directory

The вышеуказанном находится всегда в колонке d и E.

I также нужно извлечь двойной рядки имеют следующий рубрики колонки: ключевые слова вопроса автора названия

Documents создали сохраненное date_created date_reviewed version

I am создателя новое к создавать макросы в Эксел и оценили некоторую консультацию на как сделать this. class=

Ответ : Макрос Эксел для того чтобы уничтожить рядки основанные на условиях

Используйте это Кодего…

Saurabh…

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21:

Sub deleterows () Application.ScreenUpdating = ложно Тусклое srow как длиной srow = 1 Не сделать до srow > Cells.Find (: = " * ", SearchDirection: =xlPrevious, SearchOrder: =xlByRows). Рядок Если InStr (1, клетки (srow, «a»), «Z:\websitepublic\», vbTextCompare) > 0 или InStr (1, клетки (srow, «a»), «отсутствие выбранные документы в этой директории», vbTextCompare) > 0 после этого Рядки (srow). Delete ElseIf Application.WorksheetFunction.CountA (ряд (srow & «: » & srow)) = 0 после этого Рядки (srow). Delete Еще srow = srow + 1 Закончитесь если Петля Application.ScreenUpdating = True Подводная лодка конца