Macro crear consecutivo que se reinicie

Tengo columna A con codigos por ejemplo:

Codigo_Distrito

01

01

01

01

02

02

02

03

03

03

Deseo que en la columna B vaya un consecutivo que se reinicie cuando el valor de columna A cambie

Codigo_Distrito    Consecutivo

01                             1

01                             2

01                             3

01                             4

02                             1

02                             2

02                             3

03                             1

03                             2

03                             3

Etcetera

1

1 respuesta

Respuesta
2

Te anexo la macro

Sub consecutivo()
    ini = 1     'fila donde inician los datos
    ant = Cells(ini, "A").Value
    n = 1
    For i = ini To Range("A" & Rows.Count).End(xlUp).Row
        If ant <> Cells(i, "A").Value Then
            n = 1
        End If
        Cells(i, "B").Value = n
        n = n + 1
        ant = Cells(i, "A").Value
    Next
    MsgBox "Fin"
End Sub

[sal u dos. No olvides valorar.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas