怎样通过姓名清单，将相关姓名提取到C列

zc346843487

如题，有什么办法针对多种格式拉取数据，求教公式或者编程都行，


跪谢大佬！！！

晨光晞微

1. =LOOKUP(1,0/FIND(F$2:F$7,B2),F$2:F$7)

复制代码

uug

参考…………

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, i&, strPat$, strName$, aMatch As Object
   
    ar = Range("F1", Cells(Rows.Count, "F").End(xlUp)).Value
    For i = 2 To UBound(ar)
        If Len(strPat) Then
            strPat = strPat & "|" & ar(i, 1)
        Else
            strPat = ar(i, 1)
        End If
    Next i
   
    ar = Range("B1", Cells(Rows.Count, "B").End(xlUp)).Value
    ar(1, 1) = "提取左侧单元格姓名"
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = strPat
        For i = 2 To UBound(ar)
            strName = ""
            For Each aMatch In .Execute(ar(i, 1))
                strName = strName & "、" & aMatch.Value
            Next
            ar(i, 1) = Mid(strName, 2)
        Next i
    End With
   
    [C1].Resize(UBound(ar)) = ar
    Beep
End Sub

gwjkkkkk

请参考附件。。。

计划小文

=CONCAT(IF(ISERR(FIND($D$2:$D$7,A2)),"",$D$2:$D$7))

cnmlgb9998

1. =TOCOL(IF(FIND($F$2:$F$7,$B2),$F$2:$F$7,""),3)

复制代码

zc346843487

晨光晞微 发表于 2024-4-19 16:22

受教，谢大神！！！

zc346843487

uug 发表于 2024-4-19 16:25
参考…………

可以实现，谢大神！！！

zc346843487

gwjkkkkk 发表于 2024-4-19 19:50
Option Explicit
Sub TEST1()
    Dim ar, i&, strPat$, strName$, aMatch As Object

有些难度，解析中，谢大神的帮助！