VBA列值校验：验证Excel中I列与L列的关联规则

需求说明 #

• 当某行L列值为s时，同行I列必须为0，否则将该行I、L列背景标红
• 当某行L列值属于{"M", "kg", "j.m.", "g"}时，同行I列必须为空，否则将该行I、L列背景标红

原代码问题点 #

1. 变量名不统一：定义了LstRow却使用未定义的last_row，导致单元格范围引用错误
2. 循环逻辑错误：For i = 1 To RngPackages语法无效，需基于区域行数循环
3. 单元格引用错误：RngPackages(i)指向整行区域，无法单独判断I列值；RngOrders(i)引用方式有误
4. 数组判断语法错误：VBA不支持in关键字判断元素是否在数组中，需用自定义辅助函数
5. 代码结构不完整：缺少End If闭合判断语句
6. 变量未显式声明：未指定变量类型，易引发潜在错误

修正后的代码 #

Option Explicit ' 强制变量声明，避免未定义变量错误

Sub ValidateColumns()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim MValues As Variant
    Dim cellL As Range, cellI As Range
    
    ' 初始化变量
    Set ws = ActiveSheet
    MValues = Array("M", "kg", "j.m.", "g")
    ' 获取最后一行（以L列为准，避免I列无数据时漏判）
    lastRow = ws.Range("L" & ws.Rows.Count).End(xlUp).Row
    
    ' 遍历第2行到最后一行
    For i = 2 To lastRow
        Set cellI = ws.Cells(i, "I")
        Set cellL = ws.Cells(i, "L")
        
        ' 先清除之前的标红格式
        cellI.Interior.ColorIndex = xlColorIndexNone
        cellL.Interior.ColorIndex = xlColorIndexNone
        
        ' 判断条件1：L列为"s"且I列不为"0"
        If cellL.Value = "s" Then
            If cellI.Value <> "0" Then
                cellI.Interior.Color = vbRed
                cellL.Interior.Color = vbRed
            End If
        ' 判断条件2：L列值在MValues数组中且I列不为空
        ElseIf IsInArray(cellL.Value, MValues) Then
            If cellI.Value <> "" Then
                cellI.Interior.Color = vbRed
                cellL.Interior.Color = vbRed
            End If
        End If
    Next i
End Sub

' 辅助函数：判断值是否在数组中
Function IsInArray(searchVal As Variant, arr As Variant) As Boolean
    Dim element As Variant
    For Each element In arr
        If element = searchVal Then
            IsInArray = True
            Exit Function
        End If
    Next element
    IsInArray = False
End Function

代码说明 #

• Option Explicit强制变量声明，避免拼写错误导致的未知问题
• 改用ws代替模糊的active_sheet，变量名更清晰
• 以L列为准获取最后一行，避免I列无数据时遗漏判断行
• 单独引用I、L列单元格，逻辑更直观
• 增加IsInArray辅助函数实现数组元素判断，符合VBA语法规范
• 先清除原有标红格式，避免重复运行时残留错误标记

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