循环直到出现错误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