[求助]：如何在VBA中使用COUNT()函数

岁末无雪 · 发表于 2004-11-13 22:29:25

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

各位大侠，小弟初学VBA，求助如何在VBA中使用COUNT()函数统计sheet1表中A1至A10中非空单元格数量并付其值给变量？小弟先在此作揖了。

yi.gao · 发表于 2004-11-13 23:22:17

我觉得你的这个问题不用VBA更好，直接用函数counta(a1:a10)就解决问题了。令某一单元格等于这个函数值，可以用VBA将这个单元格的值赋给变量。

岁末无雪 · 发表于 2004-11-15 16:23:05

老大，这个动作只是我计划中程序的一小部分，非用VBA不可，因为接下来的种种计算、选择均源于此动作，麻烦各位大侠指点一下

雪山飞狐(lzh) · 发表于 2004-11-16 08:53:46

Sub test()
Sheet1.Range("A11").Formula = "=Count(A1:A10)"
MsgBox Sheet1.Range("A11").Value
End Sub

zhang2380 · 发表于 2004-11-16 09:31:40

if Sheet1.Range("A" & i).Value<>0 then

岁末无雪 · 发表于 2004-11-16 10:54:05

各位大侠，问题已解决我是使用以下代码
Dim hsczfw As Range, hscds As Integer
Set hsczfw = Worksheets("sheet1").Range("a1:a10")
hscds = Application.WorksheetFunction.Count(hsczfw)
但是小生还是要万分万分的谢谢各位

ytjddd · 发表于 2004-11-18 21:43:02

解决就好啦，不要班门弄斧了

账号		自动登录	找回密码
密码			立即注册

[求助]：如何在VBA中使用COUNT()函数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子