Risultati da 1 a 13 di 13

Discussione: Rimuovere intere righe duplicate



  1. #1
    L'avatar di Ste911
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    Torino
    EtÓ
    26
    Messaggi
    18
    Versione Office
    Office 12
    Likes ricevuti
    0
    Likes dati
    14

    Rimuovere intere righe duplicate

    Salve a tutti,

    sono a richiedere una cosa "semplice". Avrei bisogno di trovare le righe interamente uguali in un file con migliaia di valori.

    Grazie a tutti in anticipo per l'aiuto!:)

    Stefano

  2. #2

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Sardegna
    EtÓ
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923

    Re: Rimuovere intere righe duplicate

    Citazione Originariamente Scritto da Ste911 Visualizza Messaggio
    Salve a tutti,

    sono a richiedere una cosa "semplice". Avrei bisogno di trovare le righe interamente uguali in un file con migliaia di valori.

    Grazie a tutti in anticipo per l'aiuto!:)

    Stefano
    Ciao,
    definire "semplice" la cosa Ŕ un p˛ avventato.... allega un file d'esempio in modo da capire che dati considerare.

    [EDIT]
    pi¨ dettagliata sarÓ la tua spiegazione, meno ci dovremo ammattire per capire quello che vuoi ottenere

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno pu˛ immaginare."

  3. I seguenti utenti hanno dato un "Like"


  4. #3
    L'avatar di Ste911
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    Torino
    EtÓ
    26
    Messaggi
    18
    Versione Office
    Office 12
    Likes ricevuti
    0
    Likes dati
    14

    Re: Rimuovere intere righe duplicate

    Si era sarcastico:)...non riesco a venirne a capo. Allego un file di prova. In pratica si tratta di ritracciare e poi rimuovere le righe completamente uguali.

    Grazie ancora

    Stefano

    ----------Post unito in automatico----------

    Citazione Originariamente Scritto da cromagno Visualizza Messaggio
    Ciao,
    definire "semplice" la cosa Ŕ un p˛ avventato.... allega un file d'esempio in modo da capire che dati considerare.

    [EDIT]
    pi¨ dettagliata sarÓ la tua spiegazione, meno ci dovremo ammattire per capire quello che vuoi ottenere

    Si era sarcastico:)...non riesco a venirne a capo. Allego un file di prova. In pratica si tratta di ritracciare e poi rimuovere le righe completamente uguali.

    Grazie ancora

    Stefano
    File Allegati File Allegati

  5. #4
    L'avatar di Gerardo ZuccalÓ
    Clicca e Apri
    Data Registrazione
    May 2015
    LocalitÓ
    Milano, Italy
    EtÓ
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125

    Re: Rimuovere intere righe duplicate

    Ciao Ste911
    Ho visto che hai scritto la domanda nella sezione VBA, se vuoi con le formule si puoi fare lo stesso

    Io ho creato una colonna aggiuntiva ( che se ti da fastidio la puoi nascondere)
    e quindi nella cella F2 questa formula da trascinare in basso :
    =CONCATENA(A2;B2;C2;D2;E2)

    poi nella cella G2 questa formula da copiare in basso

    =SE(CONTA.SE($F$2:F2;F2)>1;"Doppio";"")


    A
    B
    C
    D
    E
    F
    G
    1
    NOME COGNOME DATA DI NASCITA COMUNE DI NASCITA NUMERO DI CELLULARE
    2
    Mario Rossi
    12/02/1960
    milano
    123456789
    Mario Rossi21958milano123456789
    3
    Mario Rossi
    12/02/1960
    milano
    123456789
    Mario Rossi21958milano123456789 Doppio
    4
    luigi tassoni
    15/09/1990
    torino
    456644444
    luigi tassoni33131torino456644444
    5
    giovanni dimarco
    13/03/1955
    roma
    856844555
    giovannidimarco20161roma856844555

  6. I seguenti utenti hanno dato un "Like"


  7. #5
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    LocalitÓ
    Livorno
    EtÓ
    72
    Messaggi
    1100
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1

    Re: Rimuovere intere righe duplicate

    si pu˛ fare da Dati, Rimuovi duplicati

  8. #6
    L'avatar di cinziorecoaro
    Clicca e Apri
    Data Registrazione
    Apr 2016
    LocalitÓ
    Recoaro Terme (VI)
    EtÓ
    37
    Messaggi
    34
    Versione Office
    2003+2010+2016
    Likes ricevuti
    3
    Likes dati
    4

    Re: Rimuovere intere righe duplicate

    Se nello stesso foglio prova cosý:
    Codice: 
    Sub eliminarighedoppie()
    Dim rigaA, rigaB, colonna, fine As Integer
    Dim uguale As Boolean
    
    
    'stabilisci righe iniziale e finale in questo caso metto 1 ed ultima
    rigaA = 1
    fine = ActiveSheet.UsedRange.Rows.Count
    Do While rigaA < fine
        rigaB = rigaA + 1
        Do While rigaB <= fine
            If Cells(rigaB, 1) = Cells(rigaA, 1) Then
                uguale = True
                For colonna = 2 To ActiveSheet.UsedRange.Columns.Count
                    If Cells(rigaB, colonna) <> Cells(rigaA, colonna) Then
                        uguale = False
                        Exit For
                    End If
                Next
                If uguale = True Then
                    Rows(rigaB).Delete
                    rigaB = rigaB - 1
                    fine = fine - 1
                End If
            End If
            rigaB = rigaB + 1
        Loop
        rigaA = rigaA + 1
    Loop
    End Sub

  9. I seguenti utenti hanno dato un "Like"


  10. #7
    L'avatar di Gerardo ZuccalÓ
    Clicca e Apri
    Data Registrazione
    May 2015
    LocalitÓ
    Milano, Italy
    EtÓ
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125

    Re: Rimuovere intere righe duplicate

    Ciao Ste
    Rileggendo la tua domanda penso che sia sufficiente la risposta di Patel (un saluto) al post#5


  11. #8
    L'avatar di Ste911
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    Torino
    EtÓ
    26
    Messaggi
    18
    Versione Office
    Office 12
    Likes ricevuti
    0
    Likes dati
    14

    Re: Rimuovere intere righe duplicate

    Citazione Originariamente Scritto da Gerardo ZuccalÓ Visualizza Messaggio
    Ciao Ste911
    Ho visto che hai scritto la domanda nella sezione VBA, se vuoi con le formule si puoi fare lo stesso

    Io ho creato una colonna aggiuntiva ( che se ti da fastidio la puoi nascondere)
    e quindi nella cella F2 questa formula da trascinare in basso :
    =CONCATENA(A2;B2;C2;D2;E2)

    poi nella cella G2 questa formula da copiare in basso

    =SE(CONTA.SE($F$2:F2;F2)>1;"Doppio";"")


    A
    B
    C
    D
    E
    F
    G
    1
    NOME COGNOME DATA DI NASCITA COMUNE DI NASCITA NUMERO DI CELLULARE
    2
    Mario Rossi
    12/02/1960
    milano
    123456789
    Mario Rossi21958milano123456789
    3
    Mario Rossi
    12/02/1960
    milano
    123456789
    Mario Rossi21958milano123456789 Doppio
    4
    luigi tassoni
    15/09/1990
    torino
    456644444
    luigi tassoni33131torino456644444
    5
    giovanni dimarco
    13/03/1955
    roma
    856844555
    giovannidimarco20161roma856844555

    Grazie mille! La prossima volta poster˛ nella sezione giusta:)

    Ps: @Patel la funzione Dati/rimuovi duplicati non mi funziona per intere righe ma per singole celle.

    Stefano

  12. #9
    L'avatar di Gerardo ZuccalÓ
    Clicca e Apri
    Data Registrazione
    May 2015
    LocalitÓ
    Milano, Italy
    EtÓ
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125

    Re: Rimuovere intere righe duplicate

    Citazione Originariamente Scritto da Ste911 Visualizza Messaggio
    Grazie mille! La prossima volta poster˛ nella sezione giusta:)

    Ps: @Patel la funzione Dati/rimuovi duplicati non mi funziona per intere righe ma per singole celle.

    Stefano
    Ste911 non ho capito, hai risolto?

    PS lo strumento rimuovi duplicati forse l'hai usato male, normalmente Ŕ comodissimo per rimuovere tutti i records doppi

    ----------Post unito in automatico----------


  13. #10
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    309
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    17

    Re: Rimuovere intere righe duplicate

    Visto che mi trovavo ho messo anche io gi¨ due righe...
    In questo caso ho utilizzato le Dictionary... ma ovviamente i modi per farlo sono tantissimi... Il vantaggio Ŕ che qualora fossero molte le righe da testare questo codice dovrebbe essere abbastanza spedito..
    Codice: 
    Option Explicit
    Sub Righe_Uguali_Cucu()
    'By Cuc¨
    Dim dict As Object
    Dim Ir As Long, Ic As Long, I As Long, J As Long
    Dim MyString As Variant, ICont As Long
    
    Set dict = CreateObject("Scripting.Dictionary")
    Ir = ActiveSheet.UsedRange.Rows.Count
    Ic = ActiveSheet.UsedRange.Columns.Count
    ICont = 0
    Range(Cells(1, 1), Cells(Ir, Ic)).Interior.ColorIndex = xlNone
    
    For I = 1 To Ir
    MyString = ""
        For J = 1 To Ic
            If Not Cells(I, J).Value = "" Then
                MyString = MyString & Cells(I, J)
            Else
                MyString = MyString & " "
            End If
        Next J
            If dict.Exists(MyString) Then
                Range(Cells(I, 1), Cells(I, Ic)).Interior.ColorIndex = 7
                ICont = ICont + 1
            Else
                dict.Add MyString, (I)
            End If
    Next I
    
    MsgBox "Lavoro Terminato, individuate " & ICont & " righe duplicate!"
    
    End Sub
    Bye Cuc¨

  14. I seguenti 2 utenti hanno dato un "Like" a Cuc¨^_^ per questo post:


  15. #11
    L'avatar di Ste911
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    Torino
    EtÓ
    26
    Messaggi
    18
    Versione Office
    Office 12
    Likes ricevuti
    0
    Likes dati
    14

    Re: Rimuovere intere righe duplicate

    Citazione Originariamente Scritto da Gerardo ZuccalÓ Visualizza Messaggio
    Ste911 non ho capito, hai risolto?

    PS lo strumento rimuovi duplicati forse l'hai usato male, normalmente Ŕ comodissimo per rimuovere tutti i records doppi

    ----------Post unito in automatico----------

    Si si ho risolto!:)

    Stavo rispondendo agli altri utenti che mi consigliavano "rimuovi dublicati". E' comodo ma appunto prima dovevo fare un concatena, perchŔ il "rimuovi duplicati" non analizza le intere righe ma cella per cella

    Stefano

    ----------Post unito in automatico----------

    Citazione Originariamente Scritto da Cuc¨^_^ Visualizza Messaggio
    Visto che mi trovavo ho messo anche io gi¨ due righe...
    In questo caso ho utilizzato le Dictionary... ma ovviamente i modi per farlo sono tantissimi... Il vantaggio Ŕ che qualora fossero molte le righe da testare questo codice dovrebbe essere abbastanza spedito..
    Codice: 
    Option Explicit
    Sub Righe_Uguali_Cucu()
    'By Cuc¨
    Dim dict As Object
    Dim Ir As Long, Ic As Long, I As Long, J As Long
    Dim MyString As Variant, ICont As Long
    
    Set dict = CreateObject("Scripting.Dictionary")
    Ir = ActiveSheet.UsedRange.Rows.Count
    Ic = ActiveSheet.UsedRange.Columns.Count
    ICont = 0
    Range(Cells(1, 1), Cells(Ir, Ic)).Interior.ColorIndex = xlNone
    
    For I = 1 To Ir
    MyString = ""
        For J = 1 To Ic
            If Not Cells(I, J).Value = "" Then
                MyString = MyString & Cells(I, J)
            Else
                MyString = MyString & " "
            End If
        Next J
            If dict.Exists(MyString) Then
                Range(Cells(I, 1), Cells(I, Ic)).Interior.ColorIndex = 7
                ICont = ICont + 1
            Else
                dict.Add MyString, (I)
            End If
    Next I
    
    MsgBox "Lavoro Terminato, individuate " & ICont & " righe duplicate!"
    
    End Sub
    Bye Cuc¨
    Anche questa Ŕ perfetta! grazie!!:)

  16. #12
    L'avatar di Gerardo ZuccalÓ
    Clicca e Apri
    Data Registrazione
    May 2015
    LocalitÓ
    Milano, Italy
    EtÓ
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125

    Re: Rimuovere intere righe duplicate

    Citazione Originariamente Scritto da Ste911 Visualizza Messaggio
    Si si ho risolto!:)

    Stavo rispondendo agli altri utenti che mi consigliavano "rimuovi dublicati". E' comodo ma appunto prima dovevo fare un concatena, perchŔ il "rimuovi duplicati" non analizza le intere righe ma cella per cella

    Stefano
    No non'Ŕ cosi se vedi l'immagine del post #9 al punto 4 devi spuntare tutte le checkbox semplicissimo

  17. #13
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    309
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    17

    Re: Rimuovere intere righe duplicate

    Citazione Originariamente Scritto da Ste911 Visualizza Messaggio
    Si si ho risolto!:)

    Stavo rispondendo agli altri utenti che mi consigliavano "rimuovi dublicati". E' comodo ma appunto prima dovevo fare un concatena, perchŔ il "rimuovi duplicati" non analizza le intere righe ma cella per cella

    Stefano

    ----------Post unito in automatico----------



    Anche questa Ŕ perfetta! grazie!!:)
    Prego!

Discussioni Simili

  1. Ricerca righe duplicate
    Di Chiarpato nel forum Domande su Excel in generale
    Risposte: 36
    Ultimo Messaggio: 30/10/16, 21:41
  2. Rimuovere unitÓ di misura
    Di Computer40000 nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 08/06/16, 05:51
  3. Contare parole intere incluse in una frase
    Di ProgrammD69 nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 16/05/16, 19:41
  4. Eliminare righe duplicate
    Di lala10 nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 29/04/16, 14:52
  5. prova per rimuovere tag dalla firma
    Di Baloon_50 nel forum Test dei vostri post
    Risposte: 3
    Ultimo Messaggio: 15/09/15, 01:04

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •