Segue código:
Sub Preencher()
i = 2
Do While Cells(i, 2) <> ""
If Cells(i, 2) = Cells(i - 1, 2) Then
Cells(i, 1) = Cells(i - 1, 1) + 1
Else
Cells(i, 1) = 1
End If
i = i + 1
Loop
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 12/10/2016 1:58 pm