Excel VBA 循环统计个数

Posted 2023-03-16

老师叫我们用VBA来写。
怎么用VBA写一个循环的函数，来统计第一列的第1行道第12行数据的个数呢？
而且不能使用worksheet.function

public sub 统计()
dim i as integer,n as integer
n=0
for i=1 to 12 step 1
if len(cells(i,1))>0 then
n=n+1
end if
next i
cells(1,2)=n
end
'则运行后B1单元格显示的数据即A1:A12区域数据的个数！追问

if可以不使用么？

追答

不可以的，if在这里是必须的，你必须在循环里挑出为空的单元格，才能统计出一共有多少个数据！

参考技术A Sub count_num()
Dim i, count
count = 0
For i = 1 To 12
If Cells(i, 1) <> "" Then
count = count + 1
End If
Next
MsgBox count
End Sub
经调试，OK追问

"" Then
这是什么意思呢？