问题描述
我一直在绞尽脑汁使这行代码起作用。
我收到此错误“ 1004应用程序定义的错误或对象定义的错误”
我需要计算包含从多个工作表的Cell（“ A2”）开始的数据的行。 也许答案很简单，但我找不到解决方案。我尝试了几种组合...
我只需要知道如何将此 worksheet（“ Sheet1”）引用放入指令中，即可使其正常工作...
Dim oRows As Long
Dim oRows2 As Long
...
oRows = WorksheetFunction.CountA(Worksheets("Sheet1").Range("A2",Range("A2").End(xlDown)))
oRows2 = WorksheetFunction.CountA(Worksheets("Sheet2").Range("A2",Range("A2").End(xlDown)))
以下代码有效，但如果“ A2”中只有数据，则计数返回“ 1048575”而不是“ 1”。
oRows = ActiveWorkbook.Worksheets("Sheet1").Range("A2",Worksheets("Sheet1").Range("A2").End(xlDown)).Rows.Count
所以，我需要使用CountA函数。
希望您可以提供帮助：-）
欢呼
解决方法
以下内容将对A列中所有不为空的单元格进行计数，如果单元格A1不为空，则将其减去1：
oRows = WorksheetFunction.CountA(Range(“A:A”)) - WorksheetFunction.CountA(Range(“A1”))