Stellar Blade Un'esclusiva PS5 che sta facendo discutere per l'eccessiva bellezza della protagonista. Vieni a parlarne su Award & Oscar!
 
Pagina precedente | 1 2 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Trovare testi doppi

Ultimo Aggiornamento: 17/04/2023 10:12
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

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]
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

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
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

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
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

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
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

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.
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
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 2 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 09:18. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com