Saltar al contenido principal

¿Cómo combinar el contenido de varias celdas sin perder datos en Excel?

Podemos combinar celdas y su contenido en Microsoft Excel con frecuencia. Sin embargo, ¿encuentra la forma más sencilla de combinar el contenido de las celdas? Aquí hablaremos sobre cómo combinar el contenido de las celdas en Excel de manera fácil y rápida.

Combine varias celdas en una celda con código VBA
Combine múltiples celdas en una celda con Kutools para Excel sin perder datos


Combine varias celdas en una celda con código VBA

El siguiente código de VBA puede ayudarlo a combinar múltiples celdas en una celda, y puede aplicar el código con los siguientes pasos:

1. Hacer clic Developer > Visual Basic, Un nuevo Microsoft Visual Basic para aplicaciones aparecerá la ventana, haga clic en recuadro > Móduloe ingrese el siguiente código en el módulo:

Sub MergeOneCell()
'Updateby20140128
Dim Rng As Range
Dim WorkRng As Range
Dim Sigh As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Sigh = Application.InputBox("Symbol merge", xTitleId, "", Type:=2)
xOut = ""
Application.DisplayAlerts = False
For Each Rng In WorkRng
    xOut = xOut & Rng.Value & Sigh
Next
With WorkRng
    .Merge
    .Value = VBA.Left(xOut, VBA.Len(xOut) - 1)
End With
Application.DisplayAlerts = True
End Sub

2. Luego haga clic doc-multiplicar-calculo-3 botón para ejecutar el código. Aparece un cuadro de diálogo para que seleccione un rango para trabajar con el VBA. Ver capturas de pantalla:

3. Hacer clic Ok, se muestra otro cuadro de diálogo para que especifique el separador. Ver captura de pantalla:

doc combinar el contenido de la celda 2

4. Hacer clic Ok, el contenido de la celda en el rango seleccionado se combina en una celda. Ver captura de pantalla:

doc combinar el contenido de la celda 3


Combine múltiples celdas en una celda con Kutools para Excel sin perder datos

Si tiene Kutools for Excel instalado, puede combinar el contenido de las celdas de varias columnas o filas cómodamente sin utilizar fórmulas.

1. Seleccione las celdas en las que desea fusionar los datos. Y aplique esta utilidad haciendo clic Kutools > Fusionar y dividir > Combine filas, columnas o celdas sin perder datos.

2. En la Combinar columnas o filas cuadro de diálogo, especifique las opciones que necesita. Ver captura de pantalla:

  • (1.) Seleccione Combinar en una sola celda bajo Para combinar celdas seleccionadas de acuerdo con las siguientes opciones;
  • (2.) Especifique un separador para los datos combinados. Puede separar cada contenido con espacio, nada, punto y coma o texto específico. Y también puede mostrar el contenido combinado en una nueva línea.

doc combinar el contenido de la celda 5

3. Luego haga clic OK or ¡Aplicá!, todos los datos de varias celdas se han combinado en una sola. Ver captura de pantalla:

Nota: Esta utilidad también puede ayudar a combinar celdas de columnas seleccionadas. Puede combinar el nombre y apellido en una sola celda de nombre completo como se muestra a continuación.

Luego puede ver que los nombres y apellidos están combinados y ubicados en las celdas del nombre completo.

  Si desea tener una prueba gratuita (30 días) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.


Artículos Relacionados


Demostración: combine / combine varias celdas en una sin perder datos

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

Descripción


Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!

Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
my earlier query is about this vba:Sub MergeOneCell() 'Updateby20140128 Dim Rng As Range Dim WorkRng As Range Dim Sigh As String On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Sigh = Application.InputBox("Symbol merge", xTitleId, ",", Type:=2) xOut = "" Application.DisplayAlerts = False For Each Rng In WorkRng xOut = xOut & Rng.Value & Sigh Next With WorkRng .Merge .Value = VBA.Left(xOut, VBA.Len(xOut) - 1) End With Application.DisplayAlerts = True End Sub Between, what does the type here, "8" & "2" refers to
This comment was minimized by the moderator on the site
how repeat the process if i have 4 different reference and need to combine them one after the other
This comment was minimized by the moderator on the site
Awesome! Greatly helps! Thank you so much!
This comment was minimized by the moderator on the site
how to merge 2 cell ex:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
This comment was minimized by the moderator on the site
Thanks very much - was a big help!
This comment was minimized by the moderator on the site
Thamks a lot for the code. Was very helpful.
This comment was minimized by the moderator on the site
Very helpful thank you took me a while to find it but was just what I needed. Note in the VBA code if you want to seperate data with a semicolon, comma or some other charater in the "delim = " " " field put you charater betwen the quotes example: delim = ";". Thanks again.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations