Separación de filas de Excel y datos duplicados

Solución:

Esta es una solución de VBA. Esta macro buscará en todas las celdas de la hoja activa para ver si están fusionadas. Si es así, almacena el rango de las celdas combinadas en un temp. variable de rango, separa las celdas y luego llena el rango con el valor de la primera celda en el rango no combinado (cuál era el valor).

Sub UnMergeFill()

Dim cell As Range, joinedCells As Range

For Each cell In ThisWorkbook.ActiveSheet.UsedRange
    If cell.MergeCells Then
        Set joinedCells = cell.MergeArea
        cell.MergeCells = False
        joinedCells.Value = cell.Value
    End If
Next

End Sub

1. Seleccione el rango que ha fusionado datos
2. Haga clic en Combinar y centrar para separar las celdas
3. Seleccione el rango de datos nuevamente
4. Presione Ctrl + G> Especial> Blancos
5. Presione = y la tecla de flecha hacia arriba
6. Presione Ctrl + Enter

No necesitas VBA para algo así.

1. Seleccione el rango de las celdas combinadas
2. Desunir las celdas
3. Inicio -> Buscar y seleccionar -> Ir a especial … -> Espacios en blanco -> ok
4. Escribe “=” mueve una celda hacia arriba y presiona Ctrl + Enter

Si los estilos R1C1 están habilitados desde: Archivo -> Opciones -> Fórmula -> Estilo de referencia R1C1, entonces

1. …
2. …
3. …
4. Escriba “= R[-1]c “y presione Ctrl + Enter

---

---

Utiliza Nuestro Buscador