Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[Excel]Macro per estrapolare righe non contigue

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[Excel]Macro per estrapolare righe non contigue

Postdi giacks » 20/08/13 14:20

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à.
giacks
Newbie
 
Post: 3
Iscritto il: 20/08/13 13:42

Sponsor
 

Re: [Excel]Macro per estrapolare righe non contigue

Postdi Flash30005 » 20/08/13 16:05

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel]Macro per estrapolare righe non contigue

Postdi giacks » 20/08/13 21:38

Grazie fLASH30005 ottima macro era più facile di quello che pensavo ma non ci ero arrivato!
grazie ancora fantastico!!!!!!!!!
giacks
Newbie
 
Post: 3
Iscritto il: 20/08/13 13:42


Torna a Applicazioni Office Windows


Topic correlati a "[Excel]Macro per estrapolare righe non contigue":


Chi c’è in linea

Visitano il forum: Nessuno e 4 ospiti