VBA Concatenar Cadenas de Texto (& – Ampersand)

Ya hemos repasado una introducción a las funciones de cadena en nuestro tutorial de VBA sobre cadenas y subcadenas. Ahora vamos a ver cómo concatenar cadenas de texto.

Concatenar cadenas

Puede utilizar el operador & en VBA para unir cadenas de texto.

MsgBox "Combinar" & "Texto"

Concatenar Celdas

También puedes concatenar celdas. A continuación, tenemos las cadenas de texto en A1 y B1:

El siguiente código muestra cómo unir las cadenas de texto de las celdas A1 y B1 utilizando el operador &, en la celda C1:

Range("C1").Value = Range("A1").Value & Range("B1").Value

El resultado es:

Concatenar Variables

Este es el procedimiento completo para concatenar dos celdas usando variables de cadena.

Sub concatenarCadenas()
    Dim cadena1 As String
    Dim cadena2 As String
     
    cadena1 = Range("A1").Value
    cadena2 = Range("B1").Value
     
    Range("C1").Value = cadena1 & cadena2
End Sub

Uso del operador & con espacios

Cuando quiera incluir espacios, utilice & junto con » «. El siguiente código muestra cómo incluir los espacios:

Sub concatenarCadenasConEspacios()
 
    Dim cadena1 As String
    Dim cadena2 As String
    Dim cadena3 As String
     
    cadena1 = "Este es"
    cadena2 = "el texto"
    cadena3 = cadena1 & " " & cadena2
     
    MsgBox cadena3
End Sub

El resultado de MessageBox es:

Usando el Operador & para Concatenar una Comilla

Digamos que su cadena de texto contiene una comilla, el siguiente código muestra cómo incluir una comilla dentro de una cadena de texto:

Sub concatenarComillas()
 
    Dim cadena1 As String
    Dim cadena2 As String
    Dim cadena3 As String
     
    cadena1 = "Esta es la comilla"
    cadena2 = """"
    cadena3 = cadena1 & " " & cadena2
     
    MsgBox cadena3
 
End Sub

El resultado es:

Poner cadenas en una nueva línea

Digamos que tiene cinco cadenas de texto, puede poner cada cadena de texto en una nueva línea o párrafo, usando la función vbNewLine, vbCrLf, vbCr o Chr. El siguiente código muestra cómo poner cada cadena de texto en una nueva línea:

Sub PonerCadaCadenaDeTextoEnUnaNuevaLinea()

    Dim cadena1 As String
    Dim cadena2 As String
    Dim cadena3 As String
    Dim cadena4 As String
    Dim cadena5 As String
    
    
    cadena1 = "Esta es la primera cadena"
    cadena2 = "Esta es la segunda cadena"
    cadena3 = "Esta es la tercera cadena"
    cadena4 = "Esta es la cuarta cadena"
    cadena5 = "Esta es la quinta cadena"
    
    MsgBox cadena1 & vbNewLine & cadena2 & vbCrLf & cadena3 & vbCr & cadena4 & Chr(13) & cadena5

End Sub

El resultado es:

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro - A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!


Learn More!