Guru do Excel e Power BI

Function SplitWithValue(text_value As Range, Optional separator As String = "-") As Variant
    'Function SplitWithValue // Created by Adam Taylor
    'Will return the value supplied in text_value with each individual character
    'separated by the value in separator
    
    'Takes 2 arguments
    
    'text_value = A single cell containing a text or numerical value.
    'separator = A string that will be placed between each character in text_value

    Dim strVal              As String
    Dim str                 As String
    Dim i                   As Long
    
    If text_value.Cells.Count > 1 Then
        SplitWithValue = CVErr(xlErrRef)
        Exit Function
    End If
    
    strVal = CStr(text_value.Value)
    
    For i = 1 To Len(strVal)
        str = str & Mid(strVal, i, 1) & separator
    Next i
    
    str = Left(str, Len(str) - Len(separator))
    SplitWithValue = str

End Function