Vorrei sapere se mi potete realizzare una macro, per eliminare celle vuote e doppioni, contemporaneamente.
Se potete realizzare una macro a matrice tridimensionale, tanto meglio(poiche' in seguito, dovro' utilizzarla anche per raggruppamenti di terzine per il gioco del lotto).
I dati da pulire, sono da : E1:F90 (matrice bidimensionale).
La colonna "E" e' gia' ordinata in modo verticale, dal valore piu' piccolo al piu' grande.
I dati corretti, vorrei scriverli in M1-N90.
Utilizzo gia' una macro che assolve perfettamente all' eliminazione delle celle vuote (realizzata dal bravo Anthony):
Sub EliminaCelleVuote()
Application.EnableEvents = False
Columns("m:n").ClearContents
If Range("e1") = "" Then VOff = 1
Columns("e:f").Select
Selection.AutoFilter Field:=1, Criteria1:="<>"
Range("e1:f90").Offset(VOff, 0).Copy Destination:=Range("m1")
Range("e1").Select
Selection.AutoFilter Field:=1
Application.EnableEvents = True
End Sub
Esempio di dati da ripulire :
Colonna :
"E" "F"
1 36
1 36
1 36
1 36
Space space (possono essere presenti su piu' righe, anche consecutivamente).
Space space (possono essere presenti su piu' righe, anche consecutivamente).
12 47
12 47
12 47
12 47
12 47
Space space (possono essere presenti su piu' righe, anche consecutivamente).
Space space (possono essere presenti su piu' righe, anche consecutivamente).
23 58
23 58
23 58
23 58
23 58
Space space (possono essere presenti su piu' righe, anche consecutivamente).
Space space (possono essere presenti su piu' righe, anche consecutivamente).
Etc... etc...
Il risultato che vorrei :
Colonna :
"M" "N"
1 36
12 47
23 58
Etc... etc...
I dati che andremo a scrivere nelle colonne "M" "N", devono mantenere inalterata la posizione ed il valore, cosi' come li abbiamo letti : scriveremo cioe' 1 36 e non 36 1.
Devono mantenere cioe' immutati i valori letti, sia in modo verticale, che in modo orizzontale.
Grazie a chi mi aiutera'.
Nelson