求教大神ex 怎么去除同行重复数据 但是又要保留不重复的

小白豆腐渣

PQ操作，仅供参考
q.zip (17.15 KB, 下载次数: 201)

2021-9-25 12:14 上传

点击文件名下载附件
q.zip

如来神猪腿

实际如何操作 说一下 谢谢大哥

亩产万斤

没人会吗

紫坔燊金

这个还是写正则好吧

独寒

具体怎么操作呢。。。一天了都没找到办法处理 2万多条数据

向日葵始終向往着它的太陽

这个你看看是不是你想要的结果
副本q.zip (10.13 KB, 下载次数: 10)

2021-9-25 12:14 上传

点击文件名下载附件
副本q.zip

鳌拜

=TEXTJOIN(",",,FILTERXML("<a><b>"&SUBSTITUTE(A1,",","</b><b>")&"</b></a>","//b[not(preceding::*=.)]"))前提是分隔符相同。

辉煌城堡

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