Extraer palabras adecuadas

May 29

Vanita tiene una hoja de cálculo que contiene diferentes combinaciones de letras en cada celda de la columna A. Él está buscando una manera de extraer las palabras de esa lista que son "adecuadas", es decir que se encuentran en un diccionario de corrección ortográfica.

Suponiendo que la columna contiene sólo palabras (sin espacios, puntuacion, o frases), se 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 ejecutar el corrector ortográfico.
  3. Cada vez que se sugiere un cambio de ortografía, lo aceptan. Cuando haya terminado, usted debe tener la columna A como B original y su columna como una versión revise la ortografía de la columna A.
  4. En la columna C, introduzca la fórmula = SI (A1 = B1, B1, "") y copiar la fórmula hacia abajo. Esta fórmula sólo muestra una palabra en la columna C si la palabra original coincide con la versión revise la ortografía de la palabra.
  5. Copie todas las palabras en la columna C y utilice Pegado especial para pegar los valores en otra ubicación. Ahora tiene una lista de palabras válidamente escanda.

Si usted necesita para llevar a cabo el proceso de validación con regularidad, es posible que desee utilizar una macro para crear en lugar de su lista final. Los siguientes pasos de macro a través de la lista de palabras en la columna A y borra las células que contienen palabras no en el diccionario. Después de comprobar todas las palabras, a continuación, elimina todas las células de inmediata disposición.

ExtractDictionaryWords Sub ()
RWords dévil como Range
Dim rCell como gama

Application.ScreenUpdating = False
Set rWords = Rango (Range ("A1"), _
Range ("A65536"). End (xlUp))
Para Cada rCell En rWords
Si No Application.CheckSpelling (rCell.Value) Entonces
rCell.Clear
End If
Siguiente
On Error Resume Next
rWords.SpecialCells (xlCellTypeBlanks). _
Eliminar (xlShiftUp)
On Error GoTo 0
Establecer rCell = Nothing
RWords Set = Nothing
Application.ScreenUpdating = True
End Sub

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

ExcelTips es su fuente de capacitación rentable Microsoft Excel. Esta punta (11.284) se aplica a Microsoft Excel 2007 y 2010. Se puede encontrar una versión de este consejo para el más viejo interfaz de menú de Excel aquí: Extraer palabras adecuadas.