¿Cómo concatenar textos de varias celdas en un cuadro de texto en Excel?

Puede ser fácil para ti concatenar los textos de múltiples celdas en una nueva celda usando una fórmula. Pero, ¿sabías cómo concatenar varios valores de celdas en un cuadro de texto (Control ActiveX)? De hecho, el método en este artículo puede ayudarte a lograrlo.

Concatenar textos de varias celdas en un cuadro de texto con código VBA

Concatenar textos de varias celdas en un cuadro de texto con código VBA

El siguiente método puede ayudarte a concatenar textos de varias celdas en un cuadro de texto en Excel.

1. En la hoja de cálculo donde deseas concatenar varias celdas, inserta un cuadro de texto haciendo clic en Desarrollador > Insertar > Cuadro de Texto (Control ActiveX). Ver captura de pantalla:

2. Luego haz clic en Desarrollador > Insertar > Botón de Comando (Control ActiveX) para insertar un botón de comando en la hoja de cálculo.

3. Haz clic derecho en el botón de comando insertado, luego selecciona Ver Código desde el menú contextual. Ver captura de pantalla:

4. En la ventana de Microsoft Visual Basic para Aplicaciones, reemplaza el código original con el siguiente código VBA.

Código VBA: Concatenar textos de varias celdas en un cuadro de texto

Private Sub CommandButton1_Click()
    Dim xRg As Range
    Dim xCell As Range
    Dim xStr As String
    On Error Resume Next
    Set xRg = Application.Selection
    If xRg Is Nothing Then Exit Sub
    With Me.TextBox1
        .Text = vbNullString
        .MultiLine = True
        .WordWrap = True
        For Each xCell In xRg
            xStr = xCell.Value
            .Text = Me.TextBox1 & xStr & Chr(10)
        Next
    End With
End Sub

Nota: CommandButton1 es el nombre del botón de comando insertado. Cambia el nombre según sea necesario.

5. Desactiva el Modo Diseño haciendo clic en Desarrollador > Modo Diseño.

6. Selecciona las celdas que necesitas concatenar en un cuadro de texto, luego haz clic en el Botón de Comando. Inmediatamente, todo el contenido de las celdas seleccionadas se concatenará en el cuadro de texto como se muestra en la siguiente captura de pantalla.

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!

Artículos relacionados:

• ¿Cómo seleccionar automáticamente el texto de un cuadro de texto cuando está seleccionado en Excel?
• ¿Cómo autocompletar un cuadro de texto al escribir en Excel?
• ¿Cómo borrar el contenido de un cuadro de texto cuando se hace clic en Excel?
• ¿Cómo deshabilitar la edición en un cuadro de texto para evitar la entrada del usuario en Excel?
• ¿Cómo formatear un cuadro de texto como porcentaje en Excel?