VBA Troncare l'ultimo carattere di una stringa

Question

Uso il seguente codice per concatenare le stringhe di testo contenute in un range di celle:

Function ConcatRange(Cellblock As Range) As String

Dim Cell As Range

    For Each Cell In Cellblock

        ConcatRange = ConcatRange & Cell.Value & "+"

    Next

End Function

Il codice funziona bene però adesso vorrei eliminare il segno "+" con il quale termina la stringa ConcatRange.

Come posso fare?

--

Grazie.

gilgil

Answer 1

Ciao Gilgil,

Prova:

'===========>>

Function ConcatRange(Cellblock As Range) As String

    Dim Cell As Range

    Dim sStr As String

    For Each Cell In Cellblock

        sStr = sStr & Cell.Value & "+"

    Next

    ConcatRange = Left(sStr, Len(sStr) - 1)

End Function

'<<===========

===

Regards,

Norman

Answer 2

OK Perfetto.

Grazie Norman, funziona perfettamente.

--

gilgil