[已解决]如何用VBA实现将某一列数字存入数组中，并统计大于0的个数

fuxuanbo

如何用VBA实现将某一列数字存入数组中，并统计大于0的个数

最佳答案

月排行榜 / 总排行榜

yorkchenshunan

2015-9-21 10:55

1. Sub panduan()
   
2. Dim arr, n, m
   
3. arr = Range("a1", Range("a65536").End(xlUp))
   
4. For n = 1 To UBound(arr)
   
5.     If IsNumeric(arr(n, 1)) And arr(n, 1) > 0 Then m = m + 1
   
6. Next n
   
7. MsgBox "大于0的数值有" & m & "个"
   
8. End Sub

复制代码

跳转到最佳答案楼层

yorkchenshunan

1. Sub panduan()
   
2. Dim arr, n, m
   
3. arr = Range("a1", Range("a65536").End(xlUp))
   
4. For n = 1 To UBound(arr)
   
5.     If IsNumeric(arr(n, 1)) And arr(n, 1) > 0 Then m = m + 1
   
6. Next n
   
7. MsgBox "大于0的数值有" & m & "个"
   
8. End Sub

复制代码