多区域VLOOKUP扩展需求：现有VBA代码适配K:L、R:S等区域

核心修改点 #

• 定义可扩展的目标区域集合，批量处理D:E、K:L、R:S等区域
• 统一执行VLOOKUP验证逻辑，列索引固定为2
• 完整保留原代码的验证、锁定逻辑

修改后的VBA代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim watchRanges As Variant
    Dim targetRange As Range
    Dim cell As Range
    Dim lookupBatch As Variant
    Dim expectedQty As Variant
    Dim inputValue As Variant
    
    ' 定义需要监控的区域（格式："Batch列:数量列"，数量列为输入列）
    watchRanges = Array("D:E", "K:L", "R:S")
    
    ' 禁用事件避免循环触发
    Application.EnableEvents = False
    On Error GoTo Cleanup

    ' 遍历所有目标区域
    For Each targetRange In watchRanges
        ' 检查修改的单元格是否在当前区域的数量列（第2列）
        If Not Intersect(Target, Me.Range(targetRange).Columns(2)) Is Nothing Then
            For Each cell In Intersect(Target, Me.Range(targetRange).Columns(2))
                ' 获取对应行的Batch值
                lookupBatch = Me.Range(targetRange).Columns(1).Cells(cell.Row - Me.Range(targetRange).Row + 1).Value
                
                If Not IsEmpty(lookupBatch) Then
                    ' 从注册表里查找预期数量，列索引固定为2
                    expectedQty = Application.VLookup(lookupBatch, ThisWorkbook.Sheets("Batch Card REGISTER").UsedRange, 2, False)
                    
                    If Not IsError(expectedQty) Then
                        inputValue = cell.Value
                        ' 验证输入值与预期值是否一致，不一致则恢复
                        If inputValue <> expectedQty Then
                            cell.Value = expectedQty
                            MsgBox "数量与注册记录不符，已恢复为: " & expectedQty, vbExclamation
                        End If
                    End If
                End If
            Next cell
        End If
    Next targetRange

    ' ------------------------------
    ' 插入原代码的其他验证/锁定逻辑
    ' ------------------------------
    ' 示例：原锁定逻辑（请替换为你的实际代码）
    ' If Target.Column = 5 Then Target.Locked = True

Cleanup:
    Application.EnableEvents = True
    If Err.Number <> 0 Then
        MsgBox "处理错误: " & Err.Description, vbCritical
    End If
End Sub

关键说明 #

1. 区域扩展：要新增验证区域，直接在watchRanges数组里添加即可，比如Array("D:E", "K:L", "R:S", "X:Y")
2. VLOOKUP范围：ThisWorkbook.Sheets("Batch Card REGISTER").UsedRange会自动覆盖注册表的所有已使用单元格，确保Batch值和数量列都在查找范围内
3. 原逻辑兼容：在标注区域插入你原有的验证、锁定代码，不会影响新增的数量验证功能
4. 错误处理：添加了错误捕获，避免因VLOOKUP找不到值或其他异常导致程序崩溃

内容的提问来源于stack exchange，提问作者Anish Hule