Astuces Excel
  1. Astuces Excel
  3. Suppression de duplicates à petite échelle
Intereting Posts
Faire correspondre, copyr et coller d'une autre feuille de travail Comparez plusieurs colonnes dans Excel et récupérez datatables à partir d'autres colonnes s'il est vrai Comparez la valeur de la cellule et les alphabets de return ci-dessus forcer le format lors de l'parsing des dates dans les pandas à partir d'un file Excel Importation de lignes avec leurs formules à partir d'une autre feuille Python .xls à la conversion .xlsx avec tous les formats intacts Exportation de données de CRM 4.0 vers Excel Fusionner des files CSV en XLSX avec tabs VBA excel google search error La fonction VBA appelle VBA sub pour imprimer le tableau à la feuille de calcul Supprimer les requêtes de feuille de calcul complètement via Excel VBA Création d'un .xlsx avec une connection db Lorsque vous essayez de fermer une feuille de calcul, Excel request à l'user de sauvegarder les modifications Écrivez plusieurs files text dans un classur Excel sur différentes feuilles? Filtrer un tableau dans VBA en utilisant une cellule comme critère

Suppression de duplicates à petite échelle

J'essaie de développer un code qui va sortinger une list de données et si une cellule a la valeur "Y" pour la sauter et si elle a une autre valeur de lettre pour créer une gamme de deux lignes et vérifier si les lignes sont des duplicates dans les colonnes 7 et 17. Jusqu'à présent, je n'ai pas réussi à le faire et j'ai une erreur récurrente. À savoir, la méthode 'Range' of Object'_Global 'a échoué. Toute aide serait appréciée! 

Option Explicit Public Sub dup() Dim i As Integer Dim updater As Worksheet Dim LastRow As Long Dim LastColumn As Long Dim startcell As Range Dim numrow As Integer Dim rcell As Ssortingng Set updater = Worksheets("DbVisualizer Personal") '----------------------------------------------------- numrow = updater.Range("A4").CurrentRegion.Rows.Count For i = 4 To numrow rcell = updater.Cells(i, 30) Set startcell = Range("R" & i & "C1") If rcell = "Y" Then Else LastRow = updater.Cells((i + 1), 1).End(xlUp).Row LastColumn = updater.Cells(1, updater.Columns.Count).End(xlToLeft).Column updater.Range(startcell, updater.Cells(LastRow, LastColumn)).RemoveDuplicates Columns:=Array(7, 17), Header:=xlNo End If Next i End Sub