Astuces Excel
  1. Astuces Excel
  3. VBA AdvancedFilter Filtrer et copyr des cellules uniques sans cellules vierges (vides)
Intereting Posts
Formule Excel pour mettre en évidence la cellule en fonction de la différence de time VBA permet de suivre les ouvrages d'ouvrage ouverts Obtenez la dernière ligne de la colonne 2 puis entrez datatables dans 1 de la colonne Téléchargement d'un file csv dans un dossier cible et renommage Colonne de search EXCEL dans un autre classur par text dans une colonne Filtrage VBA Excel par valeur de cellule sur d'autres feuilles et utilisant la formule Gamme dynamic N ° apparence Excel 3D Sumif sur toutes les feuilles contenant "CL -" dans le nom de la feuille? Déplacement des buttons de basculement avec des barres de défilement Macro pour copyr et coller une colonne par colonne d'une feuille en feuille principale par en-tête pour maintenir datatables croissantes Excel Python: Erreur lors de l'installation des packageages xlwt et xlutil Comment garder la class comme numérique lors de l'utilisation de read.xlsx pour importer des données avec NA Microsoft Access à SQL Server Express NPOI Insérer / append une valeur au file .xls Pausage / reprise d'une boucle dans Excel VBA (sur le clic)

VBA AdvancedFilter Filtrer et copyr des cellules uniques sans cellules vierges (vides)

Je suis nouveau dans VBA et stackoverflow.com aussi

J'utilise ce code pour supprimer des cellules en double dans la colonne où je copy des cellules uniques à la colonne suivante, mais le code contient des cellules vierges non vierges pour des données uniques. D'accord, mais je n'ai pas besoin de copyr des cellules vides dans la nouvelle colonne. 

ActiveSheet.Range("BA4:BA59").AdvancedFilter _ Action:=xlFilterCopy, _ CopyToRange:=ActiveSheet.Range("BB4"), _ UNIQUE:=True

J'ai cherché et trouvé 

 SkipBlanks:=True

, mais quand j'ajoute le code va à l'enfer;)

S'il vous plaît, dites-moi comment sauter les blancs et "" cels La colonne avec les duplicates contiennent des formules IF IF (A4 = "Imprimer"; "Texte pour l'printing"; "") et SI (A4 = "Couper"; "Texte pour la coupe"; "" ) Résultats possibles dans les cellules

  1. Texte pour printing
  2. Texte pour printing
  3. ""
  4. Texte pour la coupe
  5. Texte pour la coupe

Je n'ai besoin que dans une nouvelle colonne seulement

  1. Texte pour printing
  2. Texte pour la coupe

Merci d'avance

Il s'agit d'une interprétation de: Advance AutoFilter pour exclure certaines valeurs

Trouvez deux cellules vides, j'ai choisi BA1: BA2 et posez cette formule dans la seconde des deux: 

 =LEN(BA5)>0

Et a quitté le premier Vide.

entrez la description de l'image ici

Ensuite, utilisez le code suivant: 

 Range("BA4:BA9").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "BA1:BA2"), CopyToRange:=Range("BB4"), Unique:=True Gamme ("BA4: BA9"). Action AdvancedFilter: = xlFilterCopy, CriteriaRange: = Gamme (_ Range("BA4:BA9").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "BA1:BA2"), CopyToRange:=Range("BB4"), Unique:=True

J'ai pu faire ce que vous voulez:

entrez la description de l'image ici