使用VBA引用VLOOKUP出错（使用字典解决）

stoncold

sj15627581616 发表于 2020-2-14 20:37
你有宁愿怀疑VLOOKUP函数的问题也不愿意承认自己逻辑错误的问题吗？我测试结果跟直接使用函数的结果是一 ...

虽然我通过字典的方式解决了问题。
但是我也挺想知道我的原代码中哪一个逻辑有问题，我挺想知道这个VLOOKUP为什么有极个别的数无法进行通过VBA调用函数VLOOKUP来的，而且都是1万多以后才出现这个数据无法VLOOKUP过来的。
纯粹是想知道一下答案，下次能避免出错。

liulang0808

Worksheets("积分兑换").Range(Cells(1, xsdh), Cells(erow, jfdx)
这个地方感觉不太合适的，修改成下面的看看
Worksheets("积分兑换").Range(Worksheets("积分兑换").Cells(1, xsdh), Worksheets("积分兑换").Cells(erow, jfdx)

sj15627581616

Sub ts()
t = Timer
Application.ScreenUpdating = False

zdh = Sheet1.Cells(Rows.Count, 1).End(3).Row
zdh1 = Sheet2.Cells(Rows.Count, 1).End(3).Row
zdl = Sheet1.Cells(1, Columns.Count).End(1).Column
zdl1 = Sheet2.Cells(1, Columns.Count).End(1).Column
With Sheet2
For q = 1 To zdl
If Sheet1.Cells(1, q) = "所属单号" Then
  cx = q: Exit For
  End If
  Next
  For w = 1 To zdl1
If .Cells(1, w) = "销售单号" Then
  xsdh = w: Exit For
  End If
  Next
  For e = 1 To zdl1
  If .Cells(1, e) = "积分抵现" Then
  jfdx = e: Exit For
  End If
  Next
  End With
  With Application.WorksheetFunction
    For i = 2 To zdh
    On Error Resume Next
        Sheet1.Cells(i, zdl + 1) = .VLookup(Sheet1.Cells(i, cx), Sheet2.Range(Cells(1, xsdh), Cells(zdh1, jfdx)), 2, 0)
    Next
End With
MsgBox Timer - t
Application.ScreenUpdating = True

End Sub
自行参考各种差别吧

SCL5801

stoncold 发表于 2020-2-14 21:02
因为我自己很难发现自己逻辑上的错误 ，你说的使用你的方法和自己手动的一样？
因为原始数据中数据列比 ...

Worksheets("积分兑换").Range(Cells(1, xsdh), Cells(erow, jfdx))
vlookup 的第二个参数的范围是11893行，范围不全。

sj15627581616

用明朝的剑斩清朝的官，不出错才有鬼

stoncold

SCL5801 发表于 2020-2-14 22:30
Worksheets("积分兑换").Range(Cells(1, xsdh), Cells(erow, jfdx))
vlookup 的第二个参数的范围是11893 ...

哦，谢谢，这下明白了是因为什么出问题的

stoncold

sj15627581616 发表于 2020-2-14 22:15
Sub ts()
t = Timer
Application.ScreenUpdating = False

知道问题所在了，谢谢！
调用函数没有问。
不过使用字典的话速度快不少。

stoncold

sj15627581616 发表于 2020-2-14 22:15
Sub ts()
t = Timer
Application.ScreenUpdating = False

你的代码可读性比我的强，我的比较容易出错。

sj15627581616

stoncold 发表于 2020-2-15 09:05
知道问题所在了，谢谢！
调用函数没有问。
不过使用字典的话速度快不少。

字典跟调用函数差距非常大，不是快不少，是快非常多，即使五六万行数据，处理也就两三秒