ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

±a¥X²Å¦X¤@ªø¦ê¦r¦ê¸ê®Æ

B2:
=IF(COUNT(FIND(A2,E$1)),A2,"")

C2:
=IFERROR(LEFT(VLOOKUP("*"&A2&"*",E$1:E$2,1,),3),"")

TOP

¦^´_ 3# leiru

=IF(COUNT(FIND("+"&A2&"+","+"&MID(E$1,5,199)&"+")),A2,"")

=iferror(LEFT(LOOKUP(1,-FIND("+"&A2&"+","+"&MID(E$1:E$2,5,199)&"+"),E:E),3),"")

TOP

¦^´_ 5# leiru


«ç»ò±a, ¼ÒÀÀµ²ªG¬Ý¬Ý~~

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2020-5-23 10:06 ½s¿è

¦^´_ 7# leiru


B2/°}¦C:
=IF(COUNT(FIND("+"&A2&"+","+"&SUBSTITUTE(E$1:E$2,"=","+")&"+")),A2,"")

C2/¤@¯ë:
=IFERROR(LEFT(LOOKUP(1,-FIND("+"&A2&"+","+"&SUBSTITUTE(E$1:E$2,"=","+")&"+"),E:E),3),"")

============================================
­Y±N¦r¦ê§ï¦¨:
XSV+/+XSW+XSX+XSY+XSZ+XT0+XT1+XUX+XV0+XV1+XV2
XT3+/+XT4+XT5+XT6+XT7+XT8+XT9+XUY+XV3+XV4+XV5

=IF(COUNT(FIND("+"&A2&"+","+"&E$1:E$2&"+")),A2,"")
=IFERROR(LEFT(LOOKUP(1,-FIND("+"&A2&"+","+"&E$1:E$2&"+"),F:F),3),"")


============================================

TOP

¦^´_ 9# leiru


°ªª©¥»ªº¦³¦X¨Ö¦r¦ê¨ç¼Æ, §Ú¨S¦³!
§Cª©¥»­n¥ÎVBA

TOP

¦^´_ 11# leiru

Sub TEST()
Dim R&, Arr, T$, TT$, TS, xD, i&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([D1], [D65536].End(xlUp)(2))
For i = 2 To UBound(Arr)
    If Arr(i, 1) <> "" Then xD(Arr(i, 1) & "") = ""
Next i
Arr = Range([A2], [A65536].End(xlUp)(2))
For i = 1 To UBound(Arr)
    TT = "": T = Replace(Arr(i, 1), "=", "+")
    If T = "" Then GoTo 101
    For Each TS In Split(T, "+")
        If TS <> "" And xD.Exists(TS & "") Then TT = TT & "¡B" & TS
    Next
    Arr(i, 1) = Mid(TT, 2)
101: Next i
[B2].Resize(UBound(Arr)) = Arr
End Sub


==================================

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD