求助VBA 自己写的查询与vlookup 查询处理有误

rendiule01 · 发表于 2023-3-16 11:24

请教大神我自己写的VBA ，查询处理只能到3010行后面的就没有而且查询出来的和vlookup 又不同

Sub a()
Dim arr, brr, crr
arr = Sheet14.[A1].CurrentRegion
brr = Sheet15.[A1].CurrentRegion
ReDim crr(1 To UBound(arr), 1 To 1)
For i = 2 To UBound(arr)
      For k = 2 To UBound(brr)
         If arr(i, 1) = brr(k, 1) Then
            j = j + 1
            crr(j, 1) = brr(k, 2)
            Exit For
         End If

      Next
Next
Sheet14.[e2].Resize(j, 1) = crr
End Sub

代码库-20230317.zip (721.39 KB, 下载次数: 6)

Yalishanda30 · 发表于 2023-3-16 13:11

额。。。。。。。。。。

ykcbf1100 · 发表于 2023-3-16 13:34

这个大多用字典做的。

tanglf188 · 发表于 2023-3-16 13:37

		自动登录	找回密码
密码			免费注册

[求助] 求助VBA 自己写的查询 与vlookup 查询处理有误

[求助] 求助VBA 自己写的查询与vlookup 查询处理有误