Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Eliminare celle vuote e doppioni, contemporaneamente.

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Eliminare celle vuote e doppioni, contemporaneamente.

Postdi nelson1331 » 06/10/11 16:27

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
nelson1331
Utente Junior
 
Post: 39
Iscritto il: 18/02/08 08:58

Sponsor
 

Re: Eliminare celle vuote e doppioni, contemporaneamente.

Postdi Flash30005 » 06/10/11 17:06

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Eliminare celle vuote e doppioni, contemporaneamente.

Postdi nelson1331 » 06/10/11 18:29

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.
nelson1331
Utente Junior
 
Post: 39
Iscritto il: 18/02/08 08:58

Re: Eliminare celle vuote e doppioni, contemporaneamente.

Postdi Flash30005 » 06/10/11 19:00

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Eliminare celle vuote e doppioni, contemporaneamente.

Postdi nelson1331 » 07/10/11 08:34

Ciao Flash, grazie ancora per il tuo utile suggerimento. E' perfetto.
nelson1331
Utente Junior
 
Post: 39
Iscritto il: 18/02/08 08:58


Torna a Applicazioni Office Windows


Topic correlati a "Eliminare celle vuote e doppioni, contemporaneamente.":


Chi c’è in linea

Visitano il forum: Nessuno e 12 ospiti