Function СКЛЕИТЬ(arr As Variant, delimiter As String) As String
    Dim result As String
    Dim i As Long
    Dim element As Variant
    
    result = ""
    
    If IsArray(arr) Then
        ' Обрабатываем как одномерный массив или массив-столбец
        For Each element In arr
            ' Проверяем, не является ли элемент пустым
            If Not IsError(element) Then
                If Trim(CStr(element)) <> "" Then
                    If result <> "" Then result = result & delimiter
                    result = result & CStr(element)
                End If
            End If
        Next element
    Else
        ' Обработка одиночного значения
        If Not IsError(arr) And Trim(CStr(arr)) <> "" Then
            result = CStr(arr)
        End If
    End If
    
    СКЛЕИТЬ = result
End Function