A排除B中的数据，谢谢

zhangcheng6688 · 发表于 2024-6-27 07:44

学习一下字典，打扰了
Sub test()
lastr = Cells(Rows.Count, "a").End(xlUp).Row
arr = Range("a1:c" & lastr)
Set d = CreateObject("scripting.dictionary")
For i = 1 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))
   s1 = Mid(arr(i, 1), j, 1)
   If Not d.exists(s1) Then
      arr(i, 3) = arr(i, 3) & s1
   End If
Next
d.RemoveAll
Next
[a1].Resize(UBound(arr), 3) = arr
End Sub

沈默00 · 发表于 2024-6-27 08:37

=CONCAT(UNIQUE(HSTACK(MID($A1,SEQUENCE(1,LEN($A1)),1),MID($B1,SEQUENCE(1,LEN($B1)),1)),1,1)) 下拉

沈默00 · 发表于 2024-6-27 08:38

=CONCAT(TEXTSPLIT(A1,MID($B1,SEQUENCE(1,LEN($B1)),1))) 下拉

wbjjzhu · 发表于 2024-6-27 09:15

=REGEXP(A1,"["&B1&"]",2,"")

复制代码

niko88819 · 发表于 2024-6-27 10:33

哗，看了老师们的解答，WPS功能越来越强大了

roserice · 发表于 2024-6-27 13:34

=TEXTJOIN("",TRUE,TOROW(UNIQUE(MID(A1&B1,ROW($A$1:INDIRECT("a"&(LEN(A1)+LEN(B1)))),1),FALSE,TRUE)))

		自动登录	找回密码
密码			免费注册

[求助] A排除B中的数据，谢谢

评分