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

AmoKat

1. Sub text_ger()
   
2.     Dim xR, S, SS, R
   
3.     For Each xR In Range([A1], [A65536].End(xlUp))
   
4.         R = Replace(xR, "、", ",")
   
5.         R = Replace(xR, "，", ",")
   
6.         SS = ""
   
7.         For Each S In Split(R, ",")
   
8.             If SS = "" Then SS = S Else _
   
9.             If InStr(SS, S) = 0 Then SS = SS & "," & S
   
10.         Next
    
11.         xR.Offset(, 2) = SS
    
12.     Next
    
13. End Sub

复制代码

jstsht

这个你看看是不是你想要的结果

sandays

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

theking_wsz

vba 都有这么多种写法  强（感觉难学啊）

sandays

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