字符串拆分、去重、合并，你会吗？

你好，我是刘卓。欢迎来到我的公号，excel函数解析。今天来分享一个字符串拆分、去重、合并的案例。

-01-

具体应用

下图A列是数据源，每个单元格都是一个字符串。每个字符串都是由一些近义词连成的，并且用竖线分隔。其中，有些词语是重复出现的，比如第一个字符串中的“希望”就多次出现。现在的要求是将字符串中重复的词语去掉，只保留一个，结果如B列所示。

相信很多小伙伴看到我模拟的结果后就有思路了，无非是“三部曲”。

第一步，以竖线为分隔符，将字符串拆分为一个数组。

第二步，对拆分后的数组进行去重处理。

第三步，把去重后的数组重新合并为字符串。

这个问题如果用pq或者vba来做，都是比较简单的，因为它们都有现成的函数或工具可用。如果用工作表函数来做那可能就有点麻烦了，因为没有现成的函数可以用，拆分没有split，去重没有unique(365版本除外)，合并没有textjoin(高版本还是有的，这个必须得有啊，要不然真没法搞了)。

虽然拆分没有split，幸好还有filterxml；虽然去重没有unique，幸好还有filterxml。

之前分享过filterxml分列的用法，其实它不仅可以分列，还可以去重。相当于一次干了2件事。想学习分列的用法，可以复习回顾《分列提取你还在用老套路吗？该尝试个新套路了。》这篇文章。

下面来看咱们的公式，在B2单元格输入下面的公式=TEXTJOIN("|",1,FILTERXML("<a><b>"&SUBSTITUTE(A2,"|","</b><b>")&"</b></a>","a/b[not(.=preceding::*)]"))，按ctrl+shift+enter三键，下拉填充。

FILTERXML("<a><b>"&SUBSTITUTE(A2,"|","</b><b>")&"</b></a>","a/b[not(.=preceding::*)]")这个公式返回的结果为{"希望";"期望";"心愿";"愿望"}，已经是去重后的结果。比之前分列的公式多了黑色字体的部分。可以参考下图来对比。

至于上面黑色字体中的那一串是什么意思，我也解释不来，类似于countif找第一次出现的，你可以把它当作固定的套路先用起来。想要详细了解，可以去论坛找海鲜老师的帖子。

经过filterxml拆分并去重后，得到一个数组，最后用textjoin将其连接成字符串。

下面来分享个vba的方法，效果如下图所示。

代码如下，看不清可以左右滑动。

Sub 字符串拆分去重合并() Dim arr, brr, str, cy, n% Set d = CreateObject("scripting.dictionary") arr = Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row) For Each str In arr n = n + 1 brr = Split(str, "|") For Each cy In brr d(cy) = "" Next arr(n, 1) = Join(d.keys, "|") d.RemoveAll Next Range("b2").Resize(n, 1) = arrEnd Sub


链接：

https://pan.baidu.com/s/1ZF61eevKNDAmtHwiwEEtBQ

提取码：c2v8