VBA代码替代多条件的VLOOKUP

acer_office

需求：根据“还款计划“中的 案件编号”以及“期数” 到 "还款流水"表中 匹配。匹配到就把对应的"还款本金","本金还款日期","还款利息","利息还款日期"
      填到“还款计划“ 对应的单元格中。
         原本是用VLOOKUP 根据多条件匹配的，但是数据量有点大，excel运行太慢还卡死，所有想给成VBA用数组+字典，添加一个按钮
         由人工触发匹配。
         希望大师帮帮忙，本人是VBA小白。先行谢过

acer_office

希望有走过路过的大师们，帮帮忙。谢谢

liangmutou01

见代码，希望能帮到你。
Sub cs1_Click()
  Dim ar, br, ha As Long, hb As Long
  Sheet1.Activate
  ar = Range("a2:l" & [b65536].End(3).Row)
  Range("a2:l" & [b65536].End(3).Row).ClearComments
  br = Sheet2.Range("b2:l" & Sheet2.[b65536].End(3).Row)
  For ha = 1 To UBound(ar)
    For hb = 1 To UBound(br)
      If ar(ha, 2) = br(hb, 1) And ar(ha, 6) = br(hb, 3) Then
        ar(ha, 8) = br(hb, 4): ar(ha, 9) = br(hb, 5)
        ar(ha, 10) = br(hb, 6): ar(ha, 11) = br(hb, 7)
        ar(ha, 12) = br(hb, 8)
        Exit For
      End If
    Next hb
  Next ha
  Range("a2").Resize(UBound(ar), UBound(ar, 2)) = ar
End Sub

liangmutou01

把原件发给你。