Microsoft Visual Basic pour Applications ( VBA) est un langage de programmation conviviale qui peut personnaliser les produits Microsoft Office tels que Microsoft Excel. Au lieu de poring à travers une feuille de calcul Excel pour identifier les doublons , une macro Excel peut identifier les doublons . Une macro Excel est un petit morceau de code VBA que vous pouvez exécuter directement à partir de Visual Basic Editor . Instructions
1
Sélectionnez les colonnes de données que vous voulez comparer des lignes en double . Par exemple, si vous voulez vérifier la colonne A pour les lignes en double , cliquez sur " A. "
2
Ouvrez Visual Basic Editor en appuyant sur "Alt" et "F11" ensemble sur le clavier . Cela ouvre la fenêtre VBE .
3
Cliquez sur "Ouvrir" puis cliquez sur " Module ". Une fenêtre vide s'ouvre dans le VBE .
4
couper et coller le code suivant dans la fenêtre vide de l'étape 3 : Photos
DeleteDuplicateRows public Sub ( ) ' DeleteDuplicateRows
Dim R Comme LongDim N Comme LongDim V Comme VariantDim Rng Comme Range
On Error GoTo EndMacroApplication.ScreenUpdating = FalseApplication.Calculation = xlCalculationManual
Set Rng = Application.Intersect ( ActiveSheet.UsedRange , _ActiveSheet.Columns ( ActiveCell.Column ) )
application . StatusBar = " Traitement Row :" & Format ( Rng.Row , " #, # # 0" )
N = R = 0pour Rng.Rows.Count Pour 2 Step- 1Si R Mod 500 = 0 ThenApplication.StatusBar = " Traitement Row: " . & Format (R, " #, # # 0" ) End If
V = Rng.Cells (R, 1) Valeur
Si V = vbNullString ThenIf Application.WorksheetFunction.CountIf ( Rng.Columns (1) , vbNullString ) > 1 ThenRng.Rows (R). EntireRow.DeleteN = N + 1End IfElseIf Application.WorksheetFunction.CountIf (RNG . . colonnes (1) , V) > 1 ThenRng.Rows ( R) EntireRow.DeleteN = N + 1End IfEnd IfNext R
EndMacro :
Application.StatusBar = FalseApplication.ScreenUpdating = TrueApplication.Calculation = xlCalculationAutomaticMsgBox " les doublons supprimés: " & CStr ( N)
End Sub
5
Appuyez sur " F5" pour exécuter la procédure. La macro s'exécute et supprimer les doublons .
