Veja se seria isto, de uma olhada se por um acaso o resultado que você colocou na Aba Modificada o 2 em C24 não deveria de ser em C23, pelo menos foi o que entendi em seus vários tópicos espalhados, alias da próxima vez procure manter o foco em um só tópico.
Sub ExcluirLinha()
Dim FixarLinha As Long
Dim Guardar As String
Guardar = " "
FinalLinha = Range("C" & Rows.Count).End(xlUp).Row
For FixarLinha = FinalLinha To 1 Step -1
Valor1 = Range("E" & FixarLinha).Value & Range("C" & FixarLinha).Value
If InStr(1, Guardar, Valor1) > 0 And Valor1 <> " " Then
Range("C" & FixarLinha + 1).Value = " "
Else
Guardar = Valor1
End If
Next
End Sub
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 29/07/2011 6:05 pm