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 .

• Che cosa è un foglio di lavoro Excel di Microsoft 
• Come sbloccare un vetro di finestra in Excel 2007