[RISOLTO] Eliminare parole doppie dalle righe
[RISOLTO] Eliminare parole doppie dalle righe
Buon giorno ragazzi, ho bisogno di un aiuto abbastanza urgente e non trovo nulla in giro ( o sono io impedita)
Come da titolo vorrei sapere se esiste un modo per eliminare parole uguali nell'ambito della stessa cella.
Mi spiego meglio, ho un documento di 5 colonne da 5000 righe. In molte celle ci sono ripetizioni di questo tipo:
Mela Verde Buona Mela Succosa Gialla Blu
Mela Rossa Verde Gialla Mela Per Tutti
Blu Buona Mela Supermercato Mela
La parola mela si ripete più volte nell'ambito della stessa cella, e dovrei ridurre ad una sola ripetizione, del tipo:
Mela Verde Buona Succosa Gialla Blu
Mela Rossa Verde Gialla Per Tutti
Blu Buona Mela Supermercato
Dato che non posso usare la funzione cerca e sostituisci (perché i caratteri interposti tra i due Mela non sono sempre uguali), esiste qualcosa che possa fare invece che farlo manualmente cella per cella?
Come da titolo vorrei sapere se esiste un modo per eliminare parole uguali nell'ambito della stessa cella.
Mi spiego meglio, ho un documento di 5 colonne da 5000 righe. In molte celle ci sono ripetizioni di questo tipo:
Mela Verde Buona Mela Succosa Gialla Blu
Mela Rossa Verde Gialla Mela Per Tutti
Blu Buona Mela Supermercato Mela
La parola mela si ripete più volte nell'ambito della stessa cella, e dovrei ridurre ad una sola ripetizione, del tipo:
Mela Verde Buona Succosa Gialla Blu
Mela Rossa Verde Gialla Per Tutti
Blu Buona Mela Supermercato
Dato che non posso usare la funzione cerca e sostituisci (perché i caratteri interposti tra i due Mela non sono sempre uguali), esiste qualcosa che possa fare invece che farlo manualmente cella per cella?
Ultima modifica di Elyiss il martedì 19 febbraio 2019, 16:35, modificato 2 volte in totale.
Open Office 4.1.4 su Windows 10
Re: Eliminare parole doppie dalle righe
trattasi solo di mela? o anche parole diverse?
LibO:Versione: 6.2.8.2
Build ID: 1:6.2.8~rc2-0ubuntu0.16.04.1- 32-bit
-
Se risolvi:
1. Condividi la soluzione qui con noi
2. Metti [Risolto] al titolo del primo messaggio come spiegato qui
Build ID: 1:6.2.8~rc2-0ubuntu0.16.04.1- 32-bit
-
Se risolvi:
1. Condividi la soluzione qui con noi
2. Metti [Risolto] al titolo del primo messaggio come spiegato qui
Re: Eliminare parole doppie dalle righe
No mela è un esempio perché il file è in francese, e così si capiva meglio. Però sono parole sempre uguali. Tipo appunto Mela Mela; Pera Pera o qualsiasi altra cosa
Open Office 4.1.4 su Windows 10
Re: Eliminare parole doppie dalle righe
Con le espressioni regolari si può usare trova e sostituisci. sto facendo delle prove e sto ottenendo dei risultati. Ti importa che venga mantenuta la prima mela oppure basta che ne rimanga una?
LibO:Versione: 6.2.8.2
Build ID: 1:6.2.8~rc2-0ubuntu0.16.04.1- 32-bit
-
Se risolvi:
1. Condividi la soluzione qui con noi
2. Metti [Risolto] al titolo del primo messaggio come spiegato qui
Build ID: 1:6.2.8~rc2-0ubuntu0.16.04.1- 32-bit
-
Se risolvi:
1. Condividi la soluzione qui con noi
2. Metti [Risolto] al titolo del primo messaggio come spiegato qui
Re: Eliminare parole doppie dalle righe
Basta che ne rimanga una, qualsiasi delle due!
Io pure ci avevo provato ma sono abbastanza impedita, se riesci mi salvi la vita <3
Io pure ci avevo provato ma sono abbastanza impedita, se riesci mi salvi la vita <3
Open Office 4.1.4 su Windows 10
Re: Eliminare parole doppie dalle righe
in cerca metti
Importante lo spazio finale per essere certi di trovare la parola intera Mela e scartare Melagrano.
in sostituisci metti
In altre opzioni spunta su espressione regolari
Cerca in valori
Questa ricerca rimuove una mela alla volta, quindi se ci sono 4 mela nella cella, bisogna avviare la sostituzione 3 volte.
C'è un però. Se la seconda occorrenza di Mela si trova in fondo alla cella senza essere seguita da uno spazio, questa cella non viene trovata.
Immagino sia già qualcosa
Codice: Seleziona tutto
(Mela )(.*)Mela
in sostituisci metti
Codice: Seleziona tutto
$1$2
Cerca in valori
Questa ricerca rimuove una mela alla volta, quindi se ci sono 4 mela nella cella, bisogna avviare la sostituzione 3 volte.
C'è un però. Se la seconda occorrenza di Mela si trova in fondo alla cella senza essere seguita da uno spazio, questa cella non viene trovata.
Immagino sia già qualcosa
LibO:Versione: 6.2.8.2
Build ID: 1:6.2.8~rc2-0ubuntu0.16.04.1- 32-bit
-
Se risolvi:
1. Condividi la soluzione qui con noi
2. Metti [Risolto] al titolo del primo messaggio come spiegato qui
Build ID: 1:6.2.8~rc2-0ubuntu0.16.04.1- 32-bit
-
Se risolvi:
1. Condividi la soluzione qui con noi
2. Metti [Risolto] al titolo del primo messaggio come spiegato qui
Re: Eliminare parole doppie dalle righe
Si è tantissimo! E' fantastico grazie, ora provo
Open Office 4.1.4 su Windows 10
Re: Eliminare parole doppie dalle righe
Codice: Seleziona tutto
(Mela )(.*)Mela$
Sicuramente si può scrivere un'espressione regolare unica, ma al momento non ho tempo per migliorarla.
Buon lavoro e sostituisci con attenzione.
LibO:Versione: 6.2.8.2
Build ID: 1:6.2.8~rc2-0ubuntu0.16.04.1- 32-bit
-
Se risolvi:
1. Condividi la soluzione qui con noi
2. Metti [Risolto] al titolo del primo messaggio come spiegato qui
Build ID: 1:6.2.8~rc2-0ubuntu0.16.04.1- 32-bit
-
Se risolvi:
1. Condividi la soluzione qui con noi
2. Metti [Risolto] al titolo del primo messaggio come spiegato qui
Re: Eliminare parole doppie dalle righe
Grazie, si è rivelato utile anche per me
OpenOffice 4 su Ubuntu 18
Re: Eliminare parole doppie dalle righe
propongo una macro che fa tutto in un colpo solo
Codice: Seleziona tutto
Sub DupElimina
Dim str As String, Lista() As String, collezione As New Collection
Doc = ThisComponent
Sheet = Doc.Sheets(0)
rigainizio=0 :colinizio=0
ColFine=4 :RigaFine = 5000 ' <<<<<<<<dati da modificare
On Error Resume Next
for r = rigainizio to Nrighe
for c = colinizio to colfine
Cell = Sheet.getCellByPosition(c, r)
lista = Split(Cell.String," ")
For i = 0 To Ubound(Lista)
collezione.Add(lista(i), CStr(Lista(i)))
Next i
s=""
For x = 1 To collezione.Count
s=s & collezione(x) & " "
Next x
Sheet.getCellByPosition(c, r).String = s
next
Next
End Sub
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta