vba实现vlookup跨表查询

wxm199815

文件比较大无法上传。
具体情况是，根据表1中合同编号一列的值，去表2中查询相同的合同编号，返回表2中对应的合同金额。

wxm199815

有能帮忙的吗，加q详聊一下

wxm199815

就是这个文件

xieweixiang

Sub 按钮1_Click()
Application.ScreenUpdating = False
    Dim i, k, v, arr, db
   
    arr = Sheets("合同列表").Range("a1").CurrentRegion
    Set db = CreateObject("Scripting.Dictionary")
    For i = 2 To UBound(arr)
        k = Trim(arr(i, 2))
        v = arr(i, 4)
        db(k) = v
    Next i
  
    Sheets("总表").Select
    For i = 2 To Sheets("总表").UsedRange.Rows.Count
        k = Trim(Cells(i, 3))
        v = db(k)
        Cells(i, 4) = v
    Next i
Application.ScreenUpdating = True

End Sub

xieweixiang

请查看

xieweixiang

已解决

aidunsoft

请看这个，不用VLOOKUP 也可能跨表查询导入 https://www.aidunsoft.com/photo/show-83.html