liuts 发表于 2011-12-16 23:05

一句代码求出数组中非空个数

Sub aa()
Dim arr
    arr = Array("a", "b5", "c", "aa", "dd", "aa", "q123", 123, 20, "", "", "", "", "","")
End Sub
要求：
      1、数组元素个数不定（但规律是非空数据在前，空数据在后）
      2、不得使用循环，不得利用工作表函数，公式。
直接贴出代码即可。。。。。。
页: [1] 2 3
查看完整版本: 一句代码求出数组中非空个数