拼写检查这个功能，在Excel中会自动进行，如果你设置了的话。

大多情况下，并不太注意，Excel对字符进行检查的依据是词典，具体词典在哪里？可以到选项-校对里找到，运行的时候系统自已对应设置的词典进行检查，如果找不到，拼写检查就不能正常进行。

当然了，词典也可以是自己定义的字符串，也就是说，你可以定义一些喜欢的字符作为字典单词来进行检查。

重点说一下，如何用vba代码进行字符串检查，执行字符串检查的好处，就是可以使我们编辑的内容避免出错。

下面看一下拼写检查的语法，如下图所示：

CheckSpelling方法

方法有三个参数，第一个是要进行拼写检查的单词，第二个就是自定义词典名，第三个定义大写字母是否检查，True为检查，False为忽略。

下图为一个示例，检查第二列是否有拼写错误，然后把检查结果写到第三列和第四列。

看图对照理解一下：

代码：

Private Sub CommandButton1_Click() '拼写检查 Dim r As Range Set r = ActiveSheet.Columns(2) Dim c As Long, i As Long c = Application.WorksheetFunction.CountA(r) For i = 2 To c 1 If VBA.Len(r.Cells(i, 1)) = 0 Then GoTo Jop If Application.CheckSpelling(VBA.CStr(r.Cells(i, 1).Value), True, True) = False Then r.Cells(i, 1).Offset(0, 1).Value = "Sorry" r.Cells(i, 1).Offset(0, 2).Value = "错误" Else r.Cells(i, 1).Offset(0, 1).Value = "Yes" r.Cells(i, 1).Offset(0, 2).Value = "正确" End If Jop: Next i MsgBox "检查拼写完成", vbInformation, "提示" End Sub

本节介绍的CheckSpelling方法是基于Application对象之下的方法，Range对象、Worksheet对象下面也有同样的CheckSpelling方法,应用方法和属性基本相同，有兴趣可以对照学习一下。

欢迎关注、收藏

---END---