Microsoft Visual Basic, Applications Edition (VBA ) è un linguaggio di programmazione user-friendly in grado di personalizzare i prodotti di Microsoft Office come Microsoft Excel . Invece di studiando attentamente attraverso un foglio di calcolo Excel per identificare le righe duplicate , una macro di Excel in grado di identificare eventuali righe duplicate . Una macro di Excel è un breve pezzo di codice VBA che è possibile eseguire direttamente da Visual Basic Editor . Istruzioni
1
Selezionare le colonne di dati che si desidera confrontare per le righe duplicate . Per esempio, se si desidera controllare la colonna A per le righe duplicate , fare clic su " A. "
2
Aprire il VBE premendo il tasto " Alt " e " F11 " insieme sulla tastiera . Si apre la finestra VBE .
3
Fare clic su " Apri " e poi cliccare su " Modulo ". Una finestra vuota viene aperto in VBE .
4
Tagliare e incollare il codice seguente nella finestra vuota dal punto 3 :
DeleteDuplicateRows Public Sub ( ) ' DeleteDuplicateRows
Dim R Come LongDim N Come LongDim V Come VariantDim Rng come gamma
On Error GoTo EndMacroApplication.ScreenUpdating = FalseApplication.Calculation = xlCalculationManual
Set Rng = Application.Intersect ( ActiveSheet.UsedRange , _ActiveSheet.Columns ( ActiveCell.Column ) ) per
Application . StatusBar = "Elaborazione fila: " & Format ( Rng.Row , " # , # # 0 " ) per
N = 0For R = Rng.Rows.Count To 2 Step- 1 Se R Mod 500 = 0 ThenApplication.StatusBar = "Elaborazione fila: " . & Format ( R , " # , # # 0 " ) End If
V = Rng.Cells ( R , 1) Valore
Se V = vbNullString ThenIf Application.WorksheetFunction.CountIf ( Rng.Columns ( 1 ) , vbNullString )> 1 ThenRng.Rows (R). EntireRow.DeleteN = N + 1End IfElseIf Application.WorksheetFunction.CountIf (RNG . . Colonne ( 1 ) , V) > 1 ThenRng.Rows ( R ) EntireRow.DeleteN = N + 1End IfEnd IfNext R
endmacro :
Application.StatusBar = FalseApplication.ScreenUpdating = TrueApplication.Calculation = xlCalculationAutomaticMsgBox " righe duplicate Deleted :" & CStr ( N ) per
End Sub
5
Premere " F5" per eseguire la procedura. La macro verrà eseguita ed eliminare eventuali righe duplicate .
