VBA实现特定列值暂存及明细行数据匹配验证需求求助

需求说明 #

数据分为表头（A-D列）和明细行（E-J列），表头并非每行都存在。验证明细行时，需暂存当前表头的D列值，用于该表头下所有明细行的验证，直到遇到新表头时更新D列值：

• 示例：遍历到A列值为"ABC"的表头行时，其D列的"PO1"需用于下方所有明细行的验证；当遇到A列新值"DEF"的表头行时，后续明细行改用新表头D列的"PO2"。

用户尝试代码 #

用户尝试用全局变量存储表头行号，但未得到预期结果，代码如下：

Public v As Integer

Sub inv()

Dim i As Integer, j As Integer, temp As Integer, rng As Range
Dim lastRow As Integer, lastRowSheet2 As Integer
Dim sheet1 As Worksheet, Sheet2 As Worksheet

Set sheet1 = Sheets("Data")
Set Sheet2 = Sheets("res")
lrow = sheet1.Range("A1").SpecialCells(xlCellTypeLastCell).Row


For i = 2 To lrow
    
    If sheet1.Range("A" & i).Value <> "" Then
        invv = sheet1.Range("A" & i).Value
        v = i

    End If
    If sheet1.Range("A" & i + 1).Value <> "" Then
        ninv = sheet1.Range("A" & i + 1).Value

    End If

    If invv <> ninv And sheet1.Range("A" & i + 1).Value <> "" Then
    
        Sheet2.Range("A" & i).Value = sheet1.Range("D" & v).Value
        MsgBox "Alert -Entry in row is not equal to Previous Cell !!"
        
        'Exit Sub
    End If

Next i

End Sub

修正后的解决方案 #

核心逻辑：遍历每行时，先判断是否为表头行（A列有值），若是则更新当前存储的表头D列值；对明细行（A列无值），直接使用当前存储的表头D列值执行验证。

修正代码：

Sub ValidateDetailsWithHeader()
    Dim wsData As Worksheet, wsRes As Worksheet
    Dim lastRow As Long
    Dim currentPO As Variant '存储当前表头的D列值
    Dim i As Long
    
    '初始化工作表
    Set wsData = ThisWorkbook.Sheets("Data")
    Set wsRes = ThisWorkbook.Sheets("res")
    
    '获取数据最后一行（更可靠的方式）
    lastRow = wsData.Cells(wsData.Rows.Count, "A").End(xlUp).Row
    
    '遍历所有行
    For i = 2 To lastRow
        '判断是否为表头行（A列非空）
        If wsData.Range("A" & i).Value <> "" Then
            '更新当前表头的D列值
            currentPO = wsData.Range("D" & i).Value
        Else
            '当前是明细行，用currentPO做验证（此处示例为将PO值写入结果表，可替换为你的具体验证逻辑）
            wsRes.Range("A" & i).Value = currentPO
            
            '示例验证逻辑：比如检查E列是否符合当前PO的规则，可自行修改
            'If wsData.Range("E" & i).Value <> 预期验证值 Then
            '    MsgBox "第" & i & "行明细验证失败"
            'End If
        End If
    Next i
    
    MsgBox "验证完成"
End Sub

关键改进点 #

• 移除不必要的全局变量，改用过程内变量currentPO存储表头D列值，避免全局变量的意外干扰
• 使用更可靠的方式获取最后一行：Cells(Rows.Count, "A").End(xlUp).Row，避免因格式残留导致的行号错误
• 逻辑更清晰：明确区分表头行和明细行的处理逻辑，表头行更新PO值，明细行直接调用当前PO值
• 预留了自定义验证逻辑的注释，可根据实际需求替换为E-J列的具体验证规则

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