
Sub Copia_Dati()
Foglio2.Select
Range("A1").Select
Foglio1.Select
RR = Range("A" & Rows.Count).End(xlUp).Row
Passo = 180
For i = 1 To RR Step Passo
Foglio1.Range("A" & i & ":a" & i + Passo - 1).Copy
Foglio2.Paste
' qui deve lavorare la tua macro
' ......
' ......
Next i
Foglio1.[A1].Select
End Sub
|
