Em Folha1 célula C2 digite:
=IF(B2="A",1+MAX($C$1:C1),"")
e copie para baixo. Isso produz:
Então,emFolha2célulaA2digite:
=INDEX(Sheet1!A:A,MATCH(ROWS($1:1),Sheet1!C:C,0))
Issoproduz:
EDIT#1:
Paraselivrardessamensagemdeerroirritante,emFolha2,acélulaA2usaessafórmula:
=IFERROR(INDEX(Sheet1!A:A,MATCH(ROWS($1:1),Sheet1!C:C,0)),"")
Se você copiar isso, ele ocultará os erros na parte inferior da coluna.