[已解决]如何实现VBA替代多个vlookup

raineq

老师你看看我在你的基础上改的
Sub test()
  ARR = Sheets("QTY from MP 2012 AOP").Range("A3:r" & Sheets("QTY from MP 2012 AOP").Range("A65536").End(3).Row)
  BRR = Sheets("2013 APAC Project List ").Range("A8:AH" & Sheets("QTY from MP 2012 AOP").Range("A65536").End(3).Row)
  For I = 1 To UBound(ARR)
    For J = 1 To UBound(BRR)
     If BRR(J, 1) = ARR(I, 1) Then
       For K = 23 To 34
        BRR(J, K) = ARR(I, K - 16)
       Next
       Exit For
      End If
      Next
   Next
   Sheets("2013 APAC Project List ").Range("A8").Resize(UBound(BRR), 34) = BRR
End Sub
但是只能出来第8，10，11，29，31 这几行的数，其它的都不出来，我哪里写错了吗？

zjdh

初看你的宏没啥错，你要注意
Sheets("QTY from MP 2012 AOP")的A列
Sheets("2013 APAC Project List ")的A列
数据的类型是否一致，是否存在空格。