|
本帖最后由 china047 于 2021-9-2 18:23 编辑
Public Function SVLOOKUP(svlookup_value, table_array, col_index_num)
Dim arr, i As Long, yy As String
arr = table_array
For i = 1 To UBound(arr)
If arr(i, 1) = svlookup_value And arr(i, col_index_num) <> "" Then
SVLOOKUP = SVLOOKUP & yy & arr(i, col_index_num)
yy = Chr(10)
End If
Next
Select Case SVLOOKUP
Case ""
SVLOOKUP = "#N/A"
Case Else
End Select
End Function
同一条件多个数据提取.rar
(190.13 KB, 下载次数: 12)
数据库的编号向前移了一列, 这样"物料号" 与 评估库存都向左查找方便些, 否则一个向左查, 一个向右查会复杂多了!
|
评分
-
1
查看全部评分
-
|