[已解决]电子表格中查找一个关键词后整行全部复制的VBA问题？

guogongyi · 发表于 2013-7-19 06:58

电子表格中查找一个关键词后整行全部复制的VBA问题？
注：在Sheet1和sheet2(还有多个工作表，不只2个工作表）中查找一个关键词如“今天”后，整行全部复制到一个新建的工作表如“自建”(或手动或自动建立新），象当前的例子。


现在朋友帮我做了一个VBA，还有些不完善，他只能复制A列的且单元格内只有关键词“今天”两个字的，如果像“今天可以”、“今天好”等等时就不能一同复制出来，请高手帮忙。谢谢

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-19 07:47

本帖最后由 hwc2ycy 于 2013-7-19 07:48 编辑

原来的

If Range("a" & j) Like "今天" Then

复制代码

改成

If Range("a" & j).Value Like "*今天*" Then

复制代码

必须用通配符才能实现你的要求。

跳转到最佳答案楼层

hwc2ycy · 发表于 2013-7-19 07:47

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

本帖最后由 hwc2ycy 于 2013-7-19 07:48 编辑

原来的

If Range("a" & j) Like "今天" Then

复制代码

改成

If Range("a" & j).Value Like "*今天*" Then

复制代码

必须用通配符才能实现你的要求。

我心飞翔410 · 发表于 2013-7-19 08:32

看看烟花的思路学到好多东西

w2001pf · 发表于 2013-7-19 09:22

跟你改了一下。加了一个判断“新建”工作表是否存在，如存在就不建。

求助.rar (20.11 KB, 下载次数: 199)

tianyanxing · 发表于 2013-7-19 10:14

看不懂啊，一定基础都没有

guogongyi · 发表于 2013-7-19 18:28

w2001pf 发表于 2013-7-19 09:22
跟你改了一下。加了一个判断“新建”工作表是否存在，如存在就不建。

谢谢，解决了关键词的问题，但不在A列的关键词还是复制不了，还有是如果没有“新建”标签时，执行宏会出错，不会自行建立“新建”标签。请解决。

guogongyi · 发表于 2013-7-19 20:28

hwc2ycy 发表于 2013-7-19 07:47
原来的改成必须用通配符才能实现你的要求。

谢谢，解决了关键词的问题，但不在A列的关键词还是复制不了

w2001pf · 发表于 2013-7-19 23:39

这个你已经设成最佳答案了的。有问题再发贴吧。

guogongyi · 发表于 2013-7-20 12:15

我在这主题回答问题怎么上不去呢？电子表格中查找一个关键词后整行全部复制的VBA问题二？

guogongyi · 发表于 2013-7-20 12:15

我在这主题回答问题怎么上不去呢？电子表格中查找一个关键词后整行全部复制的VBA问题二？

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