Excel行计数不工作

我有一个VBAmacros正在处理一个非常大的数据集。 在我的数据集中，我有〜44000行。 我想在macros内计数，并尝试使用这里显示的顶部方法。

我使用variablessncountmax，并使其等于上面链接中的一个方法。

sncountmax = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row 

即使表单中包含44000行，sncountmax仍然会设置为之前设置的值。

编辑：我已经检查，没有其他的macrosfunction正在执行此表。 我试图删除重复使用macros，这不起作用，但在Excel中删除重复做。

Answer 1

尝试更改以下内容：

 sncountmax = Cells(Rows.Count, "A").End(xlUp).Row 

这将给列A的最后一行，所以在你的情况scountmax = 44000

Answer 2

我不会build议使用find 。 它不可靠，有时根据数据它可以不返回任何东西，而且速度较慢。

如果您唯一的目的是计算第一列中的行数：

 with thisworkbook.sheets("Sheet1") sncountmax = .Cells(.Rows.Count, 1).End(xlUp).Row end with 

参考上面例子中的工作表和工作簿。

您可能希望在模块的顶部使用Option Explicit 。

另外，我只能猜测，但你应该删除你的Òn Error Resume Next 。 错误是指您的代码在某处出错。