VBA单词拼写检查找出拼写错误的单词Sub spelling check Dim rng As Range遍历选区与已用区域的交集For Each rng In Application.Intersect Selection ActiveSheet.UsedRange If Not Application.CheckSpelling StrConv rng vbProperCase Then在默认词典中检查如果不存在将单元格背景设置为灰色rng.Interior.ColorIndex15End If Next End Sub