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)-2
earrasteparabaixo - Coloqueosnúmerosvistosnacapturadetelaem
H8:K8
- Coloqueafórmulanabarradefórmulasnacapturadetelaem
H2
earrasteparacimaeparabaixo.Afórmulaé=If(H$8<=$D2,OFFSET($A$1,$E2+H$8,1),"")