La matrice può essere di n righe per 6 colonne, che creo da un ciclo for…next,
io dovrei leggere la matrice dall’inizio riga per riga, dopo aver letto i sei valori della prima riga
avvio un altro ciclo for…next...Step - 1 che legge la matrice dall’ultima riga sino alla riga che ho letto.
Questo è il codice incompleto che utilizzo:
- Codice: Seleziona tutto
Sub PcFacile()
Dim Matrice(400, 6)
Dim NumUguali As Byte
NumUguali = 3
For rig = 1 To 400
For cc = 1 To 6
Agg(cc) = Matrice(rig, cc)
Next cc
For rig2 = 400 To rig + 1 Step -1
conta = 0
For cc2 = 1 To 6
Agg2 = Matrice(rig2, cc2)
For Col2 = 1 To 6
If Agg2 = Agg(Col2) Then conta = conta + 1
Next Col2
If conta = NumUguali Then
'Se fosse in un foglio potrei scrivere per eliminare la riga:
Range("A" & rig2 & ":G" & rig2).Select
Selection.Delete Shift:=xlUp
''vorrei evitare di scrivere tutta la matrice nel foglio eliminando direttamente la riga dalla Matrice.
GoTo salta
End If
Next cc2
salta:
Next rig2
Next rig
' Qui dovrei scrivere nel foglio le righe valide rimaste:
End Sub
Non inserisco un foglio in quanto penso che capita la richiesta si possa lavorare teoricamente.
Un ringraziamento a chi mi aiuta,
Francesco
