[Excel]Macro per estrapolare righe non contigue

[giacks]

Buongiorno a tutti,
dovrei risolvere un problema che mi sta prendendo da giorni. Ho un foglio excel con 55770 righe e 112 colonne contenti dei dati di natura finanziaria. Dovrei creare una macro in VBA che mi permetta di estrapolare delle righe che non sono contigue. Ad esempio mi serve la riga 3 poi successivamente la riga 46 la 89 e così via. Mi servono quindi tutte le righe ogni 43. Successivamente dovrei avere quindi in un altro foglio excel una matrice con le righe che ho deciso di estrapolare.
ringrazio anticipatamente della disponibilità.

[Flash30005]

Ciao Giacks e benvenuto nel Forum

Prova questa macro

Codice: Seleziona tutto

Sub CopiaRighe()
Set Ws1 = Worksheets("Foglio1")  '<<<< inserisci il nome del tuo foglio con i dati input
Set Ws2 = Worksheets("Foglio2")  '<<<< inserisci il nome del tuo foglio con i dati output
Ws2.Cells.Clear
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
For RR1 = 3 To UR1 Step 43
UR2 = Ws2.Range("A" & Rows.Count).End(xlUp).Row + 1
Ws1.Rows(RR1).Copy Destination:=Ws2.Rows(UR2)
Next RR1
End Sub

Ciao

[giacks]

Grazie fLASH30005 ottima macro era più facile di quello che pensavo ma non ci ero arrivato!
grazie ancora fantastico!!!!!!!!!