新手有关筛选的应用，谢谢指教

cjline

各位大侠：

有excel表sheet1，如何能自动的将筛选后的结果拷贝到sheet2中（需要拷贝整条记录），如果不能实现自动拷贝，那么可以在每一行添加一个按钮也行，只要点一下按钮，就会把对应的这行几率拷贝到另外一个sheet中。或者每一行都有一个复选框，选中之后统一点个按钮，就能把所有选中的记录拷贝到另外的sheet中。
请问能实现吗？怎么实现？
我可是新手，请指教，越详细约好，谢谢！

cjline

我的筛选结果可能需要经过几次筛选才能得到，比如我先筛选“北京”，在筛选结果中选中一条记录，然后会有一个操作，将这条记录copy到sheets中，然后再回到sheet1中筛选“上海”，从结果中再次选择合适的结果，再操作一下，将第二条记录copy到sheets中。这样重复几次后才能得到最后的结果。我只想将手动copy的动作自动化。不知道我说的是否清楚，也请各位大侠帮助分析一下，是否有更好的方法，如何实现？楼上大侠提到的代码，我在2007里面，后来可以实现copy相关记录，但是还想是有问题。

pureshadow

2007的代码与2003的略有差别，上面那段在2007里无效。
PS，你这个题不需要代码，排个序重新贴一下就好了。

cjline

请看一下，是这个样子吗？可是为什么我点了之后会把所有的都copy过去，而且，我还想实现多次筛选并提交，即sheet2中的记录是逐条增加的。

Dragxixi

把上面的代码放到你的按狃代码中

cjline

太深奥了，我可是新手啊，不知道怎么用，能教我一下吗？

pureshadow

sheets("sheet1").range("a1:n"&sheets("sheet1").range("a65536").end(xlup).row).copy sheets("sheet2").range("a1")