Macro para identificar valores duplicados
Necesito identificar valores duplicados. Explico:
En la columna "A" tengo múltiples valores, únicos y duplicados. Necesito que en la columna "B" aparezca "1" al ser valor único de la columna y "2" al estar el valor duplicado en la columna. Todo esto siempre y cuando haiga un valor mayor a cero en las celdas de la columna "A".
1 Respuesta
Respuesta de Dante Amor
2
Te anexo la macro
Sub Unicos_Duplicados()
'Por Dante Amor
'cuenta unicos y duplicados
'
u = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To u
valor = Cells(i, "A").Value
If valor > 0 Then
cuenta = Application.WorksheetFunction.CountIf(Range(Cells(1, "A"), Cells(u, "A")), valor)
If cuenta = 1 Then
Cells(i, "B").Value = 1
Else
Cells(i, "B").Value = 2
End If
End If
Next
MsgBox "fin"
End Sub.Sal u dos. Dante Amor. No olvides valorar la respuesta.
