求解如何用VBA实现vlookup功能

zwkk777

由于查找数据增多，原来的vlookup功能使得运行越来越大，而且很占内存，希望大神能给编个VBA程序替代vlookup功能，本人VBA菜鸟，希望能写的详细点，最好能有步骤！万分感谢！谢谢大家！

zwkk777

补充：就是VBA编程后，以后只要更新井名和日期，后面就自动追加查找详细数据

曹银强

楼主的查找值是那项或那几项，返回值是那项或那几项

zwkk777

曹银强 发表于 2018-7-23 16:06
楼主的查找值是那项或那几项，返回值是那项或那几项

查找值是工作表sheet1中B列和C列，返回值是后面D列到AR列

zwkk777

就是用工作表sheet1中的B列和C列去匹配工作表“基础数据”中的B列和C列，如果值相同则返回值输出在工作表sheet1中的D列到AR列，以后只要手动更新sheet1中的B列和C列以及“基础数据”表中的数据，后面D列到AR列的数据就自动出现，不知道描述的清不清楚，希望大神能给解决下 万分感谢！！

绫小路sama

用录制宏改

zwkk777

不能编程吗？录制宏不太会弄，求步骤，或者附件，万分感谢

乐乐2006201505

不知为什么无法上传附件。现上传附件。
在工作表中写入下面代码：
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Column = 2 And Target.Row >= 3 Or Target.Column = 3 And Target.Row >= 3 Then
        Call lqxs
    End If
End Sub

插入模块写入下面代码：
Sub lqxs()
    Dim Arr, i&, Brr, d
    Set d = CreateObject("Scripting.Dictionary")
    Arr = Sheets("基础数据").[a1].CurrentRegion
    For j = 4 To 44
        For i = 2 To UBound(Arr)
            x = Arr(i, 2) & "|" & Arr(i, 3)
            d(x) = Arr(i, j)
        Next
        Brr = [a1].CurrentRegion
        For i = 3 To UBound(Brr)
            x = Brr(i, 2) & "|" & Brr(i, 3)
            If d.exists(x) Then Cells(i, j) = d(x)
        Next
    Next
End Sub

zwkk777

谢谢老师回复，我下来研究下，万分感谢！！

zwkk777

乐乐2006201505 发表于 2018-7-23 18:26
不知为什么无法上传附件。现上传附件。
在工作表中写入下面代码：
Private Sub Worksheet_Change(ByVal T ...

谢谢老师，成功了，太感谢了，就是现在不太清楚每条语句的意思，我自己在琢磨下，真的是太感谢了！