[RISOLTO] Eliminare parole doppie dalle righe

[Elyiss]

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?

[unlucky83]

trattasi solo di mela? o anche parole diverse?

[Elyiss]

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

[unlucky83]

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?

[Elyiss]

Basta che ne rimanga una, qualsiasi delle due!

Io pure ci avevo provato ma sono abbastanza impedita, se riesci mi salvi la vita <3

[unlucky83]

in cerca metti

Codice: Seleziona tutto

(Mela )(.*)Mela 

Importante lo spazio finale per essere certi di trovare la parola intera Mela e scartare Melagrano.
in sostituisci metti

Codice: Seleziona tutto

$1$2

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

[Elyiss]

Si è tantissimo! E' fantastico grazie, ora provo

[unlucky83]

Codice: Seleziona tutto

(Mela )(.*)Mela$

Con questa rimuovi l'occorrenza finale quando non c'è uno spazio alla sua destra.
Sicuramente si può scrivere un'espressione regolare unica, ma al momento non ho tempo per migliorarla.
Buon lavoro e sostituisci con attenzione.

[uuggw22]

Grazie, si è rivelato utile anche per me

[patel]

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