Boa noite!!

Use a pesquisa do fórum!!
http://planilhando.com.br/forum/viewtop ... =10&t=4528

Sub removerdados_AleVBA()
  
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("C:C") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Plan1").Sort
        .SetRange Range("C:L")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    ActiveWorkbook.Worksheets("Plan1").Range("C:E").RemoveDuplicates Columns:=3, Header:=xlYes
End Sub

Att

Boa Noite Alexandrevba,

Testei, mas não deu certo, eu preciso que remova somente os itens que estão em amarelo, mantendo a coluna F com seu respectivo valor.

Grato
Ado

Boa noite!!

Então você quer Limpar!!!

Sub Limpar_AleVBA()
    Dim x               As Long
    Dim LastRow         As Long
     
    LastRow = Range("E65536").End(xlUp).Row
    For x = LastRow To 1 Step -1
        If Application.WorksheetFunction.CountIf(Range("E7:E" & x), Range("E" & x).Text) > 1 Then
            Range("E" & x).ClearContents
        End If
    Next x
     
End Sub

Att

Boa noite,

Quase deu certo, só que ele ta limpando valores que não era para limpar, por exemplo ele ta limpando todos os valores iguais, ele tem limpar os valores que estão repetidos conforme a coluna F (Confirmação).

Grato
Ado

Boa noite!!

Seria isso....?

Sub Limpar_AleVBA_II()
    Dim x               As Long
    Dim LastRow         As Long
     
    LastRow = Range("F65536").End(xlUp).Row
    For x = LastRow To 1 Step -1
        If Application.WorksheetFunction.CountIf(Range("F7:F" & x), Range("F" & x).Text) > 1 Then
            Range("F" & x).ClearContents
        End If
    Next x
     
End Sub

Att

Boa noite Alexandrevba,
Peço desculpa, não expliquei bem o que estou precisando,vou tentar explicar melhor.
É o seguinte na coluna F eu tenho o numero da confirmação, tem casos que repete o numero da confirmação (coluna F) e repete a quantidade (coluna E) o que preciso é que quando repetir a confirmação que apague somente a quantidade repetida da coluna E .

Na planilha em anexo eu tentei explicar melhor

http://www.4shared.com/file/jmjthb_nba/Pasta1.html

Grato
Ado

Ado, pegando carona na rotina do Alexandre e me baseando no modelo que postou, veja se é isto o que quer:

Alterei as linhas:
For x = LastRow To 6 Step -1 - Inicia na linha6
e Range("F6"...) que é onde começam os dados e ajustei para limpar os dados na Coluna "E" - Range("E" & x).ClearContents.

Sub Limpar_AleVBA_III()
    Dim x               As Long
    Dim LastRow         As Long
     
    LastRow = Range("F65536").End(xlUp).Row
    For x = LastRow To 6 Step -1
        If Application.WorksheetFunction.CountIf(Range("F6:F" & x), Range("F" & x).Text) > 1 Then
            Range("E" & x).ClearContents
        End If
    Next x
     
End Sub

Faça os testes e qq coisa retorne.

[]s

Boa noite,

Deu certo.
Mauro Coutinho e Alexandrevba muito obrigado pela ajuda.

Grato
Ado