¿Cómo desagrupar celdas y rellenarlas con los valores duplicados en Excel?
Si tiene una hoja de cálculo que contiene numerosas Combinada y ahora necesita desagruparlas y rellenar automáticamente hacia abajo los valores originales de las Combinada, tal como se muestra en las siguientes capturas de pantalla, ¿cómo podría realizar esta tarea rápidamente?
 |  |  |
Desagrupar celdas y rellenar con datos duplicados mediante el comando Ir a especial
Desagrupar celdas y rellenar con datos duplicados mediante código VBA
Desagrupar celdas y rellenar con datos duplicados con un solo clic
Desagrupar celdas y rellenar con datos duplicados mediante el comando Ir a especial
Con el comando Ir a especial, puede desagrupar celdas y rellenar los valores hacia abajo. Sin embargo, este método resulta un tanto engorroso; siga los pasos que se indican a continuación:
1. Seleccione las columnas que contienen datos combinados.
2. Haga clic en Inicio > Combinar y centrar > Desagrupar celdas. Vea la captura de pantalla:
3. Las celdas combinadas se han desagrupado y solo la primera celda conserva los valores originales. A continuación, seleccione nuevamente el rango.
4. A continuación, haga clic en Inicio > Buscar y seleccionar > Ir a especial. En el cuadro de diálogo Ir a especial, seleccione la opción Celdas vacías. Vea la captura de pantalla:
5. A continuación, haga clic en Aceptar; así se seleccionarán todas las celdas vacías del rango. Después, introduzca = y pulse la tecla de flecha arriba del teclado. Vea la captura de pantalla:
6. A continuación, pulse las teclas Ctrl + Intro y todas las celdas vacías se rellenarán automáticamente con los datos originales combinados. Vea la captura de pantalla:
Desagrupar celdas y rellenar con datos duplicados mediante código VBA
Con el siguiente código VBA, podrá desagrupar rápidamente las celdas y rellenar los valores hacia abajo.
1. Mantenga pulsadas las teclas ALT + F11 y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue la siguiente macro en la ventana del Módulo.
Sub UnMergeSameCell()
'Upadateby Extendoffice
Dim Rng As Range, xCell As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Rng In WorkRng
If Rng.MergeCells Then
With Rng.MergeArea
.UnMerge
.Formula = Rng.Formula
End With
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub3. A continuación, pulse la tecla F5 para ejecutar este código; aparecerá un cuadro de diálogo en el que podrá seleccionar el rango con el que desea trabajar. Vea la captura de pantalla:
4. Haga clic en Aceptar; las celdas combinadas se habrán desagrupado y rellenado automáticamente hacia abajo con los valores originales combinados.
Desagrupar celdas y rellenar con datos duplicados con un solo clic
Con la utilidad Desagrupar celdas de Kutools para Excel, puede desagrupar celdas y rellenarlas con datos duplicados con un solo clic; un método muy sencillo y práctico.
Tras instalar Kutools para Excel, proceda del siguiente modo:
1. Seleccione las columnas que desea desagrupar y en las que quiera rellenar los datos hacia abajo.
2. Haga clic en Kutools > Combinar y dividir > Desagrupar celdas y rellenar valores. Vea la captura de pantalla:
3. Las combinadas se han desagrupado y rellenado inmediatamente con los valores duplicados. Vea las capturas de pantalla:
| | |
Kutools para Excel: potencie Excel con más de 300 herramientas esenciales, agilice y simplifique su trabajo, y aproveche las funciones de IA para un procesamiento de datos más inteligente y una mayor productividad.Consígalo ahora
Desagrupar celdas y rellenar con datos duplicados con Kutools para Excel
Artículo relacionado:
Combinar filas adyacentes con los mismos datos en Excel
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos