VBA - セミコロンで区切られた1つの文字列内で重複して削除される

Question

私は800のアドレスの電子メールのような1つの文字列を持っています。それらはセミコロンで区切られています。その文字列の重複を削除するにはどうすればよいですか？

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