Нужен макрос чтобы удалить все ниже 20 строки - VBA

Формулировка задачи:

Привет всем, мне понадобилось сделать макрос, который будет удалять все что находится ниже определенной строки (например 20) Вот что я написал, не могу только понять где кроется ошибка

                    Листинг программы
                
 
                        
                          
                    
Sub RowDel()
LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
 If Application.Rows(r) < Rows(20) Then Rows(r).EntireRow.Delete
Next r
End Sub

красным подсвечивает вот эту часть 5 строки

                    Листинг программы
                
Rows(r).EntireRow.Delete

Решение задачи: «Нужен макрос чтобы удалить все ниже 20 строки»

textual
                            Листинг программы 
                        
Sub RowDel2()
    For Each SN In ThisWorkbook.Sheets
        SN.Rows(21).Resize(SN.Rows.Count - 20).EntireRow.Delete
    Next
End Sub

Оцени полезность:

8 голосов , оценка 3.625 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы