¿Cómo repetir filas un número determinado de veces según los valores de otra columna en Excel?
¿Ha intentado alguna vez repetir una fila según el valor de otra columna, como se muestra en la siguiente captura de pantalla? En este artículo, le mostraré cómo hacerlo en Excel.
Repetir filas en función del valor de otra columna con VBA
Repetir filas en función del valor de otra columna mediante Kutools para Excel
Repetir filas en función del valor de otra columna con VBA
Aquí tiene un código que le permite repetir filas rápidamente según los valores de la última columna.
1. Pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo, copie el siguiente código y péguelo en el nuevo script del Módulo.
VBA: Repetir filas en función del valor de otra columna
Sub CopyRow()
'UpdatebyExtendoffice20181011
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the number value", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub
3. Pulse la tecla F5 y aparecerá un cuadro de diálogo; seleccione la lista de números según la cual se repetirán las filas.
4. Haga clic en Aceptar y las filas se repetirán según el valor de la columna seleccionada.
Repetir filas en función del valor de otra columna mediante Kutools para Excel
Si no domina el uso de VBA, pruebe la función Kutools para Excel’s Fila duplicada/Columnas según valor de celda, que solo requiere dos sencillos pasos.
1. Haga clic en Kutools > Insertar > Fila duplicada/Columnas según valor de celda.
2. En el cuadro de diálogo que aparece, seleccione la opción Copiar e Insertar Filas en la sección Tipo, luego elija el rango que desea repetir en el cuadro de texto Rango a insertar y seleccione la columna que determina las veces de repetición en el cuadro de texto Veces de Repetición. Haga clic en Aceptar.
Así, las filas se repetirán según la columna seleccionada.
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