如何从B列删除A列中的全部字符

yuki1126

可以肯定的是B列一定包含A列中全部的字符，但是难点在于A列和B列都是无序的，如何能从B列删除A列中的所有字符在C列展示？求助各位大佬

祝洪忠-

=TEXTJOIN(",",1,TEXTSPLIT(TEXTSPLIT(B2,",",),TEXTSPLIT(A2,",",)))

cnmlgb9998

PQ解千愁！！！！！！！！！！！！！！！

沈默00

沈默00

数据量不大就用公式，如果数据量大就用VBA

yuki1126

祝洪忠- 发表于 2024-3-11 20:08
=TEXTJOIN(",",1,TEXTSPLIT(TEXTSPLIT(B2,",",),TEXTSPLIT(A2,",",)))

谢谢您，可是我输入上之后显示结果是#NAME?是什么原因啊？按了alt+shift+enter了

yuki1126

沈默00 发表于 2024-3-12 07:46
数据量不大就用公式，如果数据量大就用VBA

同样谢谢您，可是我输入上之后显示结果是#NAME?是什么原因啊？按了alt+shift+enter了

祝洪忠-

yuki1126 发表于 2024-3-12 08:56
同样谢谢您，可是我输入上之后显示结果是#NAME?是什么原因啊？按了alt+shift+enter了

是您的版本低了 ，请安装最新版的WPS即可。  

ai.wps.cn

沈默00

yuki1126 发表于 2024-3-12 08:56
同样谢谢您，可是我输入上之后显示结果是#NAME?是什么原因啊？按了alt+shift+enter了

直接按enter就可以了，下拉公式

gwjkkkkk

VBA法
Option Explicit
Sub TEST6()
    Dim ar, cr, i&, j&, dic As Object
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = Range("A1", Cells(Rows.Count, "B").End(xlUp))
    For i = 1 To UBound(ar)
        cr = Split(ar(i, 2), ",")
        dic.RemoveAll
        For j = 0 To UBound(cr)
            dic(cr(j)) = Empty
        Next j
        cr = Split(ar(i, 1), ",")
        For j = 0 To UBound(cr)
            If dic.exists(cr(j)) Then dic.Remove cr(j)
        Next j
        ar(i, 1) = Join(dic.keys, ",")
    Next i
   
    Columns("C").Clear
    [C1].Resize(UBound(ar)) = ar
   
    Set dic = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub