l’ordinateur
  1. l’ordinateur
  3. Macro pour copier des valeurs distinctes d'une feuille Excel à une autre
Intereting Posts
Comment faire un PC agir en tant que routeur sur un port Comment puis-je "activer la fonctionnalité sans fil" dans Windows 7? Comment réinstaller la ROM d'option Intel Matrix Storage Manager Comment puis-je forcer Windows 7 à créer un nouveau profil de domaine avec le même nom que celui existant? Pourquoi les touches de volume de mon clavier ont-elles cessé de fonctionner avec Mac OS 10.8 Mountain Lion? Pourquoi installer pour "juste moi" par opposition à "tout le monde"? Chrome: comment arrêter la redirection de http: // vers https: // Comment ancrer une fenêtre à un bord intérieur d'une configuration à deux moniteurs Gnome-terminal nouvel onglet dans le même chemin Retrouvez tous les fichiers en double par MD5 hash Bloc-notes ignorant les sauts de ligne La suppression de fichiers, mais l'espace disque est encore plein Migrez le disque dur avec Windows 7 vers un nouvel ordinateur portable? Affichage de plus de 30 calendriers dans Outlook 2016 Comment puis-je effectuer une sauvegarde de Windows 8?

Macro pour copier des valeurs distinctes d'une feuille Excel à une autre

J'ai un classeur Excel qui contient les feuilles suivantes, «Main» et «Count»: la feuille «Main» contient la colonne B avec la liste des identifiants.

Est-il possible d'avoir une macro sur la page «Compte» pour copier toutes les valeurs distinctes dans la colonne A de la colonne B dans la fiche principale?

Je sais que la fonction Index et le filtre avancé fonctionnent, mais j'ai précisément besoin d'une macro simple.

Essaye ça: 

Sub CopyUnique() Dim s1 As Worksheet, s2 As Worksheet Set s1 = Sheets("Main") Set s2 = Sheets("Count") s1.Range("B:B").Copy s2.Range("A1") s2.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo End Sub