vba2003:cercare e cancellare tutte le righe con codice=

[scossa]

Ah ah, ho beccato proprio la zona di minore performances della tua macro! (a mia scusante c' e' che avevo sempre fatto le prove in queste condizioni: 5000 linee con circa 2000 valori unici)

-con tantissime o pochissime cancellazioni la tecnica Set Rng/Union vince alla grande; questo e' dovuto al fatto che le aree da unire sono sempre poche.
-con una situazione tipo 50/50 altri approcci possono essere vantaggiosi

Ottima analisi Anthony, infatti, il problema è proprio nel numero di aree discontinue (vedi mio post sopra).

[Anthony47]

La spiegazione tecnica era chiara ora e' chiarissima.
Non si puo' usare sInd = Cells(I, 1).Address / set rng = range(sInd) che e' limitata a 30 intervalli.
Tecnicamente l' uso di CountIf, Collection, Dictionary richiedono un tempo compreso tra 0,5 e 1 secondo per identificare i valori duplicati; l' uso di Set Rng/Union vince per "lavorare" elenchi poco frammentati (quindi o tantissime o pochissime ripetizioni), il tradizionale Sheets("Riepilogo").Cells(I, 1).Resize(1, 6).Delete fa un onesto lavoro in casi di forte frammentazione (1-2 linee da mantenere intercalati da 1-2 linee da rimuovere).
L' unica alternativa ulteriore che mi viene in mente e' quella "full array"; una versione inclusa nel file di test (deldupLC) non e' ottimizzata e da' risultati scadenti.
Se mi avanza tempo faro' ulteriori tentativi, che saro' lieto di condividere con voi.

Karug immagino che sia a posto gia' da un paio di giorni e lo aspettiamo al prossimo quesito.

Ciao a tutti.

[ricky53]

Ciao,
io con l'utilizzo di una "ARRAY" a 5000 righe e 6 colonne, che viene caricata con l'intero intervallo e poi lavorando su di essa producendo un'altra array con i soli dati non duplicati e copiando, dopo aver cancellato i dati preesistenti, la nuova array sull'intervallo del foglio ottengo tempi ( con i dati di Anthony 5000 righe 1965 dati univioci) di 1,4 secondi (sempe sullo stesso PC sul quale ho fatto le prove delle vostre macro) che direi non male ... ho scritto il codice in modo che non mi piace ma l'ho fatto due notti fa velocemente senza più riguardarlo ... se ho tempo lo rimetto in ordine e ve lo invio per migliorarlo.

[karug64]

Salve a tutti.
Rientro nella discussione, non per apportare un contributo alle analisi fatte da voi (perche' non ne sono assolutamente in grado), ma per sottoporre alla vostra attenzione (cosi' come richiesto da Ricky) la base dati su cui lavoro, che come detto non e' continua, bensi intervallata da linee di intestazione.

Ecco:

[code="Anthony47"]https://rapidshare.com/files/2411945328/elencobase.xls.zip[/code]

Tuttavia (karug mi perdonera', spero, per quello che vado a dire) il mio obiettivo era di offrire un punto di partenza, che l' utente fosse quindi in grado di metabolizzare e adattare alle sue esigenze; da questo aspetto l' uso della WorksheetFunction.CountIf penso sia piu' semplice della New collection e del Dictionary.

Perdonatissimo !!!!Figurati che gia' la soluzione proposta da te e' quasi turco , figurati il resto !!!

Interessante discussione

Sono contento di avervi dato un buon spunto di analisi ....

Continuo a seguirvi. Grazie

[ricky53]

Ho inserito due volte lo stesso messaggio.

Questo lo taglio

[ricky53]

Ciao a tutti,
ecco quanto ho fatto in base alla struttura dei dati che Karug64 ha inviato (però lasciami esprimere un mio commento: sono proprio anti-... tutto gli anni così impostati !!!).

Codice: Seleziona tutto

Option Base 1
Option Explicit

Sub Cancella_Dati_Uguali_Partendo_dal_BASSO()
    Dim Ws As Worksheet, UR As Long, I1 As Long, J1 As Long, K1 As Long, Appoggio As String
    Dim Matrice(), Inizio As Double, Filtro As String
   
    Filtro = "ZZZZZZ"
    Set Ws = Sheets("Riepilogo")
    UR = Ws.Range("A" & Rows.Count).End(xlUp).Row
   
    ReDim Matrice(UR - 1, 5), Matrice_New(UR - 1, 5)
    Matrice = Ws.Range("A2:E" & UR)

    Application.ScreenUpdating = False
    Inizio = Timer
    For I1 = UR - 1 To 2 Step -1
        If Matrice(I1, 1) <> "" Then
            Appoggio = Matrice(I1, 1)
            For J1 = I1 - 1 To 1 Step -1
                If Appoggio = Matrice(J1, 1) Then
                    Matrice(J1, 1) = Filtro
                End If
            Next J1
        End If
    Next I1
   
    Ws.Range("A2:E" & UR) = Matrice
   
    Ws.Columns("A:E").AutoFilter Field:=1, Criteria1:="<>"
    Selection.AutoFilter
    Ws.Columns("A:E").AutoFilter Field:=1, Criteria1:=Filtro
    UR = Ws.Range("A" & Ws.Rows.Count).End(xlUp).Row
    Ws.Rows("2:" & UR).Delete Shift:=xlUp
    ActiveSheet.ShowAllData
   
    Application.ScreenUpdating = True
    MsgBox "Tempo impiegato: " & Round((Timer - Inizio), 2) & " secondi"
    Set Ws = Nothing
End Sub

Tempi di elaborazione 1,2 secondi

Karug64: prova e ...

[karug64]

Ciao, Ricky.
Nella mia macchina (su xp virtualizzato), tutto ok e tempo impiegato 1,9 sec. (ci puo' stare, penso ...)

(però lasciami esprimere un mio commento: sono proprio anti-... tutto gli anni così impostati !!!).

Lo so, lo so .... ma chi deve utilizzare questo file xls ha la necessita' di stampare i reporto per anni. Ora la prima idea era stata di creare tanti fogli (rinominandoli col nome degli anni), ma tra tre/quattro anni diventeranno proprio tanti ...
Un'altra idea era quella di inserire in colonna A l'anno di riferimento per poi lavorare con i filtri automatici, che non sarebbe stata malvagia ....

Non avendo altre idee, alla fine e' venuta fuori questa .... che sicuramente non e' la migliore, ma .... va !!

Grazie

[ricky53]

Ciao,
direi che va più che bene visto che è su virtuale.

Era buona la soluzione di aver una colonna per l'anno e poi filtrare o ... magari fare una tabella PIVOT ...

Buon proseguimento e ... alla prossima.