pollyshen206
考虑过将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
复制粘贴代码
工作表输入公式即可
panying106
可以批量替换，但不知你的文档中的单词是排成啥样的，如果是一词一段查找：(^13[!^13]@^13)\1替换为：\1勾选“使用通配符”，全部替换，重复几次，直到替换处数为0
kami麻麻
要求有些不太寻常，所以方法也会比较蹊跷，分步如下：
1、选中A列，按空格进行分列。（具体操作为选中A列，点击数据选项卡下的分列，并选择按空格分列，如图1）
2、数据全选并转置。（点中任意有数据的单元格，Alt+A，Ctrl+C，找个空白单元格 Ctrl+V依次操作一下，点击开始选项卡下的粘贴--转置。如下图）
3、对每列进行删除重复值操作（数据--删除重复值）
4、concat函数合并，或text函数合并
吃吃喝喝小蚊子
可以试试ctrl+F替换，查找内容 就是要删除的单词 替换为处什么都不填，就会把要删除的单词全部删掉，一个不剩，然后再加上一次你要删除的单词，就每个单词只出现一次了。
