Isso pode ser feito sem o VBA. Aqui está uma planilha de exemplo com fórmulas que transfixarão os dados.
- UseoFiltroavançadoparacopiarnomesexclusivosnacolunaG.
- EmD2,coloque
=COUNTIF(A:A,G2)earrasteparabaixo - EmE2,coloque
=MATCH(G2,A:A,0)-2earrasteparabaixo - Coloqueosnúmerosvistosnacapturadetelaem
H8:K8 - Coloqueafórmulanabarradefórmulasnacapturadetelaem
H2earrasteparacimaeparabaixo.Afórmulaé=If(H$8<=$D2,OFFSET($A$1,$E2+H$8,1),"")
