Excel vba deletar linhas duplicados criterio

Sáb, 19 de Novembro de 2011 10:33 Expedito Marcondes
Imprimir

Saberexcel - o site de quem precisa aprender macros microsoft excel vba

Esse macro do Aplicativo Microsoftexcel Excel VBA, com auxilio de uma inputbox para o critério de deleção de linhas preserva a linha com ítem escolhido ou seja preserva valores únicos ou ao contrário deleta os únicos e preserva os duplicados, pois a deleção de dá pelo critério do nome contido na fórmula na coluna (C)  - 'Único" ou "Duplicado". no final da página há um link para baixar o exemplo de planilha contendo o macro abaixo.
Espero que o exemplo possa ajudá-los.
'- - - - - - - - - - -- - - - - - - - - - - - - - - - - - - - -
A Fórmula usada para retornar o critério dos duplicados é:
'=SE(CONT.SE($A$2:B2;B2)>1;"Duplicado";"Único")
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub Loop_for_next_preservar_palavra_exluir_linha()
vCriterio = InputBox("Digite a palavra que desejar preservar:", "Escola Saberexcel VBA Estudos®", "Único")
If vCriterio = Cancel Then 'caso o usuário resolva cancelar a operação para nao ocorrer erro.
   Exit Sub
End If

If CStr(vCriterio) <> "Único" And CStr(vCriterio) <> "Duplicado" Then
   MsgBox ("valores não existente, digite novamente")
   vCriterio = InputBox("Digite a palavra que deseja preservar:", "Escola Saberexcel VBA Estudos®", "Único")
   If vCriterio = Cancel Then'caso o usuário resolva cancelar a operação para nao ocorrer erro.
      Exit Sub
   End If
End If

For i = ActiveSheet.Cells(65536, 1).End(xlUp).Row To 2 Step -1
     If Cells(i, 3).Value <> vCriterio Then
        Cells(i, 3).EntireRow.Delete Shift:=xlUp
     End If
Next i

MsgBox ("Linhas contendo dados [ ") & vCriterio & " ] foram PRESERVADAS!!!", _
         vbInformation, "Saberexcel - o site das macros"
End Sub

Sub copiar_teste()
[a].Copy [b]     'aqui renomeiei a área 'a' (Plan(Auxiliar)(A1:D21)) a ser copiada e célula(A1) como [b] para receber os dados 'a' 
End Sub
' - - - - - - - - - - - - - - - - - - - - - - -
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos
da Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.




  Baixe o exemplo de planilha contendo os macros acima:
Excel vba deletar linhas duplicados criterio (88.61 KB)

Tags:
Última atualização em Sáb, 19 de Novembro de 2011 11:16