Microsoft Visual Basic for Applications (VBA) è un linguaggio di programmazione facile da usare che può personalizzare i prodotti di Microsoft Office come Microsoft Excel. Una macro di Excel, invece di poring attraverso un foglio di calcolo Excel per identificare le righe duplicate, è in grado di identificare tutte le 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 righe duplicate. Ad esempio, se si desidera controllare la colonna per le righe duplicate, fare clic su "a".
2
Aprire VBE premendo "Alt" e "F11" sulla tastiera. Si apre la finestra VBE.
3
Fare clic su "Apri", quindi fare clic su "Modulo". Una finestra vuota verrà aperto in VBE.
4
Tagliare e incollare il codice seguente nella finestra vuota dal passaggio 3:
Public Sub DeleteDuplicateRows()
' DeleteDuplicateRows
Dim R As Long
Dim N As Long
Dim V As Variant
Dim Rng As Range
Su errore GoTo EndMacro
Application. ScreenUpdating = False
Application.Calculation = xlCalculationManual
Set Rng = Intersect (ActiveSheet.UsedRange, _
ActiveSheet.Columns(ActiveCell.Column))
Application.StatusBar = "elaborazione riga:" & Format (Rng.Row, "#, # # 0")
N = 0
Per R = Rng.Rows.Count To Step 2 -1
Se R Mod 500 = 0 allora
Application.StatusBar = "Processing Row: " & Format(R, "#,##0")
End If
V = Rng.Cells (R, 1). Valore
Se V = vbNullString quindi
If Application.WorksheetFunction.CountIf(Rng.Columns(1), vbNullString) > 1 Then
Rng.Rows(R).EntireRow.Delete
N = N + 1
End If
Altro
If Application.WorksheetFunction.CountIf(Rng.Columns(1), V) > 1 Then
Rng.Rows(R).EntireRow.Delete
N = N + 1
End If
End If
Next R
EndMacro:
Application.StatusBar = False
Application. ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
MsgBox "Duplica righe eliminate:" & CStr(N)
End Sub
5
Premere "F5" per eseguire la procedura. La macro verrà eseguito ed eliminare tutte le righe duplicate.
Consigli & Avvertenze
- Questa macro eliminerà tutte le righe duplicate nella stessa colonna, fatta eccezione per il record di numero più basso. Salvare una copia dei vostri dati prima di eseguire la macro nel caso in cui non si ottengono i risultati che ti aspettavi.