¿Cómo duplicar una fila según el valor de una celda en una columna?
Al trabajar con tablas de datos en Excel, a veces puede necesitar duplicar Fila completa según un valor en una Especificar columna. Por ejemplo, imagine que tiene una tabla en la que la columna D indica un número y su objetivo es copiar o insertar cada fila tantas veces como indique el valor correspondiente en la columna D. Esto puede resultar útil para ampliar datos, preparar conjuntos de datos para pruebas, simular inventarios o generar líneas repetidas de pedidos. Lograrlo eficientemente sin repetición manual ayuda a mantener la integridad de los datos y acelera considerablemente el flujo de trabajo, especialmente en tablas grandes.
 |  |  |
Fila duplicada varias veces según los valores de celda con código VBA
Fila duplicada mediante transformación con Power Query
Fila duplicada varias veces según los valores de celda con código VBA
Si necesita crear rápidamente duplicados de filas completas según los valores de una columna específica (por ejemplo, la columna D), VBA ofrece una solución directa y eficiente. Este enfoque resulta especialmente útil al gestionar grandes volúmenes de datos, ya que automatiza el proceso y ayuda a garantizar la precisión. No obstante, trabajar con VBA requiere cierta familiaridad con la pestaña Programador de Excel y saber cómo ejecutar macros. Su principal ventaja es la flexibilidad: el código puede adaptarse fácilmente a distintos rangos o columnas objetivo. Por otro lado, si no se siente cómodo con VBA o las políticas de seguridad de su entorno bloquean las macros, considere alguna de las soluciones alternativas que se indican a continuación.
1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del Módulo.
Código VBA: Fila duplicada varias veces según el valor de celda:
Sub CopyData()
'Updateby Extendoffice
Dim xRow As Long
Dim VInSertNum As Variant
xRow = 1
Application.ScreenUpdating = False
Do While (Cells(xRow, "A") <> "")
VInSertNum = Cells(xRow, "D")
If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
Selection.Insert Shift:=xlDown
xRow = xRow + VInSertNum - 1
End If
xRow = xRow + 1
Loop
Application.ScreenUpdating = False
End Sub
3. A continuación, pulse la tecla F5 para ejecutar este código. Las filas completas se duplicarán varias veces según el valor de la celda en la columna D, cumpliendo así sus requisitos.
Copiar e Insertar Filas según un número especificado con una herramienta práctica: Kutools para Excel
Si prefiere un método sin código o busca una interfaz intuitiva para gestionar la duplicación por lotes, Kutools para Excel ofrece una solución práctica. Su función Copiar o Insertar Filas/Columnas Según Datos Especificados le permite copiar e insertar filas rápidamente según el número indicado en las celdas correspondientes. Es ideal para quienes realizan habitualmente este tipo de operaciones repetitivas con filas y necesitan un proceso más visual y personalizable. Kutools conserva el diseño y formato originales de la tabla durante la duplicación, minimizando el riesgo de errores accidentales. Este método funciona a la perfección independientemente de su experiencia con VBA y mejora notablemente la eficiencia en rangos medianos o grandes.
- Haga clic en Kutools>Insertar>Fila duplicada/Columnas según valor de celdapara habilitar esta función;
- A continuación, elija la opción Copiar e Insertar Filas y especifique por separado, en el cuadro de diálogo, las celdas del Rango de generación y del Veces de Repetición. Confirme sus selecciones y haga clic en Aceptar.
Fila duplicada mediante transformación con Power Query
Power Query ofrece una solución sólida y repetible para duplicar filas según un valor de columna, ideal para tablas grandes o cuando deba actualizar los datos con frecuencia. Con esta herramienta, podrá expandir filas basándose en indicadores numéricos sin necesidad de fórmulas ni código. Este método es perfecto para usuarios que buscan un proceso visual, claro, paso a paso y que garantice repetibilidad ante futuras actualizaciones de datos.
1. Convierta sus datos en una tabla de Excel (seleccione un rango y pulse)Ctrl+T). A continuación, vaya a Datos > Desde tabla o rango para cargar su tabla en Power Query.
2. En el Editor de Power Query, seleccione la pestaña Agregar columna y haga clic en Columna personalizada.
3. Escriba la siguiente fórmula para generar una lista en cada fila según el valor de la columna D. ()Nota: debe reemplazar [D] por el encabezado real de su columna. Por ejemplo, aquí seleccionaré Duplicate Times y haré clic en el botón Insertar para sustituir el argumento [D].)
List.Repeat({1}, [D])
4. Haga clic en el botón Expandir situado junto a la nueva columna personalizada y seleccione Expandir a nuevas filas.
5. A continuación, verá que los datos se han duplicado según los valores de la columna D; consulte la captura de pantalla:
6. Si lo desea, elimine las columnas auxiliares y haga clic en Cerrar y cargar para devolver los datos a 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