¿Cómo fusionar rápidamente filas adyacentes con los mismos datos en Excel?
Supongamos que tiene una hoja de trabajo con los mismos datos en las filas adyacentes y ahora desea fusionar las mismas celdas en una celda, para que los datos se vean limpios y hermosos. ¿Cómo fusiona filas adyacentes con los mismos datos de manera rápida y conveniente? Hoy, les presentaré una forma rápida de resolver este problema.
Fusionar filas adyacentes de los mismos datos con código VBA
Por supuesto, puede fusionar los mismos datos con Fusionar y centrar comando, pero si es necesario combinar cientos de celdas, este método llevará mucho tiempo. Entonces, el siguiente código VBA puede ayudarlo a fusionar los mismos datos fácilmente.
1. Mantenga pulsado el ALT + F11 llaves, y abre el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue la siguiente macro en el Móduloventana.
Sub MergeSameCell()
'Updateby Extendoffice
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
For i = 1 To xRows - 1
For j = i + 1 To xRows
If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
Exit For
End If
Next
WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge
i = j - 1
Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3. Luego presione el F5 para ejecutar este código, se muestra un cuadro de diálogo en la pantalla para seleccionar un rango con el que trabajar. Ver captura de pantalla:
4. A continuación, haga clic en OK, los mismos datos de la columna A se combinarán. Ver captura de pantalla:
Fusionar filas adyacentes de los mismos datos con Kutools para Excel
Con la Fusionar las mismas celdas utilidad de Kutools for Excel, puede fusionar rápidamente los mismos valores en varias columnas con un solo clic.
Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. |
Después de instalar Kutools for Excel, puede hacer lo siguiente:
1. Seleccione las columnas en las que desea fusionar las filas adyacentes con los mismos datos.
2. Hacer clic Kutools > Fusionar y dividir > Fusionar las mismas celdas, ver captura de pantalla:
3. Y luego los mismos datos en las columnas seleccionadas se han combinado en una celda. Ver captura de pantalla:
¡Haga clic para descargar Kutools para Excel y prueba gratuita ahora!
Para saber más sobre esto, visite este Fusionar las mismas celdas .
Demostración: combine las mismas celdas en una celda o sepárelas para completar valores duplicados:
Las mejores herramientas de productividad de oficina
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...
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!