Excel VBA编译错误：变量未定义，请求合并单元格校验代码

错误根源 #

你遇到的「变量未定义」错误，是因为Code2里的qtdvazias变量未声明，而Code1开头加了Option Explicit（强制所有变量必须声明），编译时就会触发这个错误。

合并优化后的完整代码 #

把重复的检查逻辑抽成通用函数，让关闭、保存、打印三个事件共用一套验证逻辑，同时统一必填单元格范围，减少冗余：

Option Explicit

' 通用检查函数：验证必填单元格是否为空，返回是否通过检查，可选择标记空单元格
Private Function CheckRequiredCells(markEmptyCells As Boolean) As Boolean
    Dim celula As Range
    Dim intervalo As Range
    Dim isAllFilled As Boolean
    
    isAllFilled = True
    ' 统一定义所有必填单元格范围，可按需调整
    Set intervalo = ThisWorkbook.ActiveSheet.Range("B9:B12,B15:B18,B20:B23,B25,B27:B28,B33,B36:B42,B52,A91:D94")
    
    For Each celula In intervalo
        If IsEmpty(celula.Value) Then
            isAllFilled = False
            ' 需要标记空单元格时，设置红色背景
            If markEmptyCells Then celula.Interior.Color = vbRed
        Else
            ' 已填写的单元格清除背景色
            If markEmptyCells Then celula.Interior.Color = xlNone
        End If
    Next celula
    
    CheckRequiredCells = isAllFilled
End Function

' 关闭工作簿前检查
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Not CheckRequiredCells(True) Then
        MsgBox "存在未填写的必填单元格，请先完成填写。"
        Cancel = True
    End If
End Sub

' 保存工作簿前检查
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Not CheckRequiredCells(True) Then
        MsgBox "存在未填写的必填单元格，请先完成填写。"
        Cancel = True
    End If
End Sub

' 打印前检查（仅验证，不标记单元格）
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If Not CheckRequiredCells(False) Then
        MsgBox "存在未填写的必填单元格，请先完成填写。"
        Cancel = True
    End If
End Sub

关键改进点 #

• 保留Option Explicit强制变量声明，彻底避免未定义变量的问题
• 通用函数CheckRequiredCells：
  • 通过参数控制是否标记空单元格（关闭/保存时标记，打印时无需标记）
  • 统一必填单元格范围，不用在三个事件里重复编写，后续修改更方便
• 三个事件调用同一函数，逻辑统一，减少代码冗余
• 修复了原Code2的变量未声明问题，同时扩展了打印检查的范围（如果需要和原Code2一样只检查部分单元格，修改intervalo的范围即可）

内容的提问来源于stack exchange，提问作者Gustavo Rodrigues