Vanita ha un foglio di lavoro che contiene diverse combinazioni di lettere in ogni cella della colonna A. Sta cercando un modo per estrarre le parole da quell’elenco che sono “corrette”, nel senso che si trovano in un dizionario di controllo ortografico.

Supponendo che la colonna contenga solo parole (senza spazi, punteggiatura o frasi), puoi controllare manualmente l’elenco in questo modo:

  1. Crea una copia della colonna A nella colonna B. Ora hai due colonne identiche.

  2. Seleziona la colonna B ed esegui il controllo ortografico.

  3. Ogni volta che viene suggerito un cambiamento di ortografia, accettalo. Al termine, dovresti avere la colonna A come originale e la colonna B come versione con controllo ortografico della colonna A.

  4. Nella colonna C, inserisci la formula = IF (A1 = B1, B1, “”) e copia la formula verso il basso. Questa formula mostra solo una parola nella colonna C se la parola originale corrisponde alla versione con controllo ortografico della parola.

  5. Copia tutte le parole nella colonna C e usa Incolla speciale per incollare i valori in un’altra posizione. Ora hai un elenco di parole correttamente digitate.

Se è necessario eseguire regolarmente il processo di convalida, è possibile utilizzare una macro per creare invece l’elenco finale. La seguente macro passa attraverso l’elenco di parole nella colonna A e cancella tutte le celle che contengono parole non presenti nel dizionario. Dopo aver controllato tutte le parole, elimina tutte le celle cancellate.

Sub ExtractDictionaryWords()

Dim rWords As Range     Dim rCell As Range

Application.ScreenUpdating = False     Set rWords = Range(Range("A1"), _       Range("A1048576").End(xlUp))

For Each rCell In rWords         If Not Application.CheckSpelling(rCell.Value) Then             rCell.Clear         End If     Next     On Error Resume Next     rWords.SpecialCells(xlCellTypeBlanks). _       Delete (xlShiftUp)

On Error GoTo 0     Set rCell = Nothing     Set rWords = Nothing     Application.ScreenUpdating = True End Sub

Ricorda: questa macro è intenzionalmente distruttiva nel suo comportamento, il che significa che elimina le cellule. Se hai bisogno dei dati originali, ti consigliamo di eseguire la macro su una copia dei dati, non sulla tua unica copia.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (11284) si applica a Microsoft Excel 2007, 2010, 2013 e 2016.

È possibile trovare una versione di questo suggerimento per la vecchia interfaccia del menu di Excel qui: Extracting Proper Words.