Como converter uma lista de colunas para uma lista separada por vírgulas no Excel com um ponto de exclamação antes de cada número?

Question

Eu tenho os números em uma coluna

1
2
3
4
5

Eu gostaria de segui-lo com um ponto de exclamação antes de cada número e vírgula após cada número.

!1,!2,!3,!4,!5

    

Answer 1

Se você tem o Office 365 Excel, então:

="!" & TEXTJOIN(",!",TRUE,A1:A5)

SevocênãotiverTEXTJOIN(),coloqueessecódigoemummóduloanexadoàplanilhaeuseafórmulaacima.

FunctionTEXTJOIN(delimAsString,skipblankAsBoolean,arr)DimdAsLongDimcAsLongDimarr2()DimtAsLong,yAsLongt=-1y=-1IfTypeName(arr)="Range" Then
        arr2 = arr.Value
    Else
        arr2 = arr
    End If
    On Error Resume Next
    t = UBound(arr2, 2)
    y = UBound(arr2, 1)
    On Error GoTo 0

    If t >= 0 And y >= 0 Then
        For c = LBound(arr2, 1) To UBound(arr2, 1)
            For d = LBound(arr2, 1) To UBound(arr2, 2)
                If arr2(c, d) <> "" Or Not skipblank Then
                    TEXTJOIN = TEXTJOIN & arr2(c, d) & delim
                End If
            Next d
        Next c
    Else
        For c = LBound(arr2) To UBound(arr2)
            If arr2(c) <> "" Or Not skipblank Then
                TEXTJOIN = TEXTJOIN & arr2(c) & delim
            End If
        Next c
    End If
    TEXTJOIN = Left(TEXTJOIN, Len(TEXTJOIN) - Len(delim))
End Function