VBA宏开发求助：空值单元格取前序有值单元格做日期校验

你的需求是当AM列单元格为空时，取其左侧最近的有值单元格的值，再和AO列做降序检查。下面是修改后的完整代码，附详细说明：

' 获取指定单元格左侧最近的非空单元格值
Function GetLeftMostNonEmpty(currentCell As Range) As Variant
    Dim col As Integer
    ' 从当前单元格左侧一列开始向左遍历
    For col = currentCell.Column - 1 To 1 Step -1
        If Not IsEmpty(currentCell.Offset(0, col - currentCell.Column).Value) Then
            GetLeftMostNonEmpty = currentCell.Offset(0, col - currentCell.Column).Value
            Exit Function ' 找到第一个非空值就退出
        End If
    Next col
    ' 如果左侧全为空，返回空值
    GetLeftMostNonEmpty = Empty
End Function

Sub CheckDateOrder()
    Dim lastRowAP As Long
    Dim i As Integer
    Dim amValue As Variant ' 存储AM列或其左侧最近非空值
    
    lastRowAP = Cells(Rows.Count, "AP").End(xlUp).Row
    
    For i = 4 To lastRowAP
        ' 处理AM列空值情况
        If IsEmpty(Range("AM" & i).Value) Then
            amValue = GetLeftMostNonEmpty(Range("AM" & i))
        Else
            amValue = Range("AM" & i).Value
        End If
        
        ' 原判断条件，替换为处理后的amValue
        If Range("AP" & i).Value = "" And Range("AO" & i).Value < amValue Then
            Range("AO" & i).Interior.Color = RGB(255, 0, 0)
            Range("CA" & i).Value = "G"
        End If
    Next i
End Sub

关键修改点说明： #

• 新增GetLeftMostNonEmpty函数：专门用来自动定位当前单元格左侧最近的非空值，从左邻单元格开始往左遍历，找到第一个有值的就返回，避免手动指定列（比如AK列）的局限性——不管左侧哪一列有值，都能自动匹配最近的。
• 循环内先预处理AM列值：判断AM单元格是否为空，为空则调用函数取左侧值，否则直接用AM的值，把结果存在amValue变量里统一使用。
• 更新判断条件：把原代码中直接引用Range("AM" & i).Value的地方换成amValue，确保用处理后的值做日期比较。

新手额外提示： #

• 把这段代码复制到你的VBA模块中，替换原有代码即可运行。
• 如果遇到左侧所有列都为空的极端情况，amValue会是空值，此时Range("AO" & i).Value < amValue会触发错误。如果需要避免这种情况，可以在判断前加一句If Not IsEmpty(amValue) Then，跳过无有效参考值的行。

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