收集和自编的自定义函数(21个)!新增"字符快速合并"函数（9月14日新增）

gzhpgwx · 发表于 2006-5-3 17:08

　　我发现wsingle函数有一个bug：如果在1行与12行之间插入大于8行，即引用区域中有多于10行空行，则返回的结果不全（本例中，如插入9行，则返回结果中“王雨凡”不见了）。研究了自定义函数语句，发现问题可能出在下面这句语句：

If k > Application.WorksheetFunction.CountA(rng1) + 10 Then Exit Function

　　该语句使K在大于引用区域个数加10后退出Function过程。所以，如果引用区域中多于10行空行，则返回的数据不全。试将上句语句修改成：

If k > rng1.Cells(rng1.Rows.Count, rng1.Column).End(xlUp).Row Then Exit Function

就可以避免此问题的发生。不知妥否，请各位打虾指点。

lxm0109 · 发表于 2006-5-17 14:05

很激动地看完了贴，这么好的贴，没办法不回。[em17][em02]

jiannanchun · 发表于 2006-5-18 13:33

小伙子,不错不错!!!

4666 · 发表于 2006-5-25 14:34

支持支持

apple_lp · 发表于 2006-5-25 14:58

太经典了，收藏收藏！

[em04]

知猪 · 发表于 2006-5-25 17:12

这个好，又可以拿来用，又可以用以学习

qyszmmj · 发表于 2006-5-26 07:53

我收藏了,慢慢学,谢谢!

chenjane0303 · 发表于 2006-5-29 21:12

狂人!!!!!![em06]

Rock2008 · 发表于 2006-5-29 22:10

多谢!

ZRX0504 · 发表于 2006-5-31 20:42

取同列不重复内容列表函数Wsingle解决了我许多统计中的难题，好！好！！[em02]

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

[Excel基础] 收集和自编的自定义函数(21个)!新增"字符快速合并"函数（9月14日新增）