Dante Amor respondió:
H o l a: Te anexo la macro Sub Correlativo() 'Por.Dante Amor ant = Cells(2, "A") n = 1 For i = 2 To Range("A" & Rows.Count).End(xlUp).Row If Cells(i, "A") <> ant Then n = 1 Cells(i, "B") = n Cells(i, "C") = "M" & n n = n + 1 ant = Cells(i, "A") Next...