Copiar filas dependiendo de cualquier valor mayor a 1
Busco una macro que me copie un numero determinado de renglones dependiendo del numero mayor a 1 de una celda en especifico.
Así com se muestra en la imagen, todo esto aplicada a cada renglón que la cantidad sea mayor a 1
2 Respuestas
Respuesta de James Bond
1
Prueba con esta macro
Option Base 1
Sub COPIAR_DATOS()
Set DATOS = Range("A1").CurrentRegion
With DATOS
SUMA = WorksheetFunction.Sum(.Columns(3))
ReDim MATRIZ(SUMA, 3)
F = .Rows.Count
X = 1
For I = 2 To F
VECES = .Cells(I, 3)
For J = 1 To VECES
MATRIZ(X, 1) = .Cells(I, 1)
MATRIZ(X, 2) = .Cells(I, 2)
MATRIZ(X, 3) = 1
X = X + 1
Next J
Next I
Range(.Rows(F + 3).Resize(SUMA, 3).Address) = MATRIZ
End With
End Sub
Respuesta de Programar Excel
1
