这里有人熟excel vba吗？

令狐冲

我有个自己写的vlookup的code,可是如果太多data lookup时，会很消耗时间，可能要整2个小时（2万多个item）,请问有谁可以帮忙改进吗？这是我的code:

1. For cnt02 = r To IC02 + 1
   
2.     Range(Cells(p, 1), Cells(IR04, 1)) = Cells(p - 1, cnt02)
   
3.     For cnt03 = p To IR04
   
4.         Cells(cnt03, 1).Value = Cells(cnt03, 1) & Cells(cnt03, 2)
   
5.     Next cnt03
   
6.    
   
7.     Set rng01 = Range(Cells(p, cnt02), Cells(IR04 + p, cnt02))
   
8.     rng01 = Application.VLookup(Range(Cells(p, 1), Cells(IR05 + p, 1)), Worksheets("CBOM").Range("A:D"), 4, 0)
   
9.    
   
10. Next cnt02

复制代码

我有一个idea就是每次vlookup过的item就会delete掉，可是不懂要怎样implement，希望各位帮帮忙，谢谢。

aquamax

其实你要SET rng01的cell value?
可以用

1. 
   
2. =VLookup(Range(Cells(p, 1), Cells(IR05 + p, 1)), Worksheets("CBOM").Range("A:D"), 4, 0))
   

复制代码

kiam06

我有个自己写的vlookup的code,可是如果太多data lookup时，会很消耗时间，可能要整2个小时（2万多个item）, ...
令狐冲 发表于 19-5-2011 09:31 AM

可以解释你要做什么吗？？？
你的CODE。。。看不懂。。。
你说的被DELETE掉的是指.Cells(cnt03, 1).Value那边的？