字典-数组-自定义函数学习笔记--欢迎交流 2012.6.4 更新

AVEL · 发表于 2011-5-28 03:20

做了那么多个压缩包啊。。

呵呵一次性压缩好做个目录么好了。。

省时省力。哈哈
还有自定义函数那一个，下面这样应该可以吧?
或许数据量大，会速度上不及字典哈。
Function Ctr(str As String, rng1 As Variant, rng2 As Variant) As Variant
Dim rng As Range
For Each rng In rng2
If rng = str Then Ctr = Ctr & " " & Cells(rng.Row, rng1.Column)
Next
Ctr = Trim(Ctr)
End Function

feiaoli · 发表于 2011-4-30 18:33

谢谢分享。。。。。。。。。。。。。。。。。。。

Ericall · 发表于 2011-5-10 16:38

感谢楼主分享，学习了

brdsz · 发表于 2011-5-10 23:24

好好学习，收藏！！！！！

swabe · 发表于 2011-5-12 07:38

太齐全了谢谢分享

yuk_yu · 发表于 2011-5-19 22:19

值得好好学习

qhllqhll · 发表于 2011-5-20 07:45

收藏学习

mikeyong · 发表于 2011-5-24 17:06

下载了，又有新的学了。有挑战，才有快乐。

陈国华 · 发表于 2011-5-24 20:32

正在研究这方面知识，收藏了慢看

xmyjk · 发表于 2011-5-25 02:03

不错，谢谢分享。

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

[分享] 字典-数组-自定义函数学习笔记--欢迎交流 2012.6.4 更新

好东西要顶

回复 1楼 gufengaoyue 的帖子

回复 1楼 gufengaoyue 的帖子