|
Certaines feuilles de calcul sont utilisées et mises à jour beaucoup . Ceux-ci sont souvent remplis avec les données qui se répète plusieurs fois. Il ya plusieurs façons de trouver et de supprimer les lignes qui contiennent les données en double, mais l'un des moyens les plus simples et automatiques d'y arriver est avec une macro Visual Basic. Excel contient une demande de programmation appelé Excel VBA, qui peut être utilisé pour faire un certain nombre de macros - des morceaux de code conçus pour faire un travail personnalisé à chaque fois convoqué. Choses que vous devez
Microsoft Excel
Afficher plus Instructions
Programmation de la Macro
1 Ouvrez votre feuille de calcul dans Excel et ouvrez votre éditeur VBA en appuyant sur Alt et sur la F11 sur votre ordinateur.
2 Démarrez un nouveau projet en cliquant droit sur votre classeur dans le menu de droite et en choisissant l'option "Nouveau".
3 commencer la nouvelle fonction avec " DeleteDuplicateRows sub () . " Cela informe le compilateur VBA qu'il ya un nouveau sous-programme qui devrait être au courant.
4 Créer les variables avec le code suivant :
Row As LongDim compter comme LongDim comparer autant Range VariantDim Comme Range
Ceci indique au système de mettre de côté les quatre variables (ligne, comte , comparaison et Range) pour utiliser dans le code. Vous pouvez utiliser ce que les noms de variables font plus de sens pour vous , mais n'oubliez pas de les changer dans le code plus tard
5 Mettre en place la macro avec un code plus simple: .
On Error GoTo EndMacroApplication.ScreenUpdating = FalseApplication.Calculation = xlCalculationManual
Set Plage = Application.Intersect ( ActiveSheet.UsedRange , _ActiveSheet.Columns ( ActiveCell.Column ) ) Application.StatusBar = " Ligne de traitement: " & Format ( Rng.Row , " #, # # 0" )
le premier groupe de code indique le système pour exécuter la macro si elle se heurte à des problèmes. Le second groupe définit la variable de portée en fonction de ce que l'utilisateur a sélectionné
6 Tapez le code suivant : .
Count = 0pour Row = Range.Rows.Count Pour 2 Step 1Si - Mod Ligne 500 = 0 ThenApplication.StatusBar = " Traitement Row :" & Format (R, " #, # # 0" ) End If
Comparaison = Range.Cells ( Row , 1 ) . Valeur
Ceci indique au système pour parcourir chacune des lignes sélectionnées par l'utilisateur, et de changer le comparateur variable pour cette ligne chaque fois qu'il se déplace sur .
7 entrée le code suivant suivant : .
Si V = vbNullString ThenIf Application.WorksheetFunction.CountIf ( Rng.Columns (1) , vbNullString ) > 1 ThenRng.Rows (R) EntireRow.DeleteN = N + 1End IfElseIf application . WorksheetFunction.CountIf ( Rng.Columns (1) , V) > 1 ThenRng.Rows ( R). EntireRow.DeleteN = N + 1End IfEnd Si
Ces déclarations sont celles qui réellement dire au système d' comparer la variable à la cellule suivante Comparer et supprimer la ligne si les deux sont les mêmes.
8 enter insérer une couple de nouvelles lignes , puis tapez " Row Next". Ceci indique au système d'arrêter de regarder la première ligne, et passer à la suivante
9 Fermer la fonction avec : .
EndMacro :
application . StatusBar = FalseApplication.ScreenUpdating = TrueApplication.Calculation = xlCalculationAutomaticMsgBox " les doublons supprimés: " & CStr ( N)
End Sub
Ces dernières lignes indiquer au système comment fermer le sous-programme dehors, et aussi d'afficher une boîte de message utile d'informer l'utilisateur que la macro a réellement fait ce qu'il était censé faire .
Utiliser le Mode Macro
10 enregistrer la feuille . Enregistrer un deuxième copie de sauvegarde avant d'utiliser la macro. Soit copier et coller le fichier dans un dossier de sauvegarde, ou nous l' "Enregistrer sous" fichier pour enregistrer la deuxième copie , vous devrez fermer Excel et ré- ouvrir.
11 Cliquez et faites glisser votre curseur autour de la colonne la plus importante de données. C'est celui pour lequel toutes les inscriptions doivent se distinguent , comme dans , si tout avait été entré correctement , il n'y aurait pas d' entrées en double .
12 Ouvrez le menu "Outils" et sélectionner " ; macros " Cela ouvre la boîte de dialogue macros , vous permettant de choisir et d'exécuter votre macro
13 Sélectionnez votre macro ; . si vous avez utilisé l'exemple ci-dessus, il sera appelé " . DelDuplicateR " . , appuyez ensuite sur le bouton "Exécuter" . La macro s'exécute automatiquement , et faire apparaître un message indiquant que les doublons ont été supprimés.
|
