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

工作状态 · 发表于 2012-8-25 11:09

kevinchengcw 发表于 2012-8-25 10:09
试下附件

太感谢kevinchengcw老师了，这么快就给与答复，非常感谢！试验了结果非常好。就是有个小地方还请老师帮忙，就是按行提取时有些是以合并单元格形式存在的，但现在提取后该单元格形式变成了原单元格内容出现在第一个单元格，后面两个为空单元（假定原合并单元格占3列），所以请教kevinchengcw老师，能否在提取行的同时仍然保留原来的合并单元格的形式？并且帮忙按照和提取行一样的要求，做一个可以提取单元格所在列的VBA。实在是太感谢老师了，帮了大忙！

kevinchengcw · 发表于 2012-8-25 11:30

工作状态发表于 2012-8-25 11:09
太感谢kevinchengcw老师了，这么快就给与答复，非常感谢！试验了结果非常好。就是有个小地方还请老师帮忙 ...

这个你可以当做练习自己做啦

YEJINHAI · 发表于 2012-8-25 11:55

kevinchengcw 发表于 2012-8-25 11:30
这个你可以当做练习自己做啦

怎样改成当前活动工作簿的查询，那个路径修改呢？

kevinchengcw · 发表于 2012-8-25 14:45

YEJINHAI 发表于 2012-8-25 11:55
怎样改成当前活动工作簿的查询，那个路径修改呢？

If FN <> ThisWorkbook.Name Then

复制代码

把这个判断去掉就行了，注意同时去掉后面对应的end if

YEJINHAI · 发表于 2012-8-25 15:08

kevinchengcw 发表于 2012-8-25 14:45
把这个判断去掉就行了，注意同时去掉后面对应的end if

好像不行吧，我运行后没有提示。

YEJINHAI · 发表于 2012-8-25 15:19

YEJINHAI 发表于 2012-8-25 15:08
好像不行吧，我运行后没有提示。

因为我想做成加载宏，运行

kevinchengcw · 发表于 2012-8-25 17:20

YEJINHAI 发表于 2012-8-25 15:19
因为我想做成加载宏，运行

加载宏的话，把所有的thisworkbook换成activeworkbook

aman1516 · 发表于 2013-1-30 15:42

不错，很多时候都应用到。谢谢分享

蔡明江 · 发表于 2013-10-23 22:16

这个帖子非常好，不得不顶出来

ydlpc · 发表于 2014-3-27 08:40

感谢，找了两天了。

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

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

评分