在VBA中实现VLOOKUP功能

多多2011

本人在工作中经常用到VLOOKUP函数，给工作带来了便利。但我也发现，一旦数据量多了，运行效率就变得慢。因此，本人在此寻求VBA的解决方法。经上次咨询，知道在VBA中引用函数或直接利用字典编写能解决。由于本人刚刚接触vba，没有能力短期内解决，请求帮助。谢谢
传上附件一份，附件中Sheet1为基础数据，Sheet2为利用VLOOKUP函数以姓名为线索，从Sheet1中提取并自动填写的数据，C,D,E,F,G,H列均是如此。请教这样的效果，如用VBA如何实现呢。

smhf_6

Sub xx()
Dim d As Object
Dim ir, i, j
Dim str$
Set d = CreateObject("scripting.dictionary")
Application.ScreenUpdating = False
On Error Resume Next
Sheets("sheet1").Select
ir = Range("b65536").End(xlUp).Row
For i = 2 To ir
  For j = 3 To 8
  str = str & "|" & Cells(i, j)
  Next
  str = Mid(str, 2)
  d(Cells(i, 2).Value & "") = str
  str = ""
Next
Sheets("sheet2").Select
ir = Range("b65536").End(xlUp).Row
For i = 3 To ir
Range(Cells(i, 3), Cells(i, 8)) = Split(d(Cells(i, 2).Value & ""), "|")

Next
Application.ScreenUpdating = True
End Sub

[ 本帖最后由 smhf_6 于 2010-12-27 12:37 编辑 ]

多多2011

谢谢smhf_6老师的帮忙，现在我已下载了您的文件收藏，作为今后工作中使用，确实很实用。感谢您，也谢谢楼上qczvba。今后会加强学习的，VBA的功能令我体会到不少高效办公的快乐。

qczvba

建议楼主参考此贴中的（凭证科目输入功能），也许对你有帮助。
http://club.excelhome.net/thread-625847-1-1.html

smhf_6

修改一下，中午在单位里一直出问题，所以变通了一下，晚上回家一试，行了：
Sub xx()
Dim d As Object
Dim ir, i

Set d = CreateObject("scripting.dictionary")
Application.ScreenUpdating = False
On Error Resume Next
Sheets("sheet1").Select
ir = Range("b65536").End(xlUp).Row
For i = 2 To ir
  d(Cells(i, 2).Value & "") = Range(Cells(i, 3), Cells(i, 8))
Next

Sheets("sheet2").Select
ir = Range("b65536").End(xlUp).Row
For i = 3 To ir
Range(Cells(i, 3), Cells(i, 8)) = d(Cells(i, 2).Value & "")

Next
Application.ScreenUpdating = True
End Sub

多多2011

谢谢smhf_6老师的精益求精，现在我还无法活学活用，总是将表格考入老师做好的文件里面套用，已能解决实际问题了。好好学习了，只有等学会了才能扩展应用了。

mjzxlmg

上面的代码都能用字典跟数组了，搞不懂还要用直接读取单元格数据的方法。
最好是把工作表中的数据读入数组，然后在数组中操作，最后一步才写入单元格，速度上会快很多。

fcghw

下载文件收藏

yxrlqy

先收藏下，谢谢分享！

ca3suapi

谢谢楼主分享，同时也向老师的无私奉献致敬。收藏了。慢慢学习。