发布网友 发布时间:2022-04-21 17:13
共3个回答
热心网友 时间:2023-08-26 05:52
如图:
B1=TEXTJOIN("/",,IF(ISERR(FIND(D$1:D$4,A1)),"",D$1:D$4))
同时按Ctrl+Shift+Enter三键输入数组公式,下拉。
PS:Excel版本要求为2019或Office365才有textjoijn函数
热心网友 时间:2023-08-26 05:53
B2输入 =IF(COUNT(FIND(D$2:D$3,A2))=2,D$2&","&D$3,IFERROR(LOOKUP(6^6,FIND(D$2:D$3,A2),D$2:D$3),""))
同时按下CTRL+SHIFT+Enter三键,使数组公式出现{ },公式下拉
热心网友 时间:2023-08-26 05:53
Sub abc()
Dim a As Range, d As Range, i As Range
Set i = Range("B2")
Range("b2:b65535").ClearContents
For Each a In Range(Range("A2"), Range("A65535").End(3))
For Each d In Range(Range("D2"), Range("D65535").End(3))
If InStr(a, d) > 0 Then
If Len(i.Text) > 0 Then i = i & ","
i = i & d
End If
Next d
Set i = i.Offset(1, 0)
Next a
End Sub