运行宏后 Excel 停止响应答案

【问题标题】：Excel stops responding after running macro运行宏后 Excel 停止响应
【发布时间】：2020-11-17 18:05:43
【问题描述】：

我创建了一个简单的代码来突出显示某些列中的拼写错误，但它会导致 excel 在我每次运行时停止响应。虽然代码本身运行良好，但必须等待两分钟才能再次开始运行。

有什么办法可以解决这个问题吗？

Option Explicit

Sub Check_Cell()
    Dim wd As Range
    Dim chkCell As Range
    
    Set chkCell = ActiveSheet.Range("F:H:I:J")
    For Each wd In chkCell
    If Not Application.CheckSpelling(word:=wd.Text) Then
        wd.Interior.Color = vbGreen
        
    End If
Next wd


End Sub

【问题讨论】：

有很多单元格要循环。也许find the last cell 而不是循环遍历这些列中的每个单元格。
对于ActiveSheet.Range("F:H:I:J")，您是否要排除列G？如果是这样，那个构造就不会那样做。

标签： excel vba loops spell-checking

【解决方案1】：

这可能有帮助。替换：

 Set chkCell = ActiveSheet.Range("F:H:I:J")

与：

 Set chkCell = Intersect(ActiveSheet.Range("F:H:I:J"),ActiveSheet.Usedrange)

【讨论】：