У Ваниты есть рабочий лист, содержащий различные комбинации букв в каждой ячейке столбца A. Он ищет способ извлечь слова из этого списка, которые являются «правильными», что означает, что они находятся в словаре для проверки орфографии.

Предполагая, что столбец содержит только слова (без пробелов, знаков препинания или фраз), вы можете вручную проверить список следующим образом:

  1. Сделайте копию столбца A в столбец B. Теперь у вас есть два одинаковых столбца.

  2. Выберите столбец B и запустите проверку орфографии.

  3. Каждый раз, когда предлагается изменить написание, принимайте его. Когда закончите, у вас должен быть столбец A в качестве исходного, а столбец B — как проверенная версия столбца A.

  4. В столбце C введите формулу = ЕСЛИ (A1 = B1, B1, «») и скопируйте формулу вниз. Эта формула показывает слово в столбце C, только если исходное слово совпадает с версией слова с проверкой орфографии.

  5. Скопируйте все слова в столбце C и используйте Специальную вставку, чтобы вставить значения в другое место. Теперь у вас есть список правильно написанных слов.

Если вам нужно регулярно выполнять процесс проверки, вы можете вместо этого использовать макрос для создания окончательного списка. Следующий макрос проходит по списку слов в столбце A и очищает все ячейки, содержащие слова, которых нет в словаре. После проверки всех слов он удаляет все очищенные ячейки.

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

Помните — этот макрос намеренно разрушает свое поведение, что означает, что он очищает ячейки. Если вам нужны исходные данные, вы захотите запустить макрос на копии данных, а не на вашей единственной копии.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (11284) применим к Microsoft Excel 2007, 2010, 2013 и 2016.

Вы можете найти версию этого совета для более старого интерфейса меню Excel здесь: link: / excel-Extracting_Proper_Words [извлечение правильных слов].