小白豆腐渣
发表于 2021-12-11 05:58:24
PQ操作,仅供参考
如来神猪腿
发表于 2021-12-13 11:35:15
实际如何操作 说一下 谢谢大哥
亩产万斤
发表于 2021-12-14 12:33:05
没人会吗
紫坔燊金
发表于 2021-12-17 13:04:30
这个还是写正则好吧
独寒
发表于 2021-12-17 16:26:24
具体怎么操作呢。。。一天了都没找到办法处理 2万多条数据
向日葵始終向往着它的太陽
发表于 2021-12-18 06:43:03
这个你看看是不是你想要的结果
鳌拜
发表于 2021-12-19 21:59:15
=TEXTJOIN(",",,FILTERXML("<a><b>"&SUBSTITUTE(A1,",","</b><b>")&"</b></a>","//b"))前提是分隔符相同。
辉煌城堡
发表于 2021-12-30 14:37:19
Function unq(rng)
Dim dic As Object, str As String, i As Integer, arr
With CreateObject("vbscript.regexp")
.Global = 1
.Pattern = "[^A-Z\u4e00-\u9fae]"
str = .Replace(rng, " ")
End With
arr = Split(str, " ")
Set dic = CreateObject("scripting.dictionary")
For i = LBound(arr) To UBound(arr)
dic(arr(i)) = ""
Next i
arr = dic.keys
unq = Join(arr, ",")
End Function