각 루프의 감소분

Question

Excel 용 VBA에서 각 루프마다 감소시킬 수 있습니까?

는이 같은 코드가 있습니다

Sub Makro1() 

Dim rng As Range 
Dim row As Range 
Dim cell As Range 

Set rng = Range("B1:F18") 

For Each row In rng.Rows 
    If WorksheetFunction.CountA(row) = 0 Then 
     row.EntireRow.Delete 
     'Previous row 
    End If 
Next row 

End Sub 

을 그리고 내가 다시 주석 문 단계로합니다. 가능한가?

Answer 1

번호

당신은 For...Next 루프를 사용하고 뒤로 단계가 있습니다

이

Dim i As Long 
For i = rng.Rows.Count To 1 Step -1 
    Set row = rng.Rows(i) 
    If WorksheetFunction.CountA(row) = 0 Then 
     row.EntireRow.Delete 
     'Previous row 
    End If 
Next i