excel - Excel UDF - VLOOKUP 部分匹配并在单个单元格中连接结果
问题描述
我有 2 列数据和第三列查询词。查询词在数据的第 1 列(“数据 1”)中具有部分但完全匹配的匹配。我想在“Data1”列中查找查询词的所有匹配项,并从“Data2”列返回逗号分隔值。
请看图片。
这个网站上已经有一个类似问题的UDF,但这并不完全符合我的要求。
非常感谢你的帮助。最好的祝愿 Manoj数据图像
我试过这个UDF:
Public Function ConcatPartLookUp(rngInput As Range, rngSource As Range, Optional strDelimiter As String, Optional blCaseSensitive)
Dim rng As Range
If strDelimiter = "" Then strDelimiter = "|"
If IsMissing(blCaseSensitive) Then
blCaseSensitive = False
Else
blCaseSensitive = True
End If
For Each rng In rngSource
If blCaseSensitive Then
If InStr(1, rng.Value, rngInput.Value, vbBinaryCompare) > 0 Then ConcatPartLookUp = ConcatPartLookUp & strDelimiter & rng.Value
Else
If InStr(1, rng.Value, rngInput.Value, vbTextCompare) > 0 Then ConcatPartLookUp = ConcatPartLookUp & strDelimiter & rng.Value
End If
Next
If Len(ConcatPartLookUp) > 0 Then ConcatPartLookUp = Mid(ConcatPartLookUp, 2, Len(ConcatPartLookUp))
End Function
此代码将从“Data1”列返回匹配项(非常蓝天。|永远的蓝天。)。我希望在 Data1 上匹配,但从 Data2 返回值。谢谢
解决方案
如果您有 Office 365 Excel,则可以使用 TEXTJOIN 作为数组公式:
=TEXTJOIN(",",TRUE,IF(ISNUMBER(SEARCH(D2,$A$2:$A$6)),$B$2:$B$6,""))
作为一个数组公式,退出编辑模式时需要使用 Ctrl-Shift-Enter 而不是 Enter 来确认。
如果您没有 Office 365,则将此代码放入模块中,然后使用上述公式:
Function TEXTJOIN(delim As String, skipblank As Boolean, arr)
Dim d As Long
Dim c As Long
Dim arr2()
Dim t As Long, y As Long
t = -1
y = -1
If TypeName(arr) = "Range" Then
arr2 = arr.Value
Else
arr2 = arr
End If
On Error Resume Next
t = UBound(arr2, 2)
y = UBound(arr2, 1)
On Error GoTo 0
If t >= 0 And y >= 0 Then
For c = LBound(arr2, 1) To UBound(arr2, 1)
For d = LBound(arr2, 1) To UBound(arr2, 2)
If arr2(c, d) <> "" Or Not skipblank Then
TEXTJOIN = TEXTJOIN & arr2(c, d) & delim
End If
Next d
Next c
Else
For c = LBound(arr2) To UBound(arr2)
If arr2(c) <> "" Or Not skipblank Then
TEXTJOIN = TEXTJOIN & arr2(c) & delim
End If
Next c
End If
TEXTJOIN = Left(TEXTJOIN, Len(TEXTJOIN) - Len(delim))
End Function
推荐阅读
- ruby - 双管有没有实际区别|| 和 Ruby 中的单例?
- .net - VS 2017 的系统性能
- reactjs - 在 SPFX 命令集中使用 SP.Modal 对话框
- php - 计算以下多维数组中的子节点数并更新每个父节点的成员数
- ios - 如何比较 2 个日期并了解它们之间的距离
- html - if else条件在带有“或”的角度html标签中
- sql - SQL:如何“聚合序列”?
- python - 将 itertools 用于具有枚举的条件以仅获取某些列表索引(python)
- nxlog - 为什么 Nxlog 使用 100% cpu 导致系统无法使用?
- cassandra - Akka 持久性 - 存储插件如何工作?