Microsoft Visual Basic for Applications (VBA) é uma linguagem de programação fácil de usar que pode personalizar os produtos do Microsoft Office, como o Microsoft Excel. Em vez de poring através de uma planilha do Excel para identificar as linhas duplicadas , uma macro do Excel pode identificar todas as linhas duplicadas. Uma macro Excel é um pequeno pedaço de código VBA que você pode executar diretamente a partir do Visual Basic Editor. Instruções
1
Selecione as colunas de dados que deseja comparar para as linhas duplicadas . Por exemplo, se você quiser verificar a coluna A para linhas duplicadas , clique em " A. "
2
Abra o VBE com a tecla " Alt " e " F11 " juntos no teclado . Isso abre a janela do VBE .
3
Clique em " Abrir " e depois clique em " Módulo ". Uma janela em branco será aberto no VBE .
4
Corte e cole o seguinte código na janela em branco a partir do Passo 3:
Public Sub DeleteDuplicateRows ( ) ' DeleteDuplicateRows
Dim R Como LongDim N Como LongDim V Como VariantDim Rng Como Faixa
On Error GoTo EndMacroApplication.ScreenUpdating = FalseApplication.Calculation = xlCalculationManual
Set Rng = Application.Intersect ( ActiveSheet.UsedRange , _ActiveSheet.Columns ( ActiveCell.Column ) )
Aplicação . StatusBar = " Processamento Row: " & Format ( Rng.Row , " #, # # 0")
N = R = 0For Rng.Rows.Count Para 2 Step - 1Se R Mod 500 = 0 ThenApplication.StatusBar = " Processamento Row: " & Format ( R, " #, # # 0" ) End If
V = Rng.Cells (R , 1) Valor < . br>
Se V = vbNullString ThenIf Application.WorksheetFunction.CountIf ( Rng.Columns (1), vbNullString )> 1 ThenRng.Rows (R). EntireRow.DeleteN = N + 1End IfElseIf Application.WorksheetFunction.CountIf (RNG . Colunas (1), V )> 1 ThenRng.Rows (R) EntireRow.DeleteN = N + 1End IfEnd IfNext R
EndMacro : .
Application.StatusBar = FalseApplication.ScreenUpdating = TrueApplication.Calculation = xlCalculationAutomaticMsgBox " linhas duplicadas excluídos : " & CStr (N)
End Sub
5
Pressione " F5" para executar o procedimento . A macro será executada e excluir as linhas duplicadas.
