Как удалить строки на основе условия в VBA?

Question

У меня есть таблица, где в столбце C указаны числовые значения, отсортированные от max до min. Если значения столбца C> 40, макрос удаляет всю строку таблицы. Я использую следующий макрос:

Sub DeleteRowsPiuDi40Mega() 
Dim LastRow As Long 
Dim ws4 As Worksheet 
Set ws4 = ActiveWorkbook.Sheets("atm_hh") 
LastRow = ActiveSheet.Range("C" & ActiveSheet.Rows.Count).End(xlUp).Row 
For i = 2 To LastRow 
If Cells(i, 3) > 40 Then Rows(i & ":" & i).EntireRow.Delete 
Next i 
End Sub 

Проблема в том, что после удаления некоторых строк он останавливается, оставляя в колонке C некоторые значения, которые> 40. Что может быть не так с этим кодом?

Answer 1

Проблема в том, что после того, как строка была удалена, макрос продолжит переход к следующей строке (пропуская строку).

Работа в обратном направлении через петлю предотвратит любые строки пропускаются так что-то вроде:

Sub DeleteRowsPiuDi40Mega() 

Dim LastRow As Long 
Dim ws4 As Worksheet 

Set ws4 = ActiveWorkbook.Sheets("atm_hh") 
LastRow = ActiveSheet.Range("C" & ActiveSheet.Rows.Count).End(xlUp).Row 

For i = LastRow to 2 Step -1 
    If Cells(i, 3) > 40 Then Rows(i & ":" & i).EntireRow.Delete 
Next i 

End Sub