Substrater x ()
Obscurcir le rng comme gamme, WS comme feuille de travail
Application.DisplayAlerts = faux
Avec les feuilles (« Sheet1 »)
Sheets.Add (). Nom = « temp »
. Gamme (« A1 ». Gamme (« A » et Rows.Count). Extrémité (xlUp))action de .AdvancedFilter : =xlFilterCopy, CopyToRange : =Sheets (« temp »). Gamme (« A1 »), unique : =True
Pour chaque rng en feuilles (« temp »). Gamme (« A2 », feuilles (« temp »). Gamme (« A2 »). Extrémité (xlDown))
Placer le WS = le Worksheets.Add ()
le WS. Nom = rng
.AutoFilterMode = faux
. Champ de la gamme (« A1 ») .AutoFilter : =1, Criteria1 : =rng
.AutoFilter.Range.Copy WS. Gamme (« A1 »)
le WS. Mouvement
ActiveWorkbook.Close SaveChanges : =True, nom de fichier : = " C:\ " et rng et « .xls »
Prochain rng
.AutoFilterMode = faux
Feuilles (« temp »). Suppression
Extrémité avec
Application.DisplayAlerts = rectifient
Sous-marin d'extrémité
|