Come concatenare stringhe in vba (con esempi)

È possibile utilizzare i seguenti metodi per concatenare stringhe in VBA:

Metodo 1: concatena due stringhe

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & Range(" B2 ")
End Sub

Questo esempio concatenerà le stringhe nelle celle A2 e B2 e visualizzerà il risultato nella cella C2 .

Metodo 2: concatena due stringhe con un delimitatore

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & " " & Range(" B2 ")
End Sub

Questo esempio concatenerà le stringhe nelle celle A2 e B2 con uno spazio tra le stringhe e visualizzerà il risultato nella cella C2 .

Metodo 3: concatenare due colonne con un delimitatore

 SubConcatStrings ()
    Dim i As Integer

    For i = 2 To 6
      Cells(i, 3).Value = Cells(i, 1) & " _ " & Cells(i, 2)
    Next i
End Sub

Questo esempio concatenerà le stringhe negli intervalli A2:A6 e B2:B6 con un carattere di sottolineatura tra le stringhe e visualizzerà i risultati nelle celle C2:C6 .

Gli esempi seguenti mostrano come utilizzare nella pratica ciascuno di questi metodi.

Esempio 1: concatenare due stringhe

Possiamo creare la seguente macro per concatenare due stringhe:

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & Range(" B2 ")
End Sub

Quando eseguiamo questa macro, riceviamo il seguente output:

Tieni presente che le stringhe delle celle A2 e B2 sono state concatenate nella cella C2 .

Esempio 2: concatenare due stringhe con un delimitatore

Possiamo creare la seguente macro per concatenare due stringhe con uno spazio come delimitatore:

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & " " & Range(" B2 ")
End Sub

Quando eseguiamo questa macro, riceviamo il seguente output:

Tieni presente che le stringhe nelle celle A2 e B2 sono state concatenate con uno spazio tra di loro e il risultato viene visualizzato nella cella C2 .

Esempio 3: concatenare due colonne con un delimitatore

Possiamo creare la seguente macro per concatenare le stringhe in due colonne con un carattere di sottolineatura come delimitatore:

 SubConcatStrings ()
    Dim i As Integer

    For i = 2 To 6
      Cells(i, 3).Value = Cells(i, 1) & " _ " & Cells(i, 2)
    Next i
End Sub

Quando eseguiamo questa macro, riceviamo il seguente output:

Tieni presente che le stringhe nell’intervallo A2:A6 e B2:B6 sono state concatenate con un carattere di sottolineatura tra di loro e i risultati vengono visualizzati nell’intervallo C2:C6 .

Risorse addizionali

I seguenti tutorial spiegano come eseguire altre attività comuni in VBA:

VBA: come contare le occorrenze di caratteri in una stringa
VBA: come verificare se una stringa contiene un’altra stringa
VBA: come contare le celle con testo specifico