¿Cómo enumerar una lista con elementos repetidos en Excel?

Dante, buen día solicitando tu apoyo de nueva cuenta me podrías ayudar con el siguiente caso. En el mismo listado del pedido necesito que me enumere con (1) cada numero de sucursal y si esta se repite, coloque el numero (2), tomando en cuenta que si es el código 7128110724 siempre sea (1) si la sucursal tiene más de un código y no tiene el código 712803110724 le asigne (1) y no (2), te anexo el ejemplo de la sucursal 134. Saludos y gracias por tu apoyo.

Respuesta
1

Prueba con la siguiente macro

Sub orden3()
'Por.Dante Amor
    c = "A"
    'ant = Cells(2, c)
    cod = Cells(2, "B")
    n = 1
    u = Range("A" & Rows.Count).End(xlUp).Row
    Range("C2:C" & u).ClearContents
    n24 = False
    For i = 2 To u
        If ant <> Cells(i, c) Then
            n = 1
        Else
            If n24 Then
                n = 2
                n24 = False
            End If
        End If
        If Cells(i, "B") = "712803110724" Then
            n = 1
            n24 = True
        End If
        Cells(i, "C") = n
        ant = Cells(i, c)
    Next
End Sub

Saludos.Dante Amor

Si es lo que necesitas. No olvides valorar la respuesta.

Gracias por tu apoyo Dante me solo que en dos casos la macro me da el (2) cuando no corresponde. Debería de ser uno ya que no corresponde al código (712803110724).

Disculpa, anexo la corrección

Sub orden3()
'Por.Dante Amor
    c = "A"
    'ant = Cells(2, c)
    cod = Cells(2, "B")
    n = 1
    u = Range("A" & Rows.Count).End(xlUp).Row
    Range("C2:C" & u).ClearContents
    n24 = False
    For i = 2 To u
        If ant <> Cells(i, c) Then
            n = 1
        Else
            If n24 Then
                n = 2
                n24 = False
            End If
        End If
        n24 = False
        If Cells(i, "B") = "712803110724" Then
            n = 1
            n24 = True
        End If
        Cells(i, "C") = n
        ant = Cells(i, c)
    Next
End Sub

Añade tu respuesta

Haz clic para o