Excel VBA合并单元格拼写检查问题：范围控制与弹窗消除

问题现状 #

1. 当前代码会检查指定区域内的所有单元格，无法仅针对合并单元格执行拼写检查
2. 检查结束后会弹出“是否从工作表开头继续检查？”的提示，选择“是”会误查已锁定的工作表区域

解决方案 #

1. 仅针对合并单元格执行拼写检查

合并单元格仅在首单元格存储实际内容，直接检查整个区域会包含非合并单元格。我们需要遍历目标区域，只对合并单元格的首单元格执行拼写检查。

2. 消除多余弹窗

通过临时禁用Excel的显示提示功能，避免检查结束后弹出“继续检查”的询问，检查完成后再恢复提示功能，此时会正常显示“拼写检查完成”的提示。

修改后的完整代码 #

Sub CheckMergedCellsSpelling()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ' 取消工作表保护
    ws.Unprotect
    
    ' 临时禁用显示提示，避免弹出"是否从开头继续检查"的窗口
    Application.DisplayAlerts = False
    
    ' 根据颜色索引判断要检查的合并单元格区域
    If ws.Range("A6:A8").Interior.ColorIndex = 16 Then
        Call CheckMergedRange(ws.Range("G33:P36"))
    ElseIf ws.Range("A9:A13").Interior.ColorIndex = 16 Then
        Call CheckMergedRange(ws.Range("W33:AF36"))
    ElseIf ws.Range("A14:A17").Interior.ColorIndex = 16 Then
        Call CheckMergedRange(ws.Range("AM33:AV36"))
        Call CheckMergedRange(ws.Range("BC33:BL36"))
    ElseIf ws.Range("A18:A24").Interior.ColorIndex = 16 Then
        Call CheckMergedRange(ws.Range("BS33:CB36"))
        Call CheckMergedRange(ws.Range("CI33:CR36"))
    ElseIf ws.Range("A25:A30").Interior.ColorIndex = 16 Then
        Call CheckMergedRange(ws.Range("CY33:DH36"))
        Call CheckMergedRange(ws.Range("DO33:DX36"))
    ElseIf ws.Range("A31:A34").Interior.ColorIndex = 16 Then
        Call CheckMergedRange(ws.Range("EE33:EN36"))
    End If
    
    ' 恢复显示提示，此时会正常弹出"拼写检查完成"
    Application.DisplayAlerts = True
    
    ' 重新保护工作表
    ws.Protect
End Sub

' 辅助过程：仅检查指定区域内的合并单元格首单元格
Sub CheckMergedRange(targetRange As Range)
    Dim cell As Range
    For Each cell In targetRange
        ' 仅处理合并单元格的首单元格
        If cell.MergeCells And cell.Address = cell.MergeArea.Address Then
            cell.CheckSpelling
        End If
    Next cell
End Sub

代码说明 #

• CheckMergedRange子过程：遍历目标区域，判断每个单元格是否为合并区域的首单元格，仅对这类单元格执行拼写检查
• Application.DisplayAlerts = False：临时屏蔽Excel的提示弹窗，检查完成后恢复，确保只显示“拼写检查完成”的正常提示
• 保留原有的颜色索引判断逻辑，确保只触发对应区域的检查

内容的提问来源于stack exchange，提问作者Mohamad Bachrouche