如何解决如何在WorksheetFunction.CountA中放置工作表引用？
我一直在绞尽脑汁使这行代码起作用。
我收到此错误“ 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”))
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
