Sub 统计行数()
Dim n As Long
Dim i As Long
Dim 字符大于二的数量 As Long
n = Range("A65536").End(xlUp).Row
For i = 1 To n
If Len(Range("A" & i).Value) > 2 Then
字符大于二的数量 = 字符大于二的数量 + 1
End If
Next i
MsgBox "字符大于二的数量为：" & 字符大于二的数量
End Sub
以上代码可以统计当前工作表A列字符数大于二的数量。
由代码可以看出，VBA变量可以用中文。
术介工要进而
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024