拼写检查并获取下一个单元格中的build议列表

我正在拼写检查范围内使用下面的代码..

Sub SpellCheck() Application.SpellingOptions.DictLang = 1033 Dim cel As Range, CellLen As Long, CurChr As Long, TheString As String Dim a As Integer For Each cel In Range("Spell[description]") 'splitting paragraph into words For CurChr = 1 To Len(cel.Value) If Asc(Mid(cel.Value, CurChr, 1)) = 32 Then If InStr(CurChr + 1, cel.Value, " ") = 0 Then TheString = Mid(cel.Value, CurChr + 1, Len(cel.Value) - CurChr) Else TheString = Mid(cel.Value, CurChr + 1, InStr(CurChr + 1, cel.Value, " ") - CurChr) End If 'checking spell as per words If Not Application.CheckSpelling(Word:=TheString) Then cel.Characters(CurChr + 1, Len(TheString)).Font.Color = RGB(255, 0, 0) 'updating the error words in the next sheet Sheets(2).Activate a = Cells(Rows.Count, 1).End(xlUp).Row Cells(a + 1, 1).Value = cel.Offset(0, -1).Value Cells(a + 1, 2).Value = TheString Else cel.Characters(CurChr + 1, Len(TheString)).Font.Color = RGB(0, 0, 0) End If TheString = "" End If Next CurChr Next cel End Sub 

它将突出显示红色的错误字，并在sheet2中将其更新为ID和错误字。 不过，我需要在下一个单元格（在sheet2中的错误字词后）更新excel提供的错误build议值。

我完全不熟悉这个VBA的拼写检查，任何人都可以帮我解决。