Вопрос : Как создать макрос для того чтобы извлечь пробелы от рабочий лист 2007 Эксел

Hi all
I имеет workshet с рядками приблизительно 100k в excel2007.  Мне нужно извлечь 4 пустых рядка, 1 линию данных и другой пустой рядок после его.  Smogло кто-то пожалуйста показать мне как создать макрос для того чтобы очистить вверх мое рабочий лист?

Please видит прикрепленное изображение.  Примечание: Я хочу уничтожить линии 8239 сквозных 8244.

Thanks class=

Ответ : Как создать макрос для того чтобы извлечь пробелы от рабочий лист 2007 Эксел

Паыль, пожалуйста пытается это:

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13:

Sub BajanPaul () Тусклое lastRow как длиной, I как длиной Application.ScreenUpdating = ложно lastRow = ActiveSheet.UsedRange.Rows.Count Для I = lastRow к 6 разделу -1 Если не IsNull, то (рядки (I). Текст) и IsNull (рядки (I - 1).Text) и не IsNull (рядки (I - 2).Text) и _ Не IsNull (рядки (I - 3).Text) и не IsNull (рядки (I - 4).Text) и не IsNull (рядки (I - 5).Text) после этого Ряд (рядки (I - 5), рядки (I)). Delete iий = I - 5 Закончитесь если Затем Application.ScreenUpdating = True Подводная лодка конца