遇到这个问题好几天解决不了

rentianyu2152

vb里怎么跨数据表 直接引用 VLOOKU函数
根据“sheet2”中A列的编号 去sheet1 中查询 编号对应的名字，并将结果写在sheet2中 对应的D列
sheet1中这些编号都是随机的混在庞大的数据里的，不是图中那样按顺序排列
那个大神帮忙解决下分全给你

dajiahaoxinku12

楼主，请你把你的附件上传到这里         

gufengaoyue

1. Sub test()
   
2. Dim arr, brr
   
3. arr = Sheet2.UsedRange
   
4. brr = Sheet1.UsedRange
   
5. For a = 2 To UBound(arr)
   
6.     arr(a, 4) = WorksheetFunction.VLookup(arr(a, 1), brr, 2, 0)
   
7. Next
   
8. Sheet2.[a1].Resize(UBound(arr, 1), UBound(arr, 2)) = arr
   
9. End Sub

复制代码

rentianyu2152

gufengaoyue 发表于 2014-6-23 18:16

Vlookup过程或参数调用无效，是不是那个brr的问题啊

rentianyu2152

dajiahaoxinku12 发表于 2014-6-23 18:11
楼主，请你把你的附件上传到这里

工作簿3.zip (7.48 KB, 下载次数: 7)

2014-6-24 10:44 上传

点击文件名下载附件

就是这个，大神帮忙解决下

dajiahaoxinku12

第六句修改为        arr(a, 4) = Application.VLookup(arr(a, 1), brr, 2, 0)

gufengaoyue

rentianyu2152 发表于 2014-6-24 10:44
Vlookup过程或参数调用无效，是不是那个brr的问题啊

因为VLOOKUP没找到值，所以报错。
在最前面加个容错的就可以了，这样的话，sky-1对应的D列就是空白
或者，用application.vlookup（）这个，不用容错
不过这个结果出来以后，如果找不到值，D列就是#N/A了
要用哪个，自行定夺。

1. Option Explicit
   
2. Sub test()
   
3. On Error Resume Next
   
4. Dim arr, brr, a
   
5. arr = Sheet2.UsedRange
   
6. brr = Sheet1.UsedRange
   
7. For a = 2 To UBound(arr)
   
8.     arr(a, 4) = WorksheetFunction.VLookup(arr(a, 1), brr, 2, 0)
   
9. Next
   
10. Sheet2.[a1].Resize(UBound(arr, 1), UBound(arr, 2)) = arr
    
11. End Sub

复制代码

rentianyu2152

dajiahaoxinku12 发表于 2014-6-24 10:53
第六句修改为        arr(a, 4) = Application.VLookup(arr(a, 1), brr, 2, 0)

谢谢解答，解决了

rentianyu2152

gufengaoyue 发表于 2014-6-24 12:21
因为VLOOKUP没找到值，所以报错。
在最前面加个容错的就可以了，这样的话，sky-1对应的D列就是空白
或者 ...

谢谢详细的解答，试了的确是，那个最后一个代码的意思是将新数组arr写入到sheet2中第四行？最后那句话有点不太明白，请解释下

gufengaoyue

rentianyu2152 发表于 2014-6-24 15:45
谢谢详细的解答，试了的确是，那个最后一个代码的意思是将新数组arr写入到sheet2中第四行？最后那句话有点 ...

所有的数据放在数组中
但只处理了第四列
最后一句是将整个数组恢复到原来的区域中去
由于只处理了第四列，其它数据没动，所以你觉得只是写入到第四列