怎么用最简单的VBA 查找内容类似vlookup

白开水v1

根据sheet2中的订单编号，在sheet1中查找对应的客户、下单时间

yuyan250905

发好了 应该可以了

白开水v1

yuyan250905 发表于 2015-9-9 12:57
发好了 应该可以了

能用vb宏实现吗？不是vlookup

笑着...两年过去

1. Sub test()
   
2.     [b2:c9999].ClearContents
   
3.     ar = [a1].CurrentRegion
   
4.     br = Sheet1.[a1].CurrentRegion
   
5.     For i = 2 To UBound(ar)
   
6.         For j = 2 To UBound(br)
   
7.             If ar(i, 1) = br(j, 1) Then ar(i, 2) = br(j, 2): ar(i, 3) = br(j, 3)
   
8.         Next
   
9.     Next
   
10.     [a1].Resize(i - 1, 3) = ar
    
11. End Sub
    

复制代码

笑着...两年过去

查找内容.rar (11.1 KB, 下载次数: 167)

2015-9-9 14:21 上传

点击文件名下载附件

UQKUN

笑着...两年过去 发表于 2015-9-9 14:21

学习了， 如果用词典法的话这个代码怎么改？