如何得到有数据的行数

liqs_sh@126.com · 发表于 2012-11-21 13:28

源程序
Sheets("考核日报").Select
l = "=counta(B4:B500)"
Worksheets("负荷总加分量整点考核日报").Cells(2, 3).value = l
l1 = Worksheets("负荷总加分量整点考核日报").Cells(2, 3).value
line = l1 + 3
      For r = 4 To line
         For c = 3 To 96
         ***********
以上可以运行

Sheets("考核日报").Select
l = "=counta(B4:B500)"
line = l + 3             -----------运行到这就不行
      For r = 4 To line
         For c = 3 To 96
         ***********
非要在EXECL表里装换一下才可以相加

zm0115 · 发表于 2012-11-21 13:42

l = "=counta(B4:B500)" 你这样写得到的是文本。
改成下面这样的。
l = WorksheetFunction.CountA(Range("b4:b500"))

liqs_sh@126.com · 发表于 2012-11-21 14:16

zm0115 发表于 2012-11-21 13:42
l = "=counta(B4:B500)" 你这样写得到的是文本。
改成下面这样的。
l = WorksheetFunction.Co ...

谢谢！问题解决了

		自动登录	找回密码
密码			免费注册