¿Cómo fusionar rápidamente filas adyacentes con los mismos datos en Excel?

Supongamos que tienes una hoja de cálculo con los mismos datos en filas adyacentes, y ahora quieres fusionar las celdas iguales en una sola celda para que los datos se vean ordenados y bonitos. ¿Cómo fusionas filas adyacentes con los mismos datos de forma rápida y conveniente? Hoy te presentaré algunas formas rápidas de resolver este problema.

Fusionar filas adyacentes con los mismos datos usando código VBA

Fusionar filas adyacentes con los mismos datos usando Kutools para Excel

Desfusionar celdas y rellenar con valores duplicados en Excel

Fusionar filas adyacentes con los mismos datos usando código VBA

Por supuesto, puedes fusionar los mismos datos con el comando Combinar y Centrar, pero si hay cientos de celdas que necesitan ser fusionadas, este método será muy lento. Así que el siguiente código VBA puede ayudarte a fusionar los mismos datos fácilmente.

1. Mantén presionadas las teclas ALT + F11, y se abrirá la ventana Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega la siguiente macro en la ventana del Módulo.

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 presiona la tecla F5 para ejecutar este código; aparecerá un cuadro de diálogo en la pantalla para seleccionar un rango con el que trabajar. Ver captura de pantalla:

4. Luego haz clic en Aceptar, y los mismos datos en la columna A se fusionarán juntos. Ver captura de pantalla:

Fusionar filas adyacentes con los mismos datos usando Kutools para Excel

Con la utilidad Fusionar celdas iguales de Kutools para Excel, puedes fusionar rápidamente los mismos valores en múltiples columnas con un solo clic.

Después de instalar Kutools para Excel, puedes hacer lo siguiente:

1. Selecciona las columnas donde deseas fusionar las filas adyacentes con los mismos datos.

2. Haz clic en Kutools > Combinar y Dividir > Fusionar Celdas Iguales, ver captura de pantalla:

3. Y luego los mismos datos en las columnas seleccionadas se habrán fusionado en una celda. Ver captura de pantalla:

¡Haz clic para descargar Kutools para Excel y prueba gratis ahora!