vlookup实现

jinjin2089

各位大侠，目前实现了在图1中输入电话号码后抓取图2的相关，但图2中的数据如果发生更改图1中的数据不能及时更新，这个功能该怎么实现？

liulang0808

在图2表增加对应的change事件，数据变更，修改tu1数据吧

jinjin2089

liulang0808 发表于 2018-8-30 20:52
在图2表增加对应的change事件，数据变更，修改tu1数据吧

您看我这个能不能实现？需要怎么改？
Private Sub Worksheet_Activate()
Dim crr, drr(), i&, m&
crr = Sheet1.Range("a6:d" & Sheet1.Range("a60000").End(3).Row)
drr = Sheet2.Range("a6:d" & Sheet1.Range("a60000").End(3).Row)
    For i = 6 To UBound(drr)
     For m = 6 To UBound(crr)
    If drr(i, 2) = crr(m, 2) Then
         drr(i, 1) = crr(m, 1)
         drr(i, 2) = crr(m, 2)
        drr(i, 3) = crr(m, 3)
        drr(i, 4) = crr(m, 4)
      
   
     End If
    Next
    Next
    With Sheet2
       .Range("A6:d60000") = ""
       .Range("A6").Resize(i, 4) = drr
    End With
   
      
End Sub

jinjin2089

liulang0808 发表于 2018-8-30 20:52
在图2表增加对应的change事件，数据变更，修改tu1数据吧

可以了，谢谢

mavin

VLOOKUP解决，允许我笑一下。