Excel-从每个单元格中包含多个值的列中提取唯一值

我在一个专栏里有一份出版商名单。 我需要将唯一的发布者提取到单独的列表中，如下所示：

PLoS
Nature
IMA
NAoS
Elsevier
PLoS
T&F, Ebsco
ONCOTARGET
Oxford, ProQuest
Nature
Elsevier, ProQuest
ACS
Springer
Ebsco/ProQuest
PLoS
Elsevier
Nature

需要成为：

PLoS
Nature
IMA
NAoS
Elsevier
T&F
Ebsco
ONCOTARGET
Oxford
ProQuest
ACS
Spring

正如你们所看到的，在有几个出版商的行中，我需要唯一地计算它们

---

这可能吗？

此短宏既解析数据又删除重复项：

Sub dural()
    Dim K As Long, i As Long, N As Long
    Dim ary, a

    K = 1
    N = Cells(Rows.Count, "A").End(xlUp).Row

    ary = Range("A1:A" & N)

    For Each a In ary
        a = Replace(a, ", ", "/")
        If InStr(1, a, "/") > 0 Then
            bry = Split(a, "/")
                For Each b In bry
                    Cells(K, 2) = b
                    K = K + 1
                Next b
        Else
            Cells(K, 2).Value = a
            K = K + 1
        End If
    Next a

    Range("B:B").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

---

复制列表，然后使用“数据/删除重复项”仅保留唯一的列表，而这些列表根本无法达到我要查找的结果。它唯一要做的就是删除具有相同精确值的行。我要做的是取一个像这样的单元格：T&F，Ebsco并将其提取到两行：T&F EbscoOr查看并进行必要的小修改，以便设置适用于逗号分隔的字符串，而不是空格分隔的字符串。如果你有什么困难，给我喊一声。