| | Post: 13 | Registrato il: 16/03/2023
| Età: 53 | Utente Junior | 2019 | | OFFLINE | |
|
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] |
|
| | Post: 537 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
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 |
| | Post: 13 | Registrato il: 16/03/2023
| Età: 53 | Utente Junior | 2019 | | OFFLINE | |
|
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
|
| | Post: 538 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
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 |
| | Post: 14 | Registrato il: 16/03/2023
| Età: 53 | Utente Junior | 2019 | | OFFLINE | |
|
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] |
| | Post: 539 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
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 |
| | Post: 15 | Registrato il: 16/03/2023
| Età: 53 | Utente Junior | 2019 | | OFFLINE | |
|
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 |
| | Post: 16 | Registrato il: 16/03/2023
| Età: 53 | Utente Junior | 2019 | | OFFLINE | |
|
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 |
| | Post: 540 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
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 |
| | Post: 7.196 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
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 |
| | Post: 2.929 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Veteran | 365 | | OFFLINE |
|
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] |
| | Post: 7.197 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
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 |
| | Post: 541 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
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 |
| | Post: 7.198 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
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 |
| | Post: 2.930 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Veteran | 365 | | OFFLINE |
|
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] |
| | Post: 542 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
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 |
| | Post: 17 | Registrato il: 16/03/2023
| Età: 53 | Utente Junior | 2019 | | OFFLINE | |
|
14/04/2023 11:11 | |
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] |
| | Post: 2.931 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Veteran | 365 | | OFFLINE |
|
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] |
| | Post: 7.199 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
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 |
| | Post: 18 | Registrato il: 16/03/2023
| Età: 53 | Utente Junior | 2019 | | OFFLINE | |
|
14/04/2023 12:00 | |
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 |
| | Post: 7.201 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
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 |
| | Post: 20 | Registrato il: 16/03/2023
| Età: 53 | Utente Junior | 2019 | | OFFLINE | |
|
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] |
| | Post: 21 | Registrato il: 16/03/2023
| Età: 53 | Utente Junior | 2019 | | OFFLINE | |
|
16/04/2023 11:18 | |
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 |
| | Post: 549 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
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 |
| | Post: 22 | Registrato il: 16/03/2023
| Età: 53 | Utente Junior | 2019 | | OFFLINE | |
|
16/04/2023 12:12 | |
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 |
| | Post: 550 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
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 |
| | Post: 7.207 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
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 |
| | Post: 551 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
16/04/2023 15:26 | |
bravissimo, come sempre
Leo
LEO
https://t.me/LordBrum |
| | Post: 23 | Registrato il: 16/03/2023
| Età: 53 | Utente Junior | 2019 | | OFFLINE | |
|
16/04/2023 17:56 | |
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. |
| | Post: 554 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
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 |
|
|