删除重复英文

考虑过将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

复制粘贴代码

工作表输入公式即可

可以批量替换，但不知你的文档中的单词是排成啥样的，如果是一词一段查找：(^13[!^13]@^13)\1替换为：\1勾选“使用通配符”，全部替换，重复几次，直到替换处数为0

要求有些不太寻常，所以方法也会比较蹊跷，分步如下：

1、选中A列，按空格进行分列。（具体操作为选中A列，点击数据选项卡下的分列，并选择按空格分列，如图1）

2、数据全选并转置。（点中任意有数据的单元格，Alt+A，Ctrl+C，找个空白单元格  Ctrl+V依次操作一下，点击开始选项卡下的粘贴--转置。如下图）

3、对每列进行删除重复值操作（数据--删除重复值）

4、concat函数合并，或text函数合并

=len(a2)=lenb(a2)下拉填充筛选结果为true的各行，删除

可以试试ctrl+F替换，查找内容 就是要删除的单词 替换为处什么都不填，就会把要删除的单词全部删掉，一个不剩，然后再加上一次你要删除的单词，就每个单词只出现一次了。

1. 函数法。可以使用vlookup、match等函数从A列中查找与B列中匹配的数据，并进行标注。如使用vlookup函数可参考这样做：在C2单元格输入公式=vlookup(a2,$b$2:$b$1000,1,0)，然后将公式向下填充至A列最后一行。$b$2:$b$1000可参考真实数据修改，对数据区域按C列排序即可知道匹配内容。其它函数可参阅帮助。2. 高级筛选法。最好先将A1、B1单元格统一内容，如“店铺数据”，然后调出数据-筛选-高级，弹出高级筛选对话框，在列表区域选择A列数据区，在条件区域选择B列数据区，其它保持默认，点击确定，即可筛出需要的数据内容。