[已解决]关于查寻的代码求教

快乐童年

你好，工作需要，手工太累，希望能自动完成。请帮忙。多谢

最佳答案

月排行榜 / 总排行榜

bbwsj

2012-11-25 12:59

这题根本不用VBA，对表二筛选，选中“转出”的，定位-当前单元格，复制到表1就OK了
别说600多行，2、3万行也N快处理完的
用V，万一结构变变，你要要求爷爷高奶奶的求人帮你改代码了

动画里，用你的数据复制到500条，掐掐秒表多快


用VBA编程，无论是遍历还是用find语句，但这个功能都没技巧筛选速度快

跳转到最佳答案楼层

bbwsj

这题根本不用VBA，对表二筛选，选中“转出”的，定位-当前单元格，复制到表1就OK了
别说600多行，2、3万行也N快处理完的
用V，万一结构变变，你要要求爷爷高奶奶的求人帮你改代码了

动画里，用你的数据复制到500条，掐掐秒表多快


用VBA编程，无论是遍历还是用find语句，但这个功能都没技巧筛选速度快

hwc2ycy

你用高级筛选，一次就搞定了。

bbwsj

hwc2ycy 发表于 2012-11-25 13:12
你用高级筛选，一次就搞定了。

这里就单条件，用高级筛选，还累，就自动筛选，立马搞定
高级筛选，适合3条件的，或需要一些运算的
自动筛选和透视是我工作中用的最多的两个工具

hwc2ycy

hwc2ycy

hwc2ycy

1. Sub 宏1()
   
2.     Application.ScreenUpdating = False
   
3.     With Worksheets("表二")
   
4.         If Len(.[g10]) > 0 Then .Range("g10").CurrentRegion.ClearContents
   
5.         .Range("a1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range("g2:g3"), CopyToRange:=.Range("G10")
   
6.         If Len([g11]) > 0 Then
   
7.             .Range("g11", .Range("g10").End(xlToRight).End(xlDown)).Copy
   
8.             Worksheets("表一").Range("a" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
   
9.             Application.CutCopyMode = False
   
10.         End If
    
11.     End With
    
12. End Sub
    

复制代码

上面的高级筛选操作转化成代码。
切记，条件区域不可缺少。

hwc2ycy

bbwsj 发表于 2012-11-25 12:59
这题根本不用VBA，对表二筛选，选中“转出”的，定位-当前单元格，复制到表1就OK了
别说600多行，2、3万行 ...

学习了。
不过现在太多人奉行拿来主义了。
只是简单的复制粘贴（好歹还会这两招，不然真叫人头疼）。
拿到手不消化吸收，问题解决就丢之脑后。

bbwsj

hwc2ycy 发表于 2012-11-25 13:43
学习了。
不过现在太多人奉行拿来主义了。
只是简单的复制粘贴（好歹还会这两招，不然真叫人头疼）。

呵呵，很多人都知道V是万能的，但V也是速度最慢，最不方便、上手最慢的
工作里，一般技巧和简单函数是最常用的，我平时最喜欢用技巧，其次是函数，最后才是VBA
这两天我论坛里整的数组公式，正常工作里基本都用不着，论坛答题只是为了让自己练练脑不退步而已
工作中用V也是N少的，如同工作中需要你N多的用V解决，那你的工作一定是程序员。
你工作的难度取决于你前期设计的表的结构，你的习惯。N多人没办法批量处理自己的表，不是因为他的工作难度多高，而是因为他前期自己给自己挖了N多N深的坑
有句话叫命运决定于自己的手里，有时想想也对，就个E表而言，明明可以批量解决的，而去设计分成N多表格，N多结构，N多合并，N多批注，N多颜色，最后导致批量解决成一件N困难的事，工作效果不高，工作正确率很差，老板骂，同事看不起，自己也把自己的上升空间折腾没了。呵呵，命运决定在自己手里，种什么种子得什么果实

hwc2ycy

bbwsj 发表于 2012-11-25 14:09
呵呵，很多人都知道V是万能的，但V也是速度最慢，最不方便、上手最慢的
工作里，一般技巧和简单函数是最 ...

是的。

可惜我的工作里V,图表，数透这些都用得少，不过来论坛学习练手不错。也算是学以致用了。