如何根据全集、子集，求补集

秃头发师

=IFERROR(CONCAT(UNIQUE(MID(B2&C2&E2,ROW($1:$30),1),,TRUE)),"")

回吧天堂

无关岁月 发表于 2024-9-26 09:36

打听一下，REGEXREPLACE和REGEXP是哪个版本的函数，我看你用的是365，为什么我的365没有这两个函数？我发现别人的365有的函数，我的365没有，是什么原因？谢谢

桑榆非晚

无关岁月 发表于 2024-9-26 09:36

老师好，这个我用显示name啊，也是365版本

无关岁月

桑榆非晚 发表于 2024-9-27 08:52
老师好，这个我用显示name啊，也是365版本

zhangcheng6688

学习一下字典
Sub test()
arr = [b1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
   For j = 1 To Len(arr(i, 2))
      s = Mid(arr(i, 2), j, 1)
      d(s) = ""
   Next
   For j = 1 To Len(arr(i, 1))
      s = Mid(arr(i, 1), j, 1)
      If Not d.exists(s) Then
         arr(i, 3) = arr(i, 3) & s
      End If
   Next
   d.RemoveAll
Next
Columns(2).NumberFormat = "@"
Columns(4).NumberFormat = "@"
[b1].CurrentRegion = arr
End Sub

浮生若梦~~~

hxj119 发表于 2024-9-26 10:20

譬如B2数据是024599     你这样B2&C2连接在一起

一杯绿茶来了

=LET(s,MID(B2,SEQUENCE(LEN(B2)),1),CONCAT(IF(ISNUMBER(FIND(s,C2)),"",s)))

hxj119

浮生若梦~~~ 发表于 2024-9-28 19:25
譬如B2数据是024599     你这样B2&C2连接在一起

示例中全集列（B列），没有重复的数字。若要考虑此因素，那就去重再连接呗。

mykitami

=CONCAT(TEXTSPLIT(B2,MID(C2,SEQUENCE(LEN(C2)),1)))
=REDUCE(B2,MID(C2,SEQUENCE(LEN(C2)),1),LAMBDA(x,y,SUBSTITUTE(x,y,)))