没有发现细胞错误

Question

当我运行此代码以获取空白单元格的行号时，我得到Run Time Error 1004 No cells found。

Sub gg()

MsgBox ActiveSheet.Range("a8:a800").Rows.SpecialCells(xlCellTypeBlanks).Row

End Sub

我的工作表上只有A8:A800这个范围出现此错误，如果我将范围更改为A1:A7，它会为我提供此范围内的第一个空白单元格，但超出{{1}的范围它给了我一个运行时错误。 A7之后的所有单元格在我的工作表中都是空白的。我对此感到非常感激。

由于

Answer 1

您可以通过以下方式获得成功：

MsgBox Intersect(ActiveSheet.Range("A:A"), ActiveSheet.Range("A8:A800").SpecialCells(xlCellTypeBlanks)).Row