ho creato la seguente macro che però non riesce a gestire tutti i casi.
Posto le due immagini e la macro per far capire la mia difficoltà.
Tramite questa macro elaboro la ricerca dei numeri ripetuti:
- Codice: Seleziona tutto
Sub RicercaRipetuti()
Application.ScreenUpdating = False
Application.Calculation = xlManual
Application.EnableEvents = False
Range("Q5:W14").Select
Selection.ClearContents
Range("A1").Select
For riga = 5 To 13
For colonna = 11 To 14
For indice = riga + 1 To 14
For indcol = colonna To 15
a = Cells(riga, colonna)
b = Cells(indice, indcol)
If a = b And a <> "" And b <> "" Then
Cells(riga, 19) = a
Cells(riga, 17) = Cells(riga, 1)
Cells(riga, 18) = Cells(indice, 1)
End If
Next
Next
Next
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub
Ma, come si può vedere da questa immagine, è il risultato che dovrei realizzare:
Rispetto alla prima, manca di alcuni rilevamenti.
Grazie a chi può darmi le indicazioni giuste.
Francesco
