Occorrenze in un array con Visual Basic
Inviato: 24 nov 2014, 19:01
Salve a tutti,
premetto che è la prima volta che uso Visual Basic. Devo contare quante volte alcuni valori si ripetono in una colonna. Data la colonna con valori 1 1 5 1 5, devo avere in uscita il numero di volte in cui si ripetono i valori. Di seguito posto il codice
Il codice da come risultato:
che è esatto, ma vorrei che fosse solo
Grazie a tutti

premetto che è la prima volta che uso Visual Basic. Devo contare quante volte alcuni valori si ripetono in una colonna. Data la colonna con valori 1 1 5 1 5, devo avere in uscita il numero di volte in cui si ripetono i valori. Di seguito posto il codice
Codice: Seleziona tutto
Sub leggivalori()
Dim i As Integer, j As Integer, c As Integer
For i = 1 To 5
c = 0
For j = 1 To 5
If Cells(i, 1) = Cells(j, 1) Then
c = c + 1
End If
Next
Cells(i, 3) = c
Cells(i, 2) = Cells(i, 1)
Next
End Sub
Il codice da come risultato:
- 1 3
1 3
5 2
1 3
5 2
che è esatto, ma vorrei che fosse solo
- 1 3
5 2
Grazie a tutti
