Macro confronto fogli ed eliminazione righe

Versione Completa Stampa Cerca Utenti Iscriviti Condividi :

Excel Forum » Excel Forum » » Soluzioni Excel Domande e Risposte

Ferdi.G

00sabato 1 luglio 2017 13:11

Buongiorno a tutti.
Chiedo cortesemente un aiuto a voi professionisti, perchè non sono una cima con xls.

Ho due fogli excel:
sul primo ci sono 1000 righe con una colonna "ID" con un numero unico.
es.:

id nome
1 pippo
3 pluto
4 topolino
5 topogigio
9 gatto silvestro

nel secondo foglio stessa cosa ma con molte più righe.
Il primo foglio e il secondo sono legati tramite "id"

es.:
id tipo animale
1 cane
2 cane
3 cane
4 topo
5 topo
6 cane
7 gatto
8 gatto
9 gatto

vorrei cancellare tutte le righe del secondo foglio che non hanno un id nel primo.

Dovrei scrivere una macro che in questo caso dovrebbe cancellare le righe
con id 2,6,7,8

Aiuto [SM=x423047]

patel45

00sabato 1 luglio 2017 15:51

Sub a()
LR2 = Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row
LR1 = Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row
Set Rng = Sheets(1).Range("A2:A" & LR1)
For r = LR2 To 2 Step -1
  ID = Sheets(2).Cells(r, 1)
  Set Found = Rng.Find(ID)
  If Found Is Nothing Then Sheets(2).Rows(r).Delete
Next
End Sub

Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 12:32.