求助，如何让单元格内显示除了条件以外内容

mykitami

=TEXTJOIN("，",,SUBSTITUTE(TEXTSPLIT("，"&B3&"，","，"&A3&"，",,1),"，",))

jianghuan4577

jivy1212 发表于 2025-3-14 16:18
低版套娃法，可防张三、张三丰特例这种

非常感谢，太牛了

jianghuan4577

非常感谢各位，， 解决了

wyslw2004

沈默00 发表于 2025-3-14 16:40
WPS 20305

谢谢，我也去下载来试一下。我还是office365beta，连正则都没有。本本太小了，微软新版本工具栏太占位置了，都不敢升级

沈默00

wyslw2004 发表于 2025-3-14 16:59
谢谢，我也去下载来试一下。我还是office365beta，连正则都没有。本本太小了，微软新版本工具栏太占位置 ...

可以试试，WPS函数还行，，，图形图表类的就太难看了，，，
两种都装上，，，看做啥选择合适的就好

仗剑天涯0o0

1. =LET(a,REGEXP(B3,"[^，]+"),ARRAYTOTEXT(FILTER(a,a<>A3,"")))

复制代码

用不了一点旧函数

你是那块小饼干

=TEXTJOIN(",",1,SUBSTITUTE(TEXTSPLIT(B3,"，",),A3,""))

yangqianming

我瞎折腾
=TEXTJOIN(",",TRUE,REGEXP(REGEXP(B3,"[^，]+"),A3,2))

Excel_muke

1. =TEXTJOIN(",",1,IF(FILTERXML(SUBSTITUTE("<a><b>"&B3&"</b></a>","，","</b><b>" ),"a/b")<>A3,FILTERXML(SUBSTITUTE("<a><b>"&B3&"</b></a>","，","</b><b>" ),"a/b"),""))

复制代码

niko88819

可防张三、张三丰特例这种
C3 公式

1. =RMFG(A3,B3,"，")

复制代码

1. Function RMFG(member As String, groupList As String, delimiter As String) As String
   
2.     Dim members As Object
   
3.     Set members = CreateObject("Scripting.Dictionary")
   
4.     Dim arr As Variant
   
5.     Dim i As Integer
   
6.     Dim result As String
   
7.     arr = Split(groupList, delimiter)  
   
8.     For i = LBound(arr) To UBound(arr)
   
9.         If StrComp(Trim(arr(i)), Trim(member), vbBinaryCompare) <> 0 Then
   
10.             members(Trim(arr(i))) = 1
    
11.         End If
    
12.     Next i
    
13.     result = Join(members.Keys, delimiter)
    
14.     RMFG = result
    
15. End Function

复制代码