删除vba中的行不起作用

Question

我有部分代码：

o = Workbooks(repfile).Worksheets(1).Range("b:b").Cells.SpecialCells(xlCellTypeConstants).Count
For k = o To 2 Step -1
    If Left(Cells(k, 7), 1) <> "1" Or IsEmpty(Cells(k, 7)) = True Then
    cells(k,7).EntireRow.Delete
    End If
Next

但它不起作用。如果我切换

cells(k,7).EntireRow.Delete

用例如

cells(k,7).Interior.ColorIndex=1

然后它完美无缺。但它只是不想删除行。

Answer 1

为什么要参考你的手机？

你不能使用：

Sheet1.Rows(k).Entirerow.Delete