Como comparar valores e identificar los repetidos
Hola sucede que tengo una matriz
1 3 9 12 18 33 39
2 2 3 23 24 26 28
3 2 3 6 13 19 25
4 4 8 15 17 25 30
5 4 7 11 18 21 26
n... Series
Y necesito saber cuando una serie se me repita comparar solo fila a fila..
Se que con una macro pero no se como interpretarla...
Saludos.
1 3 9 12 18 33 39
2 2 3 23 24 26 28
3 2 3 6 13 19 25
4 4 8 15 17 25 30
5 4 7 11 18 21 26
n... Series
Y necesito saber cuando una serie se me repita comparar solo fila a fila..
Se que con una macro pero no se como interpretarla...
Saludos.
1 Respuesta
Respuesta de inforvago
1
Esta función t pude indicar si el arreglo tiene o no elementos repetidos regresando cuantos fueron lozalidados..
Si regresa algo mayor que 1 implica que un elemento esta repetido...
Espero t sirva...
Sub test()
MsgBox (CStr(Repetidos("A1:A10")))
End Sub
Function Repetidos(lista As String) As Integer
Dim j As Variant
Dim i As Variant
Dim cuantas As Integer
cuantas = 0 'inicializa cuantas hay de cada elemento...
For Each j In ThisWorkbook.Worksheets("Hoja1").Range(lista)
For Each i In ThisWorkbook.Worksheets("Hoja1").Range(lista)
If j = i Then
cuantas = cuantas + 1
End If
Next
If cuantas > 1 Then
Exit For
End If
cuantas = 0
Next
Repetidos = cuantas
End Function
Si regresa algo mayor que 1 implica que un elemento esta repetido...
Espero t sirva...
Sub test()
MsgBox (CStr(Repetidos("A1:A10")))
End Sub
Function Repetidos(lista As String) As Integer
Dim j As Variant
Dim i As Variant
Dim cuantas As Integer
cuantas = 0 'inicializa cuantas hay de cada elemento...
For Each j In ThisWorkbook.Worksheets("Hoja1").Range(lista)
For Each i In ThisWorkbook.Worksheets("Hoja1").Range(lista)
If j = i Then
cuantas = cuantas + 1
End If
Next
If cuantas > 1 Then
Exit For
End If
cuantas = 0
Next
Repetidos = cuantas
End Function
