O exemplo a seguir mostra como usar um intervalo de dados na coluna A e exclua as entradas duplicadas.Este exemplo usa o metodo AdvancedFilter do objeto Range com o parametro Unique igual a True para obter a lista exclusiva de dados. O parametro Action e igual a xlFilterInPlace, especificando que os dados sao filtrados no lugar. Se voce deseja manter os dados originais, defina o parametro Action como xlFilterCopy e especifique o local onde voce deseja que os dados filtrados copiados no parametro CopyToRange . Uma vez que os valores exclusivos sao filtrados, este exemplo usa o metodo SpecialCells do objeto Range para localizar quaisquer linhas em branco restantes e exclui-los.VBASub Deletar()Dim LastColumn As IntegerWith Application .ScreenUpdating = False LastColumn = Cells.Find(What:="*", After:=Range("A1"), SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column + 1 With Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) .AdvancedFilter Action:=xlFilterInPlace, Unique:=True .SpecialCells(xlCellTypeVisible).Offset(0, LastColumn - 1).Value = 1 On Error Resume Next ActiveSheet.ShowAllData Columns(LastColumn).SpecialCells(xlCellTypeBlanks).EntireRow.Delete Err.Clear End With Columns(LastColumn).Clear .ScreenUpdating = True End WithEnd SubNa Guia Desenvolverdor, Grupo Codigo, Ferramenta Visual Basic.Na tela de VBE (Visual Basic Editor), Menu Inserir, selecione a opcao Modulo.Copie e cole o no modulo.AssistaBaixar Planilha Carregando... IntroducaoIndentacao e um efeito tipografico de recuar/afastar um texto de sua margem para ressaltar a estrutura das linhas de codigo de um programa. Seu efeito direto e melhorar a compreensao do codigo.Veja o codigo abaixo:Sub pMaturidade()Idade = InputBox("Qual e sua idade?")Select Case IdadeCase Is < 18Mensagem = "Aproveite enquanto ainda e adolescente!"Case 18 To 30Mensagem = "Esta na hora de fazer um pe de meia e depois casar."Case Is > 30Filhos = InputBox("Quantos filhos voce tem?")If Filhos > 0 ThenMensagem = "As responsabilidades so aumentam, mas vale a pena."ElseMensagem = "Nao acha que esta na hora de ter filhos?"End IfCase ElseMensagem = "Valor invalido!"End SelectMsgBox MensagemEnd SubAgora, observe o mesmo codigo abaixo, reescrito indentado:Sub pMaturidade2() Idade = InputBox("Qual e sua idade?") Select Case Idade Case Is < 18 Mensagem = "Aproveite enquanto ainda e adolescente!" Case 18 To 30 Mensagem = "Esta na hora de fazer um pe de meia e depois casar." Case Is > 30 Filhos = InputBox("Quantos filhos voce tem?") If Filhos > 0 Then Mensagem = "As responsabilidades so aumentam, mas vale a pena." Else Mensagem = "Nao acha que esta na hora de ter filhos?" End If Case Else Mensagem = "Valor invalido!" End Select MsgBox MensagemEnd SubFuncionalmente, os algoritmos sao equivalentes. No entanto, o subprocedimentopMaturidade2 esta mais facil de ler porque seu codigo esta indentado. Veja que o inicio de uma estrutura Select Case esta afastado da margem uma distancia igual ao seu final End Select. Com isso, bastar bater os olhos na estrutura do codigo para saber onde o essa estrutura de decisao inicia e termina.Largura da Tabulacao da IndentacaoPor padrao, a indentacao do VBE e de 4 espacos. No entanto, pessoalmente utilizo 2 espacos. Voce pode alterar essa configuracao clicando no menu Ferramentas >> controleOpcoes, entao na janela que aparecer, clique na guia Editor >> caixa de texto Largura da tabulacao:Indentando o CodigoNa janela de codigo, a tecla Tab aumenta o recuo de um texto e a combinacao Shift+Tabdiminui. Voce pode