Question

我有一个字符串，如800个地址电子邮件。它们用分号分隔。我该怎么做才能删除该字符串中的重复项？

Answer 1

请更新您的问题以显示您已尝试过的内容。您当前的代码很可能只需要稍微调整一下。

下面是一个更通用的方法来完成你所追求的，但就像我说的，可能有一种更简单的方法来修复你当前的代码，你不会真正通过复制和粘贴代码来学习。

Function RemoveDuplicates(rng as Range) As String
    Dim dict As Object
    Dim var As Variant, v As Variant

    Set dict = CreateObject("Scripting.Dictionary")

    var = Split(rng.Value,";")

    For each v in var
        If Not dict.Exists(v) Then
            dict.Add v, v
        End If
    Next v

    RemoveDuplicates = Join(dict.Keys, ";")
End Function

VBA - 删除以分号分隔的一个字符串中的重复项

1 个答案: