求Excel数据录入验证VBScript：A、B列单元格需同时填值

嘿，刚好能帮你搞定这个需求！下面这个适配Excel的VBA脚本（和你说的VBScript兼容场景）可以完美实现你要的验证逻辑：只要B列任意单元格被填入内容，就自动检查对应行的A列是否为空，如果是空的，立刻提示用户补填A列，确保每一行的A、B列要么都有值，要么都为空。

怎么部署这个脚本？ #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧「工程资源管理器」里，找到你要应用规则的目标工作表（比如Sheet1），双击它
3. 把下面的代码粘贴到右侧的代码窗口里，最后记得把文件保存为「启用宏的工作簿（.xlsm）」格式

完整验证代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅针对B列的单元格操作触发验证逻辑
    If Not Intersect(Target, Me.Columns("B")) Is Nothing Then
        ' 遍历所有被修改的B列单元格（支持批量粘贴的场景）
        Dim cell As Range
        For Each cell In Intersect(Target, Me.Columns("B"))
            ' 检查当前B列有值，但对应行A列为空的情况
            If cell.Value <> "" And Me.Cells(cell.Row, "A").Value = "" Then
                ' 弹出提示框提醒用户补填
                MsgBox "请先填写第 " & cell.Row & " 行的A列单元格，A、B列必须同时有值！", vbExclamation, "录入验证提醒"
                ' 自动定位到对应A列单元格，方便用户直接填写
                Application.EnableEvents = False ' 暂时关闭事件触发，避免循环弹窗
                Me.Cells(cell.Row, "A").Select
                Application.EnableEvents = True ' 重新开启事件触发
            End If
        Next cell
    End If
End Sub

关键逻辑说明 #

• 绑定工作表的Worksheet_Change事件，只要B列单元格内容被修改（手动输入、粘贴都算）就会触发验证
• 支持批量操作：如果一次性给B列多个单元格粘贴内容，会逐个检查每一行的A列状态
• 提示后自动定位到对应A列，减少用户操作步骤
• 加入Application.EnableEvents开关，避免选中A列时再次触发事件导致循环弹窗

小提示 #

• 保存文件时必须选「启用宏的工作簿（.xlsm）」，否则宏会被Excel禁用
• 打开文件时要点击Excel弹出的「启用内容」按钮，才能让验证规则生效

内容的提问来源于stack exchange，提问作者sarvana kumar