循環直到出現錯誤424

Question

我一直在爲此工作了幾個小時，但無法使其工作到目前爲止。

我有一些過濾的數據，我想將第一個數據單元存儲爲循環中使用的變量。但是，一旦我的循環刪除了所有的數據，它應該自行結束，我收到一個424錯誤，需要的對象。

代碼

Sub jjjjj() 

Dim rng As Range 

ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Cells(1, 9).Select 

Set rnge = Selection 

Do Until (rnge.value = 0)   
    Range("i1").Activate 
    Selection.End(xlDown).Select 
    Selection.EntireRow.Delete     
Loop 

End Sub 

錯誤線Do Until (rnge = 0)

我已經試過Do until (rnge.value = "")

除了取出value。

任何幫助將不勝感激。

Answer 1

我覺得你像下面的代碼後，該代碼註釋中解釋：

Option Explicit 

Sub jjjjj() 

Dim FiltRng As Range 
Dim Rng As Range, C As Range 

' set the filtered range 
Set FiltRng = ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible) 

' loop through areas of Filtered range 
For Each Rng In FiltRng.Areas 
    ' loop through cells in column "I" of current area 
    For Each C In Rng.Columns("I") 
     If C.Value = 0 Then Exit Sub ' if value is 0 exit sub 
     C.EntireRow.Delete 
    Next C 
Next Rng 

End Sub