Daniel, montei um exemplo simples (anexo).
Caso o resultado não seja o esperado, indique as inconsistências.
Código:
Sub AuxX()
Dim i, j As Integer
Dim lin, flin, elin As Long
i = 1
j = Sheets.Count - 1
elin = 2
lin = 32
Range("D2:D1000").ClearContents
Do While i <= j
flin = Sheets(i).Range("B65536").End(xlUp).Row
Do While lin <= flin
If Mid(Sheets(i).Cells(lin, 2), 1, 3) <> "AUX" Then
lin = lin + 1
ElseIf Application.WorksheetFunction.CountIf(Range("D:D"), Sheets(i).Cells(lin, 2)) > 0 Then
lin = lin + 1
Else
Cells(elin, 4) = Sheets(i).Cells(lin, 2)
lin = lin + 1
elin = elin + 1
End If
Loop
i = i + 1
lin = 32
Loop
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 12/06/2013 10:13 am