EXCEL 例子中的222和3333能不能直接用公式去重。
的有关信息介绍如下:要自定义公式。
vba如下:
Public Function deduplicate(duplicateWords As String)
Dim wArray As Variant
wArray = Split(duplicateWords, ";") '这里修改分隔符(你的要用;)敬野卖
Set dic = CreateObject("scripting.dictionary")
For I = 0 To UBound(wArray)
脊码 亮逗 dic(Trim(wArray(I))) = ""
Next
Dim result As String
For Each wItem In dic
result = result + "," + wItem
Next
deduplicate = Right(result, Len(result) - 1)
End Function
Sub TC()
End Sub