VBA获取相邻列含before的最小日期返回0值问题求助

你的代码返回0的原因主要有以下几种可能：

1. 无匹配行（j=0） #

当B列中没有包含"before"的单元格时，j的值保持为0，此时ReDim Preserve MyArr(1 To 0)会创建一个空数组。Application.WorksheetFunction.Min对空数组计算时会返回0，而非预期的错误提示。

2. A列日期存储为文本 #

如果A列的日期是以文本格式存储而非真实日期值，数组中会存入字符串类型的数据，Min函数无法正确计算字符串的最小值，可能导致返回0或报错。

3. 包含表头行（若存在） #

如果第一行是表头而非数据，循环从i=1开始会将表头文本加入数组，干扰Min函数的计算。

修复后的代码 #

Sub test()
    Dim i As Long
    Dim j As Long
    Dim LRow As Long
    Dim a As String
    
    a = "before"
    j = 0
    LRow = Range("A" & Rows.Count).End(xlUp).Row

    Dim MyArr() As Variant
    ReDim MyArr(1 To LRow) As Variant
  
    ' 若第一行是表头，从i=2开始循环；无表头则改为i=1
    For i = 2 To LRow
        ' vbTextCompare实现不区分大小写的匹配，如需严格区分可移除该参数
        If VBA.InStr(1, Range("B" & i).Value, a, vbTextCompare) > 0 Then
            ' 跳过A列空单元格
            If Not IsEmpty(Range("A" & i).Value) Then
                j = j + 1
                ' 强制转换为日期值，确保即使是文本格式也能被正确识别
                MyArr(j) = CDate(Range("A" & i).Value)
            End If
        End If
    Next i
   
    If j = 0 Then
        ' 无匹配时返回#N/A，也可改为文本提示如"No matches"
        Range("D1").Value = CVErr(xlErrNA)
    Else
        ReDim Preserve MyArr(1 To j)
        Range("D1").Value = Application.WorksheetFunction.Min(MyArr)
        ' 设置单元格格式为日期，避免显示为序列号
        Range("D1").NumberFormat = "yyyy-mm-dd"
    End If
End Sub

关键修复点说明 #

• 无匹配处理：通过判断j=0，返回#N/A替代0，结果更直观。
• 日期格式转换：使用CDate将A列值强制转为日期类型，解决文本日期无法计算的问题。
• 空单元格过滤：跳过A列空单元格，避免0值混入数组影响结果。
• 日期格式设置：将D1单元格格式化为日期，确保结果以日期形式展示而非原始序列号。
• 不区分大小写匹配：添加vbTextCompare参数，使"Before"、"BEFORE"等也能被匹配（如需严格区分可移除）。

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