Excel Forum Per condividere esperienze su Microsoft Excel

Trovare testi doppi

  • Messaggi
  • OFFLINE
    Matti70
    Post: 13
    Registrato il: 16/03/2023
    Età: 53
    Utente Junior
    2019
    00 13/04/2023 17:48
    Salve a tutti, sto impazzendo perchè sono alle prese con un grande problema. Nel file allegato devo trovare i testi doppi nella colonna "A" qui ci sono solo poche righe ma in realtà l'elenco da verificare se ci sono doppioni è composto da 3000 righe. Ho provato tutte le procedure sia su questo forum che su youtube ma nessuna si è rilevata adatta per il mio problema. Vi ringrazio in anticipo.
    [Modificato da Matti70 13/04/2023 17:51]
  • ONLINE
    L2018
    Post: 537
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Senior
    EXCEL 2016 - SPREAD32
    00 13/04/2023 20:26
    ciao
    le 8 righe del tuo esempio non hanno doppioni, cioè non sono uguali a coppie, forse per questo motivo le tue prove non hanno esito

    Leo

    se ci fossero veramente doppioni, per eliminarli basterebbe l'opzione "Rimuovi duplicati"
    [Modificato da L2018 13/04/2023 20:30]

    LEO
    https://t.me/LordBrum
  • OFFLINE
    Matti70
    Post: 13
    Registrato il: 16/03/2023
    Età: 53
    Utente Junior
    2019
    00 13/04/2023 20:42
    Ciao @Leo, come mai ci sono 4 coppie uguali? Lungo l'elenco che ho sul pc ho trovate altre 20 coppie
  • ONLINE
    L2018
    Post: 538
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Senior
    EXCEL 2016 - SPREAD32
    00 13/04/2023 20:44
    ho semplicemente scaricato il tuo esempio, non so altro

    prova a copiare la prima sulla seconda, la terza sulla quarta, la quinta sulla sesta e la settima sull'ottava
    a quel punto usi Rimuovi duplicati e verranno rimossi, a dimostrazione di ciò che ho detto

    il tuo file è "sporco", infatti pare avere dei colori, e le altre righe che tu dichiari non compaiono
    Leo
    [Modificato da L2018 13/04/2023 21:02]

    LEO
    https://t.me/LordBrum
  • OFFLINE
    Matti70
    Post: 14
    Registrato il: 16/03/2023
    Età: 53
    Utente Junior
    2019
    00 13/04/2023 21:40
    Nel file che ho allegato non ci sono le altre righe stanno sul mio PC. IL problema me lo pongo perché aggiungendo altre righe non vorrei che ci fossero dei doppioni. In realtà non vorrei che alla fine mi costa esaminare uno a uno i testi che man mano vengono aggiunti nella colonna "A".Grazie
    [Modificato da Matti70 13/04/2023 21:44]
  • ONLINE
    L2018
    Post: 539
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Senior
    EXCEL 2016 - SPREAD32
    00 13/04/2023 22:05
    sinceramente ho capito molto poco quello che hai scritto
    (punteggiatura......questa sconosciuta)

    e non ho capito se i doppioni li vuoi o no
    se non li vuoi li elimini, ma puoi eliminarli solo se le righe sono realmente identiche, e non sporche di colori, caratteri nascosti,formattazione ridondante, ecc.

    A parte l'uguaglianza del testo tutto il resto di una riga deve essere uguale all'altra, perchè 2 righe siano considerate doppioni.
    se non pulisci il file ti tieni le righe apparentemente doppie, ma per essere serio la pulizia devi farla
    Almeno, questo è quello che ho capito del tuo problema e dal tuo esempio.

    Le macro per pulire/eliminare doppioni si sprecano, ma se non funzionano è perchè non trovano doppioni

    Leo
    eccone una qualsiasi

    VB
    Public Sub eliminarighedoppie()
    Dim nr As Long
    Dim lng As Long
    Worksheets("Foglio1").Select
    nr = Range("A" & Rows.Count).End(xlUp).Row
    For lng = nr To 1 Step -1
    If Application.WorksheetFunction.CountIf(Range("A1:A" & lng), Cells(lng, 1).Value) > 1 Then
    Rows(lng).Delete
    End If
    Next
    End Sub
    
    [Modificato da L2018 13/04/2023 22:09]

    LEO
    https://t.me/LordBrum
  • OFFLINE
    Matti70
    Post: 15
    Registrato il: 16/03/2023
    Età: 53
    Utente Junior
    2019
    00 13/04/2023 22:14
    I testi che scrivo nella colonna "A" vengono copiati tal quali da un sito. In realtà quanto li copio dal sito vengono inseriti sul pc come collegamento ipertestuale (cliccandoci sopra si apre il link). Quindi @Leo come mi stai dicendo la vedo dura anche usando qualche macro perché non so come intervenire per una pulizia totale. Grazie
  • OFFLINE
    Matti70
    Post: 16
    Registrato il: 16/03/2023
    Età: 53
    Utente Junior
    2019
    00 13/04/2023 22:15
    I testi che scrivo nella colonna "A" vengono copiati tal quali da un sito. In realtà quanto li copio dal sito vengono inseriti sul pc come collegamento ipertestuale (cliccandoci sopra si apre il link). Quindi @Leo come mi stai dicendo la vedo dura anche usando qualche macro perché non so come intervenire per una pulizia totale. Grazie
  • ONLINE
    L2018
    Post: 540
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Senior
    EXCEL 2016 - SPREAD32
    00 13/04/2023 22:22
    mah, non so che altro dirti
    magari arriverà un formulista con qualcosa del tipo "Annulla spazi", o un VBAista con una macrona che prima pulisce e poi sdoppia.
    Io, invece mi copierei i testi su Block Notes, e DOPO li copincollerei in EXCEL, così sarei certo che i testi che vedo sono quelli da sdoppiare o meno, eventualmente, almeno sarebbero puliti da artefatti di altro genere.
    Un po' di fantasia non guasta

    Leo

    LEO
    https://t.me/LordBrum
  • OFFLINE
    by sal
    Post: 7.196
    Registrato il: 14/11/2004
    Utente Master
    Office 2019
    00 14/04/2023 10:11
    Ciao ecco il motivo che non vengono considerati doppioni



    come vedi dividendo la frase alcune parti, principalmente alla fine non viene considerato uno spazio, il perche quel cararrere di spazio è Ascii(160) invece di Ascii(032) vero spazio

    quindi per rendere le cose uguali e vedere i doppi devi prima convertire tale spazio con questa macro

    Sub controlla()
    Dim d, x, y, d1, k
    
    For x = 1 To Cells(Rows.Count, 1).End(xlUp).Row
      d = Cells(x, 1)
      d = Replace(d, Chr(160), " ")
    Next x
    End Sub


    però non funziona e non riesco a capire perche, se lo faccio manualmente a togliere lo spazio 160 e mettere uno spazio normale funziona, ma certo non puoi farlo manualmente, come vedi



    vedo se riesco a trovare qualcosa.

    Ciao By Sal (8-D

    se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
  • OFFLINE
    federico460
    Post: 2.929
    Registrato il: 10/10/2013
    Città: VICENZA
    Età: 69
    Utente Veteran
    365
    00 14/04/2023 10:11
    ciao
    onestamente ci vorrebbe un file come l'originale
    poi si vede con la formattazione condizionale
    se si riescono a intercettare i doppioni

    certo è che quando si copia incolla
    tra spazi in più e caratteri strani non sempre è una passeggiata

    comunque basiamoci sul tuo file
    in formattazione condizionale
    =MATR.SOMMA.PRODOTTO(--(SOSTITUISCI(SOSTITUISCI($A1:$A1000;" ";"@");CODICE.CARATT(160);"@")=SOSTITUISCI(SOSTITUISCI($A1;" ";"@");CODICE.CARATT(160);"@")))>1

    [Modificato da federico460 14/04/2023 10:23]
  • OFFLINE
    by sal
    Post: 7.197
    Registrato il: 14/11/2004
    Utente Master
    Office 2019
    00 14/04/2023 10:20
    Ciao risolto, con la macro,non facevo un passaggio, ecco la macro funzionante

    Sub controlla()
    Dim d, x, y, d1, k
    
    For x = 1 To Cells(Rows.Count, 1).End(xlUp).Row
      d = Cells(x, 1)
      d = Replace(d, Chr(160), " ")
      Cells(x, 1) = d
    Next x
    End Sub


    dopo la conversione non scrivevo la conversione fatta sul foglio,

    copia la macro in un modulo e la lanci basta 1 sola volta che ti aggiusta tutto, logico che se inserisci altri dati dovrai rilanciarla.

    Ciao By Sal (8-D
    se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
  • ONLINE
    L2018
    Post: 541
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Senior
    EXCEL 2016 - SPREAD32
    00 14/04/2023 10:24
    ciao Federico, potresti scrivere al volo una formula che prima elimina gli spazi e poi li rimetta ?

    ho notato che così le frasi tornano uguali

    Leo

    scusate, avete già provveduto in 2

    leo
    [Modificato da L2018 14/04/2023 10:28]

    LEO
    https://t.me/LordBrum
  • OFFLINE
    by sal
    Post: 7.198
    Registrato il: 14/11/2004
    Utente Master
    Office 2019
    00 14/04/2023 10:29
    Ciao Leo, sembra facile togliere tutti gli spazi, ed è facile con annulla.Spazi(), ma poi dove li rimetti?

    Ciao By Sal (8-D
    se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
  • OFFLINE
    federico460
    Post: 2.930
    Registrato il: 10/10/2013
    Città: VICENZA
    Età: 69
    Utente Veteran
    365
    00 14/04/2023 10:44
    ciao
    eccola
    =ANNULLA.SPAZI(SOSTITUISCI(SOSTITUISCI(SOSTITUISCI($A1;" ";"@");CODICE.CARATT(160);"@");"@";" "))

    con questa si sistema il problema del codice 160

    ma basterebbe
    =ANNULLA.SPAZI(SOSTITUISCI(A1;CODICE.CARATT(160);" "))
    [Modificato da federico460 14/04/2023 10:45]
  • ONLINE
    L2018
    Post: 542
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Senior
    EXCEL 2016 - SPREAD32
    00 14/04/2023 10:58
    ottima stringata formula, eterna battaglia tra formule e VBA, io preferisco le formule fino dove possibile, peccato non avere LAMBDA, causa versione vecchia

    Leo

    LEO
    https://t.me/LordBrum
  • OFFLINE
    Matti70
    Post: 17
    Registrato il: 16/03/2023
    Età: 53
    Utente Junior
    2019
    00 14/04/2023 11:11
    Trovare testi doppi
    Ciao @federico460, con la tua formula finalmente ho risolto. Però adesso c'è un'altro problema che quando applico la tua formula non mi linka il testo di conseguenza non posso aprirlo per visionarlo su internet. Come devo fare? Inoltre, se possibile una volta che trova i doppioni vengono eliminati automaticamente. Grazie mille
    [Modificato da Matti70 14/04/2023 11:14]
  • OFFLINE
    federico460
    Post: 2.931
    Registrato il: 10/10/2013
    Città: VICENZA
    Età: 69
    Utente Veteran
    365
    00 14/04/2023 11:25

    volta che trova i doppioni vengono eliminati automaticamente



    vba
    con le formule calcolano
    non fanno azioni


    Però adesso c'è un'altro problema che quando applico la tua formula non mi linka il testo di conseguenza



    la formula va in formattazione condizionale
    ergo non sfiora neanche lontanamente la stringa originale
    impossibile spariscano i collegamenti ipertestuali

    se la usi in una colonna a parte è assurda visto che per farti capire i passaggi ho usato le chioccioline
    basta la seconda che elimina solo il codice carattere 160

    nb
    se il collegamento ipertestuale è legato alla frase con i vari codici/spazi
    non lo devi toccare se sostituisci anche un solo carattere salta il collegamento
    [Modificato da federico460 14/04/2023 11:31]
  • OFFLINE
    by sal
    Post: 7.199
    Registrato il: 14/11/2004
    Utente Master
    Office 2019
    00 14/04/2023 11:51
    Ciao Prova questa Macro con un solo passaggio

    Sub Eliminadoppioni()
    Dim r, x
    
    r = Cells(Rows.Count, 1).End(xlUp).Row
    For x = r To 1 Step -1
      If Cells(x, 1) Like "*" & Chr(160) & "*" Then
        Cells(x, 1).Delete Shift:=xlUp
      End If
    Next x
    End Sub


    questa ti elimina il doppione cha ha il carattere 160, visto che non ti serve, ma attenzione però che elimina la cella spostando i dati in alto, se deve eliminare tutta la riga allora cambia il codice

    Ciao By Sal (8-D
    se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
  • OFFLINE
    Matti70
    Post: 18
    Registrato il: 16/03/2023
    Età: 53
    Utente Junior
    2019
    00 14/04/2023 12:00
    Trovare testi doppi
    Ho trovato una specie di escamotage. In realtà nella colonna "A" ho i testi linkati mentre nella colonna "B" ho gli stessi testi applicando la tua formula per annullare gli spazi senza essere linkati. A questo punto poichè sono sulla stessa riga per non eliminare, manualmente visto che ne sono oltre 100, tutte le righe colorate dalla formattazione condizionale dovuta ai doppioni come devo fare in automatico a eliminare le righe colorate. Grazie ancora
  • OFFLINE
    by sal
    Post: 7.201
    Registrato il: 14/11/2004
    Utente Master
    Office 2019
    00 15/04/2023 09:29
    Ciao Buongiorno, fai una cosa, penso che ci siano dati sensibili, prima fai una copiadel tuo file, poi lo inserisci, ma cambiando i nomi o dati sensibili ed allega il file, specificando bene cosa vuoi che rimanga, e vediamo cosa si può fare.

    ma hai provato la mia macro?

    Ciao By Sal (8-D
    se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
  • OFFLINE
    Matti70
    Post: 20
    Registrato il: 16/03/2023
    Età: 53
    Utente Junior
    2019
    00 15/04/2023 22:27
    Ciao @bysal, in realtà vorrei copiare dal seguente link "https://medicinaonline.co/category/anatomia-fisiologia-fisiopatologia-semeiotica/" i titoli in grassetto tipo "Cordone ombelicale: cos’è, a che serve, cosa contiene? e così via.Una volta estratti i titoli,devono essere copiati in colonna A. Grazie
    [Modificato da Matti70 16/04/2023 07:47]
  • OFFLINE
    Matti70
    Post: 21
    Registrato il: 16/03/2023
    Età: 53
    Utente Junior
    2019
    00 16/04/2023 11:18
    Trovare testi doppi
    Buona domenica a tutti, ho risolto il problema di estrarre i testi ad uno ad uno. Solo che quando li vado a copiare nella colonna "A" non vengono linkati per poterli aprire su internet. Come posso ovviare? Vi ringrazio anticipatamente
  • ONLINE
    L2018
    Post: 549
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Senior
    EXCEL 2016 - SPREAD32
    00 16/04/2023 11:26
    ciao
    la tua domanda iniziale era molto semplice e riguardava i doppioni
    ora invece, a parte il modificare la domanda ponendola col contagocce, saresti capace di postare almeno una parte del file con qualche link non funzionante e con a fianco il testo esatto linkato che vorresti scritto a mano ?
    non perchè io sappia risolverti il problema, ma piuttosto per farlo capire a chi è in grado di risolverlo

    Leo
    [Modificato da L2018 16/04/2023 11:28]

    LEO
    https://t.me/LordBrum
  • OFFLINE
    Matti70
    Post: 22
    Registrato il: 16/03/2023
    Età: 53
    Utente Junior
    2019
    00 16/04/2023 12:12
    Trovare testi doppi
    Ciao @Leo, hai ragione. Ecco il file. In effetti nella colonna A c'è l'elenco dei link mentre in colonna B c'è l'elenco degli URL. Io voglio che cliccando sul testo in colonna A si apre la pagina internet riferita giustamente a quel collegamento. Grazie
  • ONLINE
    L2018
    Post: 550
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Senior
    EXCEL 2016 - SPREAD32
    00 16/04/2023 12:32
    se devi mettere mano a pochi link c'è una procedura che comincia in "inserisci" - "collegamento ipertestuale" puntando la cella del link vero, anzi no, meglio puntare direttamente sulla colonna A e proseguire qui di seguito
    si apre una finestra di dialogo
    nel rigo in alto (Testo da visualizzare) potresti mettere il titolo della colonna A con copincolla
    non guardare la part centrale della finestra, ma nella riga in basso (Indirizzo) inserisci il vero link
    sembra complicato ma dopo 2 tentativi è facile

    Se invece hai molti link allora è necessaria una macro che io non so costruire, ma ti dò un indirizzo che ti risolverebbe tutto, da leggere attentamente

    https://www.forumexcel.it/forum/threads/come-convertire-stringa-in-collegamento-ipertestuale.15206/#post-125879

    a quell'indirizzo del forum c'è una macro che funziona bene e trasforma il testo di un link, ma cosa succede ?
    la macro trasforma i link in collegamenti ipertestuali ma nei collegamenti lascia visibile lo stesso URL, cioè non ti presenta il nome che tu hai in colonna A.
    Quindi quello che vorresti tu in definitiva sarebbe una macro che fa tutta l'operazione, e chi la farebbe qui dentro ? Indovina

    che cosa dovrebbe fare la macro ideale ? SOLO e semplicemente:
    - copiare da colonna A il testo del nome-titolo che si vuol dare al collegamento ipertestuale
    - in colonna A stessa incollare tale testo ipertestualizzato col vero link cliccabile il cui URL si trova in colonna B
    - Cancellare la cella di colonna B, lasciano quindi in colonna A solo ed esattamente ciò che vuoi tu

    Spero che sia chiaro, potresti tentare anche tu
    io ho provato con un indirizzo e funziona

    si tratta di creare un ciclo FOR che legga tutti i testi di colonna A sostituendogli tutti gli URL di colonna B ma lasciando in colonna A il testo originale del nome della pagina.

    Leo
    [Modificato da L2018 16/04/2023 14:58]

    LEO
    https://t.me/LordBrum
  • OFFLINE
    by sal
    Post: 7.207
    Registrato il: 14/11/2004
    Utente Master
    Office 2019
    00 16/04/2023 15:16
    Ciao basta inserire il titolo dell'argomento in Colonna "A" ed il link della pagina in colonna "B", la colonna "B" poi la puoi anche nascondere, ed usare gli eventi del foglio, io ho usato il doppioClick

    fai doppioclick sull'argomento colonna "A"

    non ce bisogno di creare l'hyperlink

    ti allego il tuo file

    Ciao By Sal (8-D

    P.S. mi dici come hai estratto il titolo ed il link dal web?


    [Modificato da by sal 16/04/2023 15:20]
    se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
  • ONLINE
    L2018
    Post: 551
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Senior
    EXCEL 2016 - SPREAD32
    00 16/04/2023 15:26
    bravissimo, come sempre

    Leo

    LEO
    https://t.me/LordBrum
  • OFFLINE
    Matti70
    Post: 23
    Registrato il: 16/03/2023
    Età: 53
    Utente Junior
    2019
    00 16/04/2023 17:56
    Trovare testi doppi
    Ciao @by sal, ti ringrazio di cuore perchè con la tua macro ho risolto i testi da linkare. Per l'estrazione dei testi da una pagina web ho usato il programma "Scraper" che non è altro un' estensione da installare in Chrome.
  • ONLINE
    L2018
    Post: 554
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Senior
    EXCEL 2016 - SPREAD32
    00 16/04/2023 18:34
    ciao, ho visto emesso il tuo Scraper, ma non capisco come si usa
    quali passi fai esattamente ?

    Leo

    LEO
    https://t.me/LordBrum
1