¿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 SubNota: 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.
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?
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos