Vanita tiene una hoja de trabajo que contiene diferentes combinaciones de letras en cada celda de la columna A. Está buscando una manera de extraer las palabras de esa lista que son «adecuadas», lo que significa que se encuentran en un diccionario de corrección ortográfica.

Suponiendo que la columna contiene solo palabras (sin espacios, puntuación ni frases), puede verificar manualmente la lista de esta manera:

  1. Haga una copia de la columna A en la columna B. Ahora tiene dos columnas idénticas.

  2. Seleccione la columna B y ejecute el corrector ortográfico.

  3. Cada vez que se sugiera un cambio de ortografía, acéptelo. Cuando termine, debe tener la columna A como original y la columna B como una versión corregida de ortografía de la columna A.

  4. En la columna C, ingrese la fórmula = SI (A1 = B1, B1, «») y copie la fórmula hacia abajo. Esta fórmula solo muestra una palabra en la columna C si la palabra original coincide con la versión corregida de la palabra.

  5. Copie todas las palabras en la columna C y use Pegado especial para pegar valores en otra ubicación. Ahora tiene una lista de palabras escritas válidamente.

Si necesita realizar el proceso de validación con regularidad, es posible que desee utilizar una macro para crear su lista final. La siguiente macro recorre la lista de palabras en la columna A y borra las celdas que contienen palabras que no están en el diccionario. Después de verificar todas las palabras, borra todas las celdas borradas.

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

Recuerde: esta macro es intencionalmente destructiva en su comportamiento, lo que significa que borra las células. Si necesita los datos originales, querrá ejecutar la macro en una copia de los datos, no en su única copia.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (11284) se aplica a Microsoft Excel 2007, 2010, 2013 y 2016.

Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí: link: / excel-Extracting_Proper_Words [Extrayendo palabras adecuadas].