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

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、不得使用循环，不得利用工作表函数，公式。
直接贴出代码即可。。。。。。

Zipall · 发表于 2011-12-16 23:52

此帖仅作者可见

兰色幻想 · 发表于 2011-12-17 00:51

此帖仅作者可见

yuhe0008 · 发表于 2011-12-17 01:16

此帖仅作者可见

hongliang224 · 发表于 2011-12-17 08:25

此帖仅作者可见

qushui · 发表于 2011-12-17 10:06

此帖仅作者可见

windimi007 · 发表于 2011-12-17 10:40

此帖仅作者可见

scl5801 · 发表于 2011-12-28 23:56

此帖仅作者可见

row · 发表于 2012-2-2 13:18

此帖仅作者可见

xiaoni · 发表于 2012-2-27 04:59

此帖仅作者可见

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

Zipall Zipall 当前离线积分 604 IP卡狗仔卡	发表于 2011-12-16 23:52 \| 显示全部楼层工作中常用的Excel函数公式，全印在一张超大鼠标垫上此帖仅作者可见
Zipall Zipall 当前离线积分 604 IP卡狗仔卡
	使用道具举报显身卡

兰色幻想兰色幻想当前离线积分 550 IP卡狗仔卡	发表于 2011-12-17 00:51 \| 显示全部楼层工作中最常用的Excel函数公式，全印在一张鼠标垫上此帖仅作者可见
兰色幻想兰色幻想当前离线积分 550 IP卡狗仔卡
	使用道具举报显身卡

yuhe0008 yuhe0008 当前离线积分 3 IP卡狗仔卡	发表于 2011-12-17 01:16 \| 显示全部楼层此帖仅作者可见
yuhe0008 yuhe0008 当前离线积分 3 IP卡狗仔卡
	使用道具举报显身卡

hongliang224 hongliang224 当前离线积分 0 IP卡狗仔卡	发表于 2011-12-17 08:25 \| 显示全部楼层此帖仅作者可见
hongliang224 hongliang224 当前离线积分 0 IP卡狗仔卡
	使用道具举报显身卡

qushui qushui 当前离线积分 0 IP卡狗仔卡	发表于 2011-12-17 10:06 \| 显示全部楼层此帖仅作者可见
qushui qushui 当前离线积分 0 IP卡狗仔卡
	使用道具举报显身卡

windimi007 windimi007 当前离线积分 3 IP卡狗仔卡	发表于 2011-12-17 10:40 \| 显示全部楼层此帖仅作者可见
windimi007 windimi007 当前离线积分 3 IP卡狗仔卡
	使用道具举报显身卡

scl5801 scl5801 当前离线积分 10 IP卡狗仔卡	发表于 2011-12-28 23:56 \| 显示全部楼层此帖仅作者可见
scl5801 scl5801 当前离线积分 10 IP卡狗仔卡
	使用道具举报显身卡

row row 当前离线积分 597 IP卡狗仔卡	发表于 2012-2-2 13:18 \| 显示全部楼层此帖仅作者可见
row row 当前离线积分 597 IP卡狗仔卡
	使用道具举报显身卡

xiaoni xiaoni 当前离线积分 0 IP卡狗仔卡	发表于 2012-2-27 04:59 \| 显示全部楼层此帖仅作者可见
xiaoni xiaoni 当前离线积分 0 IP卡狗仔卡
	使用道具举报显身卡

[习题] 一句代码求出数组中非空个数