Excel工作簿关闭前设置指定行列必填的VBA实现需求

这段代码能帮你在Excel工作簿关闭前，自动检查指定行列是否填写完整，一旦发现必填项空着，就会阻止关闭并提示补全内容。

代码功能说明 #

• 触发时机：绑定Workbook_BeforeClose事件，每次关闭工作簿时自动执行
• 校验逻辑：
  1. 先定位A列最后一行有数据的位置
  2. 从第2行（默认第1行是表头）开始遍历A列的有效行
  3. 只要A列单元格内容不为0，就强制检查同行的B列和C列是否为空
  4. 发现空值就取消关闭操作，弹窗提示具体哪一行没填完整

完整VBA代码 #

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Dim lr As Long
    Dim r As Long

'   激活目标工作表（取消注释并替换成你的工作表名）
'   Sheets("Sheet1").Activate

'   获取A列最后一行有数据的行号
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    
'   遍历A列所有有数据的行（从第2行开始，跳过表头）
    For r = 2 To lr
'       判断A列当前行是否不为0
        If Cells(r, "A") <> 0 Then
'           检查B列和C列是否为空
            If Cells(r, "B") = "" Or Cells(r, "C") = "" Then
                Cancel = True
                MsgBox "请填写B列和C列内容", vbOKOnly, "第" & r & "行未填写完整!!!"
            End If
        End If
    Next r

End Sub

实用优化建议 #

• 指定工作表：取消代码里Sheets("Sheet1").Activate的注释，改成你需要校验的工作表名称，避免当前激活的不是目标表时出错
• 调整校验规则：如果需要校验其他列，把代码里的"B"、"C"换成对应的列字母；要是A列的判断条件不是“不为0”，可以改成Cells(r, "A") <> ""（判断A列不为空）
• 批量提示：要是不想每行空值都弹一次窗，可以先把所有未完成的行号收集起来，最后一次性弹出提示，减少干扰

内容的提问来源于stack exchange，提问作者Sony Shaik