Saberexcel - o site das macros
Esta macro do Aplicativo Microsoft Excel VBA, insere uma autonumeração e incrementa o número a cada execução da macro, neste caso escolhemos a célula(B4)
Sub Autonumeracao_incrementa()
Dim vCelula As Range
For Each vCelula In Range("B4").Cells
vCelula.Value = vCelula.Value + 1
Next
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Baixe o exemplo de planilha contendo a macro acima
Excel planilha vba autonumercao incrementa determinada celula (13.85 KB)