Eliminare celle vuote e doppioni, contemporaneamente.

[nelson1331]

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

[Flash30005]

Prova questa macro

Codice: Seleziona tutto

Sub Riporta()
UR = Worksheets("Foglio1").Range("E" & Rows.Count).End(xlUp).Row
ValM = 0
ValN = 0
For RR = 1 To UR
Val1 = Cells(RR, 5).Value
Val2 = Cells(RR, 6).Value
If Val1 = "" Or (Val1 = ValM And Val2 = ValN) Then GoTo salta
    If Range("M1") = "" Then
    Range("M1").Value = Val1
    Range("N1").Value = Val2
    Else
    Cells(Rows.Count, 13).End(xlUp).Offset(1, 0).Value = Val1
    Cells(Rows.Count, 14).End(xlUp).Offset(1, 0).Value = Val2
    End If
    ValM = Val1
    ValN = Val2
salta:
Next RR
End Sub

Ciao

[nelson1331]

Ciao Flash, i valori che mi scrive nelle colonne "M", "N", sono esatti.
Un piccolo problema : se eseguo la macro la 2° volta, mi accoda ancora i risultati.
Penso occorra a monte, la pulizia dei campi che andro' a scrivere.
Me la puoi sistemare ?
Grazie Nelson.

[Flash30005]

Certo che è così
non l'ho inserita questa riga di codice perché ce l'hai già nella macro che hai postato

Columns("m:n").ClearContents

Riga che dovrai mettere all'inizio della macro


ciao

[nelson1331]

Ciao Flash, grazie ancora per il tuo utile suggerimento. E' perfetto.