Question : Exceler le macro qui supprimerait des rangées si les numéros d'identité S'assortissent

J'ai un cahier de travail d'Excel avec deux feuilles de travail que contenir nom-et-adressent des données.  En les deux feuilles de travail, la première colonne contient des numéros d'identité.  Je voudrais un macro qui supprime la rangée de la PREMIÈRE feuille de travail s'il y a un numéro d'identité Assorti de la DEUXIÈME manière possible de worksheet.

One de faire ceci serait d'apposer les données de la deuxième feuille de travail à la première feuille de travail et puis de supprimer LES DEUX rangées s'il y a une reproduction pair.

Thanks à l'avance pour n'importe quel help. class= de

Réponse : Exceler le macro qui supprimerait des rangées si les numéros d'identité S'assortissent

Ceci réalisera le travail :

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 : 23 : 24 : 25 : 26 : 27 : 28 : 29 : 30 : 31 : 32 : 33 :

Option explicite Sous-marin public ClearSheet1 () Faible S1 comme feuille de travail Faible s2 comme feuille de travail Placer S1 = ActiveWorkbook.Sheets (1) Placer s2 = ActiveWorkbook.Sheets (2) Obscurcir s1Row comme nombre entier : s1Row = 1 Tandis que S1. Cellules (s1Row, 1).FormulaR1C1 <> "" Faible identification comme corde : identification = S1. Cellules (s1Row, 1).FormulaR1C1 S'IsPresent (s2, identification) puis S1. Rangées (CStr (s1Row) et « :  » Et CStr (s1Row)). Décalage de suppression : =xlUp Autrement s1Row = s1Row + 1 Finir si Wend Finir le sous-marin Fonction publique IsPresent (s comme feuille de travail, identification comme corde) comme booléen Faible rangée comme nombre entier : rangée = 1 Faible résultat comme booléen : résultat = faux Faire tandis que s.Cells (rangée, 1).FormulaR1C1 <> "" Si s.Cells (rangée, 1).FormulaR1C1 = puis identification le résultat = rectifient La sortie font Finir si rangée = rangée + 1 Boucle IsPresent = résultat Fonction de fin