Excel fornisce una funzione della cartella di lavoro e un operatore che hanno entrambi lo stesso scopo: combinare stringhe in una stringa più lunga. La funzione CONCATENATE e l’operatore e commerciale (&) hanno essenzialmente lo stesso scopo.

Molte persone utilizzano l’operatore e commerciale in preferenza alla funzione CONCATENATE perché richiede meno battitura, ma CONCATENATE diventerebbe immensamente più prezioso se gestisse un intervallo di celle.

Sfortunatamente non è così, ma puoi creare la tua funzione definita dall’utente che concatenerà ogni cella in un intervallo molto bene.

Considera la seguente macro:

Function Concat1(myRange As Range, Optional myDelimiter As String)

Dim r As Range

For Each r In myRange         Concat1 = Concat1 & r & myDelimiter     Next r     If Len(myDelimiter) > 0 Then         Concat1 = Left(Concat1, Len(Concat1) - Len(myDelimiter))

End If End Function

Questa funzione richiede un intervallo e fornisce un delimitatore opzionale.

L’ultima istruzione “If” rimuove il delimitatore finale finale dalla stringa concatenata. Con la funzione CONCAT1, le celle possono essere aggiunte ed eliminate all’interno dell’intervallo, senza la manutenzione richiesta dalle formule CONCATENATE o e commerciale. Tutto quello che devi fare è chiamare la funzione in uno dei seguenti modi:

=CONCAT1(C8:E10)

=CONCAT1(C8:E10,"|")

Il secondo metodo di chiamata della funzione utilizza il delimitatore opzionale, che viene inserito tra ciascuno dei valori concatenati dall’intervallo C8: E10. C’è un problema con questo, tuttavia: se una cella in quell’intervallo è vuota, puoi finire con due delimitatori sequenziali. Se preferisci avere un solo delimitatore, devi fare una piccola modifica alla funzione:

Function Concat2(myRange As Range, Optional myDelimiter As String)

Dim r As Range

For Each r In myRange         If Len(r.Text) > 0 Then             Concat2 = Concat2 & r & myDelimiter         End If     Next r     If Len(myDelimiter) > 0 Then         Concat2 = Left(Concat2, Len(Concat2) - Len(myDelimiter))

End If End Function

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (11247) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 ed Excel in Office 365. Puoi trovare una versione di questo suggerimento per la vecchia interfaccia del menu di Excel qui:

Concatenating Ranges of Cells.