Πώς να Διαγραφή διπλότυπων γραμμών με VBA στο Excel

Microsoft Visual Basic for Applications ( VBA ) είναι ένα φιλικό προς το χρήστη γλώσσα προγραμματισμού που μπορεί να προσαρμόσει τα προϊόντα του Microsoft Office , όπως το Microsoft Excel . Αντί μελετώντας προσεκτικά μέσα από ένα υπολογιστικό φύλλο Excel για τον εντοπισμό διπλές σειρές , μια μακρο Excel μπορεί να εντοπίσει τυχόν διπλές σειρές . Μια μακροεντολή Excel είναι ένα μικρό κομμάτι του κώδικα VBA που μπορείτε να εκτελέσετε απευθείας από το Visual Basic Editor. Οδηγίες
Η 1

Επιλέξτε τις στήλες των δεδομένων που θέλετε να συγκρίνετε για διπλές σειρές . Για παράδειγμα , αν θέλετε να ελέγξετε τη στήλη Α, για διπλές σειρές , κάντε κλικ στο " A" 2

Ανοίξτε το VBE πατώντας το πλήκτρο " Alt " και " F11 " μαζί για το πληκτρολόγιο . Αυτό ανοίγει το παράθυρο VBE .
Εικόνων 3

Κάντε κλικ στο "Άνοιγμα " και στη συνέχεια κάντε κλικ στο " ενότητα . " Ένα κενό παράθυρο θα ανοίξει στο VBE .
Η 4

Αποκοπή και επικόλληση τον παρακάτω κωδικό στο κενό παράθυρο από το Βήμα 3 :

DeleteDuplicateRows Public Sub ( ) « DeleteDuplicateRows

Dim R Όπως LongDim Ν Όπως LongDim V Όπως VariantDim Rng Όπως Εύρος

On Error GoTo EndMacroApplication.ScreenUpdating = FalseApplication.Calculation = xlCalculationManual

Set Rng = Application.Intersect ( ActiveSheet.UsedRange , _ActiveSheet.Columns ( ActiveCell.Column ) )

Εφαρμογή . StatusBar = " Επεξεργασία Row : " & Format ( Rng.Row , " # , # # 0 " )

N = 0For R = Rng.Rows.Count Σε 2 Βήμα - 1Αν R Mod 500 = 0 ThenApplication.StatusBar = " Επεξεργασία Row : " & Format ( R , " # , # # 0 " ) End If

V = Rng.Cells ( Ε, 1 ) Value <. br >

Εάν V = vbNullString ThenIf Application.WorksheetFunction.CountIf ( Rng.Columns ( 1 ) , vbNullString ) > 1 ThenRng.Rows ( R) . EntireRow.DeleteN = N + 1End IfElseIf Application.WorksheetFunction.CountIf ( Rng . Στήλες ( 1 ) , V ) > 1 ThenRng.Rows (R ) EntireRow.DeleteN = N + 1End IfEnd IfNext R

EndMacro : .

Application.StatusBar = FalseApplication.ScreenUpdating = TrueApplication.Calculation = xlCalculationAutomaticMsgBox " Διπλότυπο Γραμμές Διαγράφεται : " & CStr (Ν )

End Sub
5

Πατήστε το " F5 " για να εκτελέσετε τη διαδικασία . Η μακροεντολή θα εκτελείται και να διαγράψετε όλες τις διπλές γραμμές .
Η
εικόνων