Note: The other languages of the website are Google-translated. Back to English

¿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 Aplicar, 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ía) 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

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

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!
officetab parte inferior

Comentarios (7)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Muy útil, gracias, me tomó un tiempo encontrarlo, pero era justo lo que necesitaba. Tenga en cuenta en el código de VBA si desea separar los datos con un punto y coma, una coma o algún otro carácter en el campo "delim = " " ", coloque su carácter entre las comillas, por ejemplo: delim = ";". Gracias de nuevo.
Este comentario fue minimizado por el moderador en el sitio
Muchas gracias por el código. Fue muy útil
Este comentario fue minimizado por el moderador en el sitio
Muchas gracias - fue de gran ayuda!
Este comentario fue minimizado por el moderador en el sitio
cómo fusionar 2 celdas ej:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
Este comentario fue minimizado por el moderador en el sitio
¡Impresionante! ¡Ayuda mucho! ¡Muchas gracias!
Este comentario fue minimizado por el moderador en el sitio
cómo repetir el proceso si tengo 4 referencias diferentes y necesito combinarlas una tras otra
Este comentario fue minimizado por el moderador en el sitio
mi consulta anterior es sobre esto 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("Rango ", xTitleId, WorkRng.Address, Type:=8) Suspiro = Application.InputBox("Symbol merge", xTitleId, ",", Type:=2) xOut = "" Application.DisplayAlerts = False para cada Rng en 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, ¿qué significa el tipo aquí, "8 " & "2" se refiere a
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL