Colega FoxMana Boa Noite!
Bem, como você não apresentou nenhuma planilha vou na suposição...
Supondo que sua coluna A esteja preenchida e que seus dados começam na linha 2 então:
1. Rode esse código:
Sub destacar()
Dim ul As Long
ul = Range("A" & Rows.Count).End(xlUp).Row
[a2].Select
For i = 2 To ul Step 900
ActiveCell.Interior.ColorIndex = 36
ActiveCell.Offset(900, 0).Select
Next i
End Sub
Ele fará com que, a cada 900 linhas, uma fique com preenchimento amarelo.
2. classifique os dados por Cor.
3. copie e cole em uma nova aba apenas os destacados;
4. Use os dados dessa nova aba para montar sua planilha.
Obs* Não sei se é a melhor forma mas, essa sub poderia servir de base para automatizar ainda mais essa rotina. Porém, pra isso, precissariamos ver a estrutura da sua planilha.
Abrç!
___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].
Att.
André Arruda
Postado : 23/02/2018 3:14 pm