vba - SpecialCells(xlCellTypeBlanks).EntireRow.Delete 未找到任何单元格

Question

我正在尝试删除 B 列中包含空白的任何内容。 A1:A10 = {3,1,10,1,1,10,2,2,2,10}。当我运行我的代码时，我在删除行行出现错误。这是“运行时 1004 错误，未找到单元格”。显然应该发现了一些细胞。到底是怎么回事？我看到有些人建议在删除行周围放置一个 On Error 子句，但这只会导致没有任何内容被删除。

Sub test()
Dim Total_Rows As Integer
Dim rng As Range
Total_Rows = 10
Range("B1", "B" & Total_Rows) = "=if(A1=10,"""",1)"
Range("B1", "B" & Total_Rows).Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues
Set rng = Range("B1", "B" & Total_Rows)
rng.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Answer 1

您可以尝试循环遍历范围，如下所示

For Each cell In rng     
   If cell.Value = "" Then cell.EntireRow.Delete    
Next cell

而不是找到一个空白单元格