¿Cómo separar celdas y llenar con valores duplicados en Excel?
Si tiene una hoja de trabajo que contiene numerosas celdas combinadas, y ahora necesita separarlas y completar automáticamente los valores originales de las celdas combinadas como se muestra a continuación. ¿Cómo podría hacer frente rápidamente a esta tarea?
Separe celdas y llene con datos duplicados con el comando Ir a especial
Separe celdas y llénelas con datos duplicados con código VBA
Separe celdas y llene con datos duplicados con un solo clic
Separe celdas y llene con datos duplicados con el comando Ir a especial
Con la Ir a Especial comando, puede separar celdas y completar los valores. Pero este método es algo problemático, siga los siguientes pasos:
1. Seleccione las columnas que tienen celdas fusionadas.
2. Hacer clic Inicio > Fusionar y centrar > Separar celdas. Ver captura de pantalla:
3. Y las celdas fusionadas no se fusionaron y solo la primera celda se llenará con los valores originales. Y luego seleccione el rango nuevamente.
4. Luego haga clic Inicio > Buscar y seleccionar > Ir a Especial. En la Ir a Especial cuadro de diálogo, seleccione Espacios en blanco opción. Ver captura de pantalla:
5. Y luego haz clic OK, se han seleccionado todas las celdas en blanco del rango. Entonces ingrese = y pulse Up tecla de flecha del teclado. Ver captura de pantalla:
6. Entonces presione Ctrl + Enter claves, todas las celdas en blanco se han llenado con los datos combinados originales. Ver captura de pantalla:
Separe celdas y llénelas con datos duplicados con código VBA
Con el siguiente código VBA, puede separar rápidamente las celdas y completar los valores.
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 UnMergeSameCell () 'Upadateby Extendoffice Dim Rng As Range, xCell As Range xTitleId = "KutoolsforExcel" Establecer WorkRng = Application.Selection Establecer WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8) Application.ScreenUpdating = False Application.DisplayAlerts = False para cada 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 Sub
3. Luego presione el F5 para ejecutar este código, se muestra un cuadro de diálogo para seleccionar un rango para trabajar, ver captura de pantalla:
4. Haga Clic en OK, las celdas combinadas se han separado y se han completado automáticamente con los valores combinados originales.
Separe celdas y llene con datos duplicados con un solo clic
Con la Separar celda utilidad de Kutools for Excel, puede separar celdas y llenar con datos duplicados con un clic, este método es muy simple y práctico.
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 que desea separar y complete los datos.
2. Hacer clic Kutools > Fusionar y dividir > Separar celdas y llenar valor, ver captura de pantalla:
3. Y las celdas combinadas se han separado y se han llenado con los valores duplicados a la vez. Ver capturas de pantalla:
Separe celdas y llénelas con datos duplicados con Kutools para Excel
Artículo relacionado:
Fusionar filas adyacentes con los mismos datos en Excel
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!