Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 8415|回复: 22

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

[复制链接]
发表于 2013-7-20 08:03 | 显示全部楼层 |阅读模式
注:在Sheet1和sheet2(还有多个工作表,不只2个工作表)中查找一个关键词如“今天”后,整行全部复制到一个新建的工作表如“自建”(或手动或自动建立新),象当前的例子。                               
                                               
现在朋友帮我做了一个VBA,还有些不完善,他只能复制A列的关键词,如“今天”所在行,不能复制A列以外“今天”关键词所在行,请高手帮忙。谢谢                                                       
                                                       
最佳答案
2013-7-20 17:08
guogongyi 发表于 2013-7-20 16:55
明白了,数量与金额是按表头复制的。不表头,没有表头的概念。不要表头,容易出错。
不要表头。泛泛搜索 ...

不要表头。跟你重做了的。 (, 下载次数: 88)

电子表格中查找一个关键词后整行全部复制-不完善.rar

16.22 KB, 下载次数: 50

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2013-7-20 08:25 | 显示全部楼层
本帖最后由 zjdh 于 2013-7-20 13:18 编辑


看后面的回复
回复

使用道具 举报

发表于 2013-7-20 08:56 | 显示全部楼层
这次应该符合你的要求 了的。 VBA工作表新建单元格区域查找130719.rar (16.1 KB, 下载次数: 105)
回复

使用道具 举报

发表于 2013-7-20 09:07 | 显示全部楼层
看看我给你做的最新的表吧?符合要求就继续给最佳吧。
回复

使用道具 举报

 楼主| 发表于 2013-7-20 10:11 | 显示全部楼层
zjdh 发表于 2013-7-20 08:25

上面的问题都解决了。
现存在问题:一是有漏的,二是有重复(表一中最后一行重复),请帮助解决

电子表格中查找一个关键词后整行全部复制-不完善.rar

17.58 KB, 下载次数: 38

回复

使用道具 举报

 楼主| 发表于 2013-7-20 10:13 | 显示全部楼层
w2001pf 发表于 2013-7-20 08:56
这次应该符合你的要求 了的。

上面的问题都解决了。
现存在问题:一是有漏的,二是有重复(表一中最后一行重复),请帮助解决
回复

使用道具 举报

发表于 2013-7-20 10:18 | 显示全部楼层
我这里没有你说的问题啊?你是下载我的工作表吧?VBA工作表新建单元格区域查找130719
回复

使用道具 举报

 楼主| 发表于 2013-7-20 10:32 | 显示全部楼层
w2001pf 发表于 2013-7-20 10:18
我这里没有你说的问题啊?你是下载我的工作表吧?VBA工作表新建单元格区域查找130719

请你把我在5楼传的附件下载后,把你的VBA烤进行试一下,因为你的附件中内容不存在,我的附件内容与你不同。请度一下。
回复

使用道具 举报

发表于 2013-7-20 10:39 | 显示全部楼层
guogongyi 发表于 2013-7-20 10:32
请你把我在5楼传的附件下载后,把你的VBA烤进行试一下,因为你的附件中内容不存在,我的附件内容与你不同 ...

重的原因是因为那一行有两个今天,所以复制了两次,漏的原因我再找?一行一定有超过一个的“今天”吗?
回复

使用道具 举报

发表于 2013-7-20 10:54 | 显示全部楼层
guogongyi 发表于 2013-7-20 10:32
请你把我在5楼传的附件下载后,把你的VBA烤进行试一下,因为你的附件中内容不存在,我的附件内容与你不同 ...

快回复嘛。我好改进的。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-31 00:19 , Processed in 0.203811 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表