条件重下往上找数据

缘之绘

  谢谢，重下往上找数据，谢谢

窗台边

解决方法见附件

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, dic As Object, i As Long, t As String
  Set dic = CreateObject("scripting.dictionary")
  arr = Sheets("数据库").[a1].CurrentRegion
  For i = UBound(arr, 1) To 2 Step -1
    t = arr(i, 1) & arr(i, 2)
    If Not dic.exists(t) Then dic(t) = arr(i, 3)
  Next
  With Sheets("查询")
    arr = .[a1].CurrentRegion
    For i = 2 To UBound(arr, 1)
      t = arr(i, 1) & arr(i, 2)
      arr(i, 3) = IIf(dic.exists(t), dic(t), vbNullString)
    Next
    .[a1].CurrentRegion = arr
  End With
End Sub

缘之绘

窗台边 发表于 2019-3-16 03:36
解决方法见附件

谢谢，强，这样比函数好多了

缘之绘

一把小刀闯天下 发表于 2019-3-16 07:20
Option Explicit

Sub test()

谢谢，都是很好的方法