去掉重复英文

考虑过将A列分列后去重的方法，但题主的句子有的很长，会导致分列很多操作很不方便。

所以我自定义创建了一个公式EDTEXT，步骤如下：

代码

Public Function EDTEXT(text)

Application.Volatile True

Dim arr() As String

Dim Newt As String

arr = Split(text, " ")

For i = 0 To UBound(arr)

If Not InStr(Newt, arr(i)) > 0 Then Newt = Newt & arr(i) & " "

Next

EDTEXT = Left(Newt, Len(Newt) - 1)

End Function

复制粘贴代码

工作表输入公式即可