VBA关于多工作簿查询包含指定的字符的应用（很难的）

kevinchengcw · 发表于 2010-11-4 13:18

1.这句的函数什么意思？怎么使用？
InStrRev(Wb.Name, ".") - 1
答：获取工作簿名最后一个句号的位置值，减一后剩余的就是除扩展名外的文件名长度了

2.两句什么意思？有什么区别：
Set Rng = .UsedRange.Find(Str)
答：在使用区域中查找变量str对应的字符串所在的第一个单元格位置，并将单元格赋值给变量Rng
Set Rng = .UsedRange.Find(Str, Rng)
答：查找位于rng后面的变量Str对应的字符串所在的单元格位置并赋值给rng，相当于findnext

3.为什么后面带上“, ""”符号，起到什么作用
If Not Dic.exists(Str2) Then Dic.Add Str2, ""
答：添加字典项目时item值不能空缺，如果不想写内容则设为空值""

"4.句中Split(Arr(N), vbTab)的函数不是向右截掉vbTab的开始的所有内容吗，
这个vbTab符号在Str中出现了很多，按理说应该只保留工作簿名呀，请解释下"
.Cells(N + 3, 2).Resize(1, 5) = Split(Arr(N), vbTab)
答：split是将字符串依指定字符分割成多段，形成一个数组，后面的语句是将B列到F列的单元格内容等于分割后的前五个字

[ 本帖最后由 kevinchengcw 于 2010-11-4 14:59 编辑 ]

liuguansky · 发表于 2010-11-4 14:47

厉害，学习了。

wangzhongtu · 发表于 2010-11-4 18:22

我无意中发现你将该程序发布到了http://www.exceltip.net/thread-12488-1-1.html，
还加了注释！！真不错，非常支持！！！以后很多人都可以搜索到该程序了！

linpansheng · 发表于 2010-11-4 22:16

学习K哥

whavbox · 发表于 2011-5-27 16:25

真好用，真是高人，这里真是好！！！送6楼鲜花美女以示崇敬！！

jhzghua · 发表于 2011-6-27 13:46

厉害，学习了。

excel_cmsj · 发表于 2011-8-30 10:54

6楼的哥们太牛了，不得不进来赞叹一下！

blackttea1 · 发表于 2011-9-5 21:18

厉害，学习了。

阿灰恢恢 · 发表于 2012-7-10 15:11

发现这儿的学习氛围特好，大神也特别多~~正好需要，O(∩_∩)O谢谢！！

左手有把刀 · 发表于 2012-8-7 16:24

好好学学天天上上

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

[求助] VBA关于多工作簿查询包含指定的字符的应用（很难的）

回复31楼