Выделите ячейки со словами с ошибками

В Excel нет проверки орфографии, как в Word или PowerPoint. Хотя вы можете запустить проверку орфографии, нажав клавишу F7, визуальная подсказка отсутствует, если есть орфографическая ошибка.

Используйте этот код, чтобы мгновенно выделить все ячейки, в которых есть орфографическая ошибка.

Обратите внимание, что выделенные ячейки — это те, в которых есть текст, который Excel рассматривает как орфографическую ошибку. Во многих случаях он также выделил бы названия, которые он не понимает.

____________________________________________________________

'Этот код будет подсвечивать ячейки, в которых есть слова с ошибками 
Sub HighlightMisspelledCells () 
Dim cl As Range 
для каждого cl в ActiveSheet.UsedRange, 
если не Application.CheckSpelling (word: = cl.Text), то 
cl.Interior.Color = vbRed 
End If 
Next cl 
End Sub

__________________________________________________________________________