Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
12
返回列表 发新帖
楼主: ls

[已解决]如何复制粘贴到最后空白表中

[复制链接]
发表于 2012-4-2 07:44 | 显示全部楼层    本楼为最佳答案   
本帖最后由 zjdh 于 2012-4-2 09:17 编辑
ls 发表于 2012-4-1 18:20
Sub 提取()
Dim m
    Sheets("结果").Range("A3:F65500").Clear


难道你要这样的结果?
查找复制3.rar (14.95 KB, 下载次数: 12)

评分

参与人数 1 +12 收起 理由
ls + 12 佩服!!!

查看全部评分

回复

使用道具 举报

发表于 2012-4-2 10:28 | 显示全部楼层
弄了一个,你试试,把符合条件的复制到sheet2表中

如何复制粘贴到最后空白表中.rar

15.89 KB, 下载次数: 9

点评

ls
辛苦了,达到了目的,通用性不强 我要的是楼上的效果  发表于 2012-4-2 19:21
ls
辛苦了,达到了目的,通用性不强 我要的是楼上的效果  发表于 2012-4-2 19:21

评分

参与人数 1 +9 收起 理由
ls + 9

查看全部评分

回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-5-19 09:15 , Processed in 0.198739 second(s), 15 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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