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

Макрос, котор я пытаюсь написать перечислит к рядку под последней клеткой с данными в колонке b, и после этого ясно все рядки от того пункта вниз к дну.

например, если последнее значение находится в рядке 15, то оно освободит полностью содержание в всех колонках от рядка 16 к последнему рядку в spreadsheet.

Thanks! class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

1: 2: 3: 4: 5: 6: 7:

>Sheets " class= " id= " codeSnippet833788

class=

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

Это Кодий убьет рядки быстро без закреплять петлей

Приветственные восклицания

Дэйв

1: 2: 3: 4: 5: 6: 7:

Sub убийство () Тусклое rng1 как ряд Листы («форматные Actuals»). Отборно Установите rng1 = клетки (Rows.Count, «b»). Конец (xlUp). Смещение (1, 0) Установите rng1 = ряд (rng1, rng1.End (xlDown)) rng1.EntireRow.ClearContents Закончите подводную лодку