Option explicite
Macro4 secondaires ()
Faible ws1 comme feuille de travail, _
ws2 comme feuille de travail, _
ws3 comme feuille de travail, _
lst1 comme nombre entier, _
lst2 comme nombre entier
Placer ws1 = feuilles (« Sheet1 »)
Placer ws2 = feuilles (« Sheet2 »)
Placer ws3 = feuilles (« Sheet3 »)
lst1 = ws1.Cells (65536, « A »). Extrémité (xlUp). Rangée
lst2 = ws2.Cells (65536, « A »). Extrémité (xlUp). Rangée
ws1.Range (« A1 : Action de F » et de lst1) .AdvancedFilter : =xlFilterCopy, CriteriaRange : =ws2.Range (« A1 : » Et lst2), _
CopyToRange : =ws3.Columns (« A : F »), unique : =True
Sous-marin d'extrémité
|