Risultati da 1 a 13 di 13

Discussione: ricerca valori doppi e calcolo distanza



  1. #1
    L'avatar di gagost
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Veneto
    Messaggi
    5
    Versione Office
    Office 2013
    Likes ricevuti
    0
    Likes dati
    0

    ricerca valori doppi e calcolo distanza

    Premetto che per quanto riguarda excel sono abbastanza inesperto.

    Chiedo come si potrebbe, data una colonna (A) contenente migliaia di numeri (1-100), ricercare ed

    evidenziare (colore) i numeri che si ripetono ma solo quando questi siano adiacenti. Inoltre che venga

    indicata nella colonna B la distanza tra ogni gruppo di numeri evidenziati.

    Esempio:

    Col. A_____________Col.B

    22
    9
    2
    36
    52_(evid)
    52_(evid)
    4
    69
    89
    0
    13
    14_(evid)____________6 (distanza dall'ultima ripetizone)
    14_(evid)
    7
    20
    5_(evid)_____________3 (distanza dall'ultima ripetizone)
    5
    24
    95
    .....
    .....


    Grazie e cordiali saluti.

    Giuseppe

  2. #2
    L'avatar di ninai
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Barcellona P.G.
    Età
    55
    Messaggi
    1652
    Versione Office
    2010 PC
    Likes ricevuti
    889
    Likes dati
    183
    ciao
    esempio:
    se i numeri in A2:A2000
    in formattazione condizionale
    selezioni A2:A2000
    e metti la formula :
    =O(A2=A3;A2=A1)

    in B3:
    =SE(A3=A4;SE.ERRORE(RIF.RIGA()-CERCA(2;1/($A$2:A2=$A$1:A1);RIF.RIGA($A$2:A2));"");"")
    e trascini in basso


    allego file (che in effetti, avresti dovuto fornire tu)


    NB
    capisco che potresti essere nuovo dei forum ma attento al crossposting
    http://freeforumzone.leonardo.it/d/1...?#idm131846225
    "So che spiegare il proprio problema, in modo comprensibile, richiede un certo impegno ed è un lavoro "palloso", ma qualcuno lo deve pur fare ....., indovina chi?" (Cit. "Scossa")

  3. I seguenti 3 utenti hanno dato un "Like" a ninai per questo post:


  4. #3
    L'avatar di gagost
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Veneto
    Messaggi
    5
    Versione Office
    Office 2013
    Likes ricevuti
    0
    Likes dati
    0
    Grazie per la sollecita risposta e del file che hai allegato. Non sono riuscito ad aumentare il numero delle righe da 2000 (A2:A2000) a 1 000 000 (il limite di excel 2013 dovrebbe essere di 1.048.576).

    Grazie e cordiali saluti.

    Giuseppe

  5. #4
    L'avatar di ninai
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Barcellona P.G.
    Età
    55
    Messaggi
    1652
    Versione Office
    2010 PC
    Likes ricevuti
    889
    Likes dati
    183
    Citazione Originariamente Scritto da gagost Visualizza Messaggio
    Non sono riuscito ad aumentare il numero delle righe da 2000 (A2:A2000) a 1 000 000 (il limite di excel 2013 dovrebbe essere di 1.048.576).
    cosa intendi per "non sono riuscito"
    potrebbe essere un problema di elaborazione e/o formattazione su tante righe, con rallentamento del ricalcolo.
    quando si lavora con moltissime celle, bisogna intervenire con VBA.
    "So che spiegare il proprio problema, in modo comprensibile, richiede un certo impegno ed è un lavoro "palloso", ma qualcuno lo deve pur fare ....., indovina chi?" (Cit. "Scossa")

  6. #5
    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
    Citazione Originariamente Scritto da gagost Visualizza Messaggio

    Giuseppe
    Ciao Giuseppe
    Hai violato la regola nr. 9 di questo forum (leggi sotto) e hai anche ignorato l'osservazione che ti ha fatto Ninai, a volte basta un pò di educazione dichiarando che hai fatto questa domanda su altri forum, e chiedendo scusa quando ti fanno notare l'errore, ma oggi faccio finta che non lo sapevi ma la prossima volta mi raccomando, altrimenti finisci nella black list.

    Regola nr.9 "Crossposting"
    Non è consentito postare lo stesso messaggio o parti di esso in più aree del forum o su altri forum di excel, salvo casi di particolare interesse che dovranno comunque essere autorizzati da un Admin
    Messaggi crossposting verranno chiusi e quando possibile riuniti.
    Se ripetuti potranno portare all'allontanamento dell'utente.

  7. #6
    L'avatar di gagost
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Veneto
    Messaggi
    5
    Versione Office
    Office 2013
    Likes ricevuti
    0
    Likes dati
    0
    Anche se in ritardo chiedo scusa.

    Cordiali saluti.

    Giuseppe

  8. #7
    L'avatar di gagost
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Veneto
    Messaggi
    5
    Versione Office
    Office 2013
    Likes ricevuti
    0
    Likes dati
    0
    Citazione Originariamente Scritto da ninai Visualizza Messaggio
    cosa intendi per "non sono riuscito"
    potrebbe essere un problema di elaborazione e/o formattazione su tante righe, con rallentamento del ricalcolo.
    quando si lavora con moltissime celle, bisogna intervenire con VBA.

    Ho cercato di seguire le tue istruzioni ma non ci sono riuscito, allora ho incollato la mia sequenza di numeri (65000) nel foglio che hai allegato, naturalmente fino alla riga 2000 ha cercato ed evidenziato i numeri doppi adiacenti poi non più. Sarei interessato ad un foglio in grado di verificare 1 milione di righe.

    Grazie e cordiali saluti.

    Giuseppe

  9. #8
    L'avatar di ninai
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Barcellona P.G.
    Età
    55
    Messaggi
    1652
    Versione Office
    2010 PC
    Likes ricevuti
    889
    Likes dati
    183
    con 1 milione di righe devi usare qualche codice VBA (in questo non ti posso aiutare), per quantità molto meno ingenti, basta estendere sia la formattazione condizionale di A che la formula in B fino alla riga desiderata.
    Non ti consiglio di andare oltre una manciata di migliaia che ti blocca tutto, con 800000 io ho dovuto riavviare il pc, non si sbloccava neanche con lo "svitol" :190:
    "So che spiegare il proprio problema, in modo comprensibile, richiede un certo impegno ed è un lavoro "palloso", ma qualcuno lo deve pur fare ....., indovina chi?" (Cit. "Scossa")

  10. #9
    L'avatar di gagost
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Veneto
    Messaggi
    5
    Versione Office
    Office 2013
    Likes ricevuti
    0
    Likes dati
    0
    Ti ringrazio.

    Cordiali saluti.

    Giuseppe

  11. #10

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7108
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2059
    Likes dati
    1296
    Col vba sono arrivato a far colorare le celle adiacenti (soluzione peraltro facile) ma non riesco a far fare la differenza di righe tra le celle con valore uguale.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  12. #11
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cordenons
    Messaggi
    809
    Versione Office
    2016 64bit
    Likes ricevuti
    142
    Likes dati
    52
    Buonasera a tutti.
    Se vuoi usare qualcosa di "macchinoso" puoi modificare la macro di ges così:
    Codice: 
    Option Explicit
    
    Sub evidenzia()
    
        Dim wks As Worksheet
        Dim uld As Long
        Dim y As Long
        Dim dst1 As Long
        Dim dst2 As Long
            
        Set wks = Worksheets("Foglio1")
        With wks
            uld = .Cells(Rows.Count, 1).End(xlUp).Row
            For y = 1 To uld
                If .Range("A" & y) = .Range("A" & y + 1) Then
                    .Range("A" & y).Interior.ColorIndex = 6
                    .Range("A" & y + 1).Interior.ColorIndex = 6
                    If Not dst2 Then
                        dst2 = .Range("A" & y).Row
                        .Range("B" & y).Value = dst2 - dst1
                        dst1 = dst2
                        dst2 = 0
                    End If
                End If
            Next
        End With
        
    End Sub

  13. I seguenti utenti hanno dato un "Like"

    ges

  14. #12

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7108
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2059
    Likes dati
    1296
    Perfetto Rollis :255:
    ho solo modificato la riga:
    Codice: 
    .Range("B" & y).Value = dst2 - dst1
    aggiungendo un -1 perché mi pare di capire che la conta tra le celle uguali parta dall'ultima.

    Quindi il tuo codice diventa così:

    Codice: 
    Option Explicit
    Sub evidenzia()
    Dim wks As Worksheet
    Dim uld As Long
    Dim y As Long
    Dim dst1 As Long
    Dim dst2 As Long
    Set wks = Worksheets("Foglio1")
    With wks
    uld = .Cells(Rows.Count, 1).End(xlUp).Row
    For y = 1 To uld
    If .Range("A" & y) = .Range("A" & y + 1) Then
    .Range("A" & y).Interior.ColorIndex = 6
    .Range("A" & y + 1).Interior.ColorIndex = 6
    If Not dst2 Then
    dst2 = .Range("A" & y).Row
    .Range("B" & y).Value = dst2 - dst1 - 1
    dst1 = dst2
    dst2 = 0
    End If
    End If
    Next
    End With
    End Sub
    Adesso aspettiamo Giuseppe per dirci se va bene.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  15. #13
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cordenons
    Messaggi
    809
    Versione Office
    2016 64bit
    Likes ricevuti
    142
    Likes dati
    52
    In effetti, nel post#1 l'esempio è proprio come hai rettificato tu :98:

Discussioni Simili

  1. [Risolto] Calcolo totale - Sommare valori positivi o sottrarre valori negativi
    Di kasar nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 16/11/17, 10:11
  2. [Risolto] Exel 2013 Trovare Valori doppi solo in successione in ordine di data
    Di ginofamilio nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 15/11/16, 00:56
  3. calcolo distanza in km
    Di dottoraxly nel forum Domande su Excel in generale
    Risposte: 19
    Ultimo Messaggio: 09/09/16, 15:19
  4. Confronto tra colonne: estrazione valori non doppi.
    Di GioPL nel forum Domande su Excel VBA e MACRO
    Risposte: 32
    Ultimo Messaggio: 15/07/16, 15:02
  5. Evidenziare i valori doppi
    Di moisess nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 10/07/16, 17:53

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
  •