【问题标题】:No cells found error未找到单元格错误
【发布时间】:2014-05-19 22:51:46
【问题描述】:

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

Sub gg()

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

End Sub

我在我的工作表上仅在A8:A800 上收到此范围的此错误,如果我将范围更改为A1:A7,它会给我这个范围内的第一个空白单元格,但对于超出A7 的任何内容,它都会给我一个运行时间错误。 A7 之后的所有单元格在我的工作表上都是空白的。对于这方面的任何帮助,我将不胜感激。

谢谢

【问题讨论】:

  • 您到底想达到什么目的?在 A 列中找到第一个空白?
  • 如果你是,对于范围的第一个单元格,超过 ActiveCell.SpecialCells(xlLastCell).Row,你有一个错误......
  • “A8:A800”中是否有空白单元格?我的直觉告诉我要避免使用“SpecialCells(xlCellTypeBlanks)”函数并选择遍历每个单元格并检查是否为空。
  • 我有很多数据,所以遍历每个单元格需要很长时间。是的,所有单元格 a8:a800 都是空白的。我正在尝试找到该范围内的第一个空白单元格并将数据写入其中

标签: excel vba runtime-error


【解决方案1】:

您可能会通过以下方式获得成功:

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

【讨论】:

    猜你喜欢
    • 1970-01-01
    • 2019-08-09
    • 2015-07-06
    • 2021-05-31
    • 2011-10-22
    • 2018-08-05
    • 2017-09-26
    • 1970-01-01
    • 2017-12-26
    相关资源
    最近更新 更多