[Iska]

Что такое smfJoin и откуда она берётся?!

как сделать, чтобы она не добавляла повторяющиеся значения, т.е. чтобы каждое значение встречалось только один раз, а его повторы пропускались. »

Сначала соберите словарь. Потом объедините его ключи.

Скрытый текст

Код:

Option Explicit

Sub Sample()
    MsgBox JoinUnique(Selection, "*")
End Sub

Function JoinUnique(objRange As Range, strDelimiter As String)
    Dim objDictionary As Object
    Dim objCell As Range
    
    
    Set objDictionary = CreateObject("Scripting.Dictionary")
    
    For Each objCell In objRange.Cells
        If Not IsEmpty(objCell.Value) Then
            If Not objDictionary.Exists(objCell.Value) Then
                objDictionary.Add objCell.Value, 0
            End If
        End If
    Next objCell
    
    If objDictionary.Count > 0 Then
        JoinUnique = Join(objDictionary.Keys, strDelimiter)
    Else
        JoinUnique = ""
    End If
    
    objDictionary.RemoveAll
    Set objDictionary = Nothing
End Function