Ottimizzare MACRO elimina parole da un testo

[g.campatelli]

Buongiorno a tutti.

Vi scrivo per sapere se potete aiutarmi a ottimizzare una Macro.

Io ho una cartella di lavoro di Excel. Nel foglio1 ho un testo molto lungo diviso in varie celle, nel foglio2 ho un elenco di parole (circa 20000) ognuna in una cella diversa nella colonna A.

Quello che vorrei fare io è eliminare ogni parola che si trova nell'elenco del foglio2 dal testo che si trova nel foglio 1.

la Macro che utilizzo io sfrutta il Trova (la parola) e Sostituisci (con una spazio) ed è questa, ma ci mette cmq tantissimo.

Codice: Seleziona tutto

Sub EliminaParole ()
Dim Parola As String
Dim N As Integer

For N = 1 To 21570

Parola = ActiveWorkbook.Sheets("Foglio2").Cells(1, 1)

Sheets("Foglio1").Select
    Cells.Replace What:=Parola, Replacement:=" ", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
       
Sheets("Foglio2").Select
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Next N
End Sub

Esiste un modo per ottimizzarla e renderla ancora più veloce?

Ad esempio copiare l'intero testo in un nuovo foglio senza le parole che sono nell'elenco del foglio2?

Vi ringrazio del prezioso aiuto che potrete darmi e vi auguro felici feste.

Giordano

[Anthony47]

Puoi modificare la macro come segue e certamente sara' piu' veloce di come e' ora:

Codice: Seleziona tutto

Sub EliminaParole ()
Dim Parola As String
Dim N As Integer

Sheets("Foglio1").Select
Application.ScreenUpdating = False
For N = 1 To 21570
Parola = ActiveWorkbook.Sheets("Foglio2").Cells(N, 1)
'Sheets("Foglio1").Select
    Cells.Replace What:=Parola, Replacement:=" ", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
       
'Sheets("Foglio2").Select
'Rows("1:1").Select
'Selection.Delete Shift:=xlUp
Next N
Application.ScreenUpdating = True
Msgbox("Completato...")
End Sub

Ho pero' il sospetto che questa macro (che e' la tua) se elimina "Monte" ti cambia anche Montenapoleone in napoleone; se cosi' fosse e cio' ti da fastidio allora modifica LookAt:=xlPart in LookAt:=xlWhole
Probabilmente potrebbe ancora essere velocizzato, ma per provare le varie tecniche servirebbe un file dimostrativo con un testo rappresentativo in Foglio1 e almeno 5000 parole da controllare in Foglio2.

Ciao

[g.campatelli]

Grazie Mille ancora, funziona tutto come deve!!