数据用VLOOKUP 公式 数据比较多在输入数据时 经常显示正在计算 ，有更好的方法吗

vegdew

满坛皆为吾师 发表于 2025-3-29 11:50
你的VLOOKUP公式改一下，D5输入公式，右拉下拉

感谢  帮助

你是那块小饼干

=FILTER(物料编号!$B$5:$F$9,物料编号!$B$5:$B$9=进货!B5,"")

mykitami

=XLOOKUP(B5,物料编号!B:B,物料编号!C:F)

wyslw2004

公式选项卡，把自动计算，改成手动

mjm04

升级版本 是最有效的；

微软 在2021版以后，大幅度升级了对老函数的运算效率的

快乐王子238

Xlookup,filter,几万都没有问题

henterwu

用高版本的应该还是不多，vlookup函数的缺点还是很明显。我就自定义了函数ivlookup。
参数有：inText:单元格，inRng1:查找列，inRng2:显示列，x=0精确多值查找，x=1模糊多值查找。
代码如下：
Function iVlookup(inText As String, inRng1 As Range, inRng2 As Range, x As Byte) As String
iVlookup = ""
arr1 = inRng1.Value
arr2 = inRng2.Value
If UBound(arr1) <> UBound(arr2) Or UBound(arr1, 2) <> UBound(arr2, 2) Then Exit Function

If x = 0 Then
  For i = 1 To UBound(arr1)
    If arr1(i, 1) = inText Then
      iVlookup = iVlookup & arr2(i, 1) & ","
    End If
  Next
  iVlookup = Left(iVlookup, Len(iVlookup) - 1)
End If

If x = 1 Then
  For i = 1 To UBound(arr1)
    If InStr(arr1(i, 1), inText) > 0 Then
      iVlookup = iVlookup & "{" & arr1(i, 1) & "," & arr2(i, 1) & "};"
    End If
  Next
  iVlookup = Left(iVlookup, Len(iVlookup) - 1)
End If
End Function

vegdew

henterwu 发表于 2025-3-30 20:46
用高版本的应该还是不多，vlookup函数的缺点还是很明显。我就自定义了函数ivlookup。
参数有：inText:单元 ...

非常 感谢你的 帮助

henterwu

vegdew 发表于 2025-3-31 08:19
非常 感谢你的 帮助

不客气的，用相对引用可以右拉下拉。

henterwu

增加了x=2时，查询值模糊反向精确查询。
Function iVlookup(inText As String, inRng1 As Range, inRng2 As Range, x As Byte) As String
iVlookup = ""
arr1 = inRng1.Value
arr2 = inRng2.Value
If UBound(arr1) <> UBound(arr2) Or UBound(arr1, 2) <> UBound(arr2, 2) Then Exit Function

If x = 0 Then
  For i = 1 To UBound(arr1)
    If arr1(i, 1) = inText Then
      iVlookup = iVlookup & arr2(i, 1) & ","
    End If
  Next
  iVlookup = Left(iVlookup, Len(iVlookup) - 1)
End If

If x = 1 Then
  For i = 1 To UBound(arr1)
    If InStr(arr1(i, 1), inText) > 0 Then
      iVlookup = iVlookup & "{" & arr1(i, 1) & "," & arr2(i, 1) & "};"
    End If
  Next
  iVlookup = Left(iVlookup, Len(iVlookup) - 1)
End If

If x = 2 Then
  For i = 1 To UBound(arr1)
    If InStr(inText, arr1(i, 1)) > 0 Then
      iVlookup = iVlookup & "{" & arr1(i, 1) & "," & arr2(i, 1) & "};"
    End If
  Next
  iVlookup = Left(iVlookup, Len(iVlookup) - 1)
End If

End Function