Astuces Excel
  1. Astuces Excel
  3. Comment extraire des valeurs uniques de deux colonnes Excel VBA
Intereting Posts
Vérification des cellules vides avec OpenPyXl Excel returnne plusieurs valeurs uniques à partir des critères correspondants Problème lors de la suppression des valeurs vierges dans la list de validation des données Excel déroulante? Récupérer DataGridview à partir d'Excel avec la feuille sélectionnée dans ComboBox Modification du code Excel VBA, alors ne me lisez qu'une seule fois pour le même article Remplissez les dates manquantes Fichier node-exceljsLire l'erreur: No-whitespace before first tag VBA a une sous-exécution d'un autre sous F8 agissant comme F5 lorsque je change de operating system (Windows XP – Windows 7) Extraction d'une sous-string à partir d'une string de longueur arbitraire Dans Excel, comment remplir les cellules vierges avec la dernière cellule non vierge précédente? Comment find des lignes d'parsing et entrer des données dans une table Date de passage des messages électroniques marqués avec vba Zone fixe openXml Erreur d'exécution de Excel 2010 '91'

Comment extraire des valeurs uniques de deux colonnes Excel VBA

Je dois get les valeurs uniques entre la colonne (A) et la colonne (C) à afficher dans la colonne (E)

Ce code: 

Sub GetUniques() Dim Na As Long, Nc As Long, Ne As Long Dim i As Long Na = Cells(Rows.Count, "A").End(xlUp).Row Nc = Cells(Rows.Count, "C").End(xlUp).Row Ne = 1 For i = 1 To Na Cells(Ne, "E").Value = Cells(i, "A").Value Ne = Ne + 1 Next i For i = 1 To Na Cells(Ne, "E").Value = Cells(i, "C").Value Ne = Ne + 1 Next i Range("E:E").RemoveDuplicates Columns:=1, Header:=xlNo End Sub

produira ce type de résultat:

entrez la description de l'image ici