在VBA中实现VLOOKUP功能

liucqa

smhf_6 发表于 2010-12-27 17:48
修改一下，中午在单位里一直出问题，所以变通了一下，晚上回家一试，行了：
Sub xx()
Dim d As Object

假设sheet1的数据列和sheet2的数据列顺序不一致，有什么简单办法处理下面语句？
For i = 2 To ir
  d(Cells(i, 2).Value & "") = Range(Cells(i, 3), Cells(i, 8))
Next

例如 sheet1身份证号和性别所在列交换一下

汪淑萍

smhf_6 发表于 2010-12-27 12:34
Sub xx()
Dim d As Object
Dim ir, i, j

学习学习。

shaojinliu

谢谢了！学习了！

TFQWFN

学习了，真是高手

wqjwftcaqr

自己动手试了一下
Sub cd()

    Set dict = CreateObject("Scripting.Dictionary")
    For x = 2 To Sheet1.Cells(65536, 3).End(xlUp).Row '循环表格生成字典
        dict(Sheet1.Cells(x, 2).Value & "") = Range(Sheet1.Cells(x, 3), Sheet1.Cells(x, 8))
        'Debug.Print x
        'Debug.Print Sheet3.Cells(3, 2).Value
        
   
   
   
    Next x
    'Sheets("Sheet3").Select
    'ir = Range("b65536").End(xlUp).Row
    For i = 3 To Sheet3.Cells(65536, 1).End(xlUp).Row '循环sheet2中的表格，把字典里的值填进去
        Debug.Print i
        Range(Sheet3.Cells(i, 3), Sheet3.Cells(i, 8)) = dict(Sheet3.Cells(i, 2).Value & "")

        
        
        
    Next i









End Sub
请问我debug后面那句话错了，应该单改这句话让这脚本可以运行成功
另外问一下：），d(Cells(i, 2).Value & "") 中的
Value & "") 是什么意思

[ 本帖最后由 wqjwftcaqr 于 2011-3-8 10:47 编辑 ]

blackttea1

好好学习了，只有等学会了才能扩展应用

mcmon

我上次也碰到了vlookup函数在vba中调用非常慢的问题，后来就直接用vlookup函数了，不过这个果然强大，支持。

suyu20050224

smhf_6 发表于 2010-12-27 17:48
修改一下，中午在单位里一直出问题，所以变通了一下，晚上回家一试，行了：
Sub xx()
Dim d As Object

此代码该如何理解！！！

lcjy11185

确实，速度不快

finishpig

努力学习中。。