如何用VBA的Min/Max函数获取各股票代码的最早、最新日期？

一、通用方法：用Min/Max函数获取特定值对应的最早/最晚日期 #

核心思路是结合条件筛选，仅计算符合目标值的日期区域的最小/最大值，避免无效数据干扰。

示例代码（假设A列是匹配值，B列是日期，需查找A列等于指定值的最早日期）：

Dim targetVal As String
Dim dateRng As Range
Dim firstDate As Variant

targetVal = "目标匹配值"
Set dateRng = ThisWorkbook.Sheets("Sheet1").Range("B:B")

' 用数组条件筛选后求最小日期，Application.Min会返回错误值而非直接抛出异常
firstDate = Application.Min(If(ThisWorkbook.Sheets("Sheet1").Range("A:A") = targetVal, dateRng))

' 判断是否找到有效结果
If Not IsError(firstDate) Then
    MsgBox "最早日期：" & firstDate
Else
    MsgBox "未找到匹配日期"
End If

二、股票代码场景：批量匹配最早/最新日期 #

针对你需要为I列每个股票代码匹配B列对应最早、最新日期的需求，先分析常见报错原因：

• 直接用WorksheetFunction.Min/Max：无匹配值时会抛出运行时错误，而非返回可判断的错误值
• 引用整列区域：导致计算效率低下，且易受空值干扰
• 未处理空单元格：遍历I列时误处理空值引发逻辑错误

修正后的完整代码（假设A列是全量股票代码，B列是对应日期，I列是待查询股票代码）：

Sub GetStockDateRange()
    Dim ws As Worksheet
    Dim stockListRng As Range
    Dim stockCell As Range
    Dim stockCode As String
    Dim allStocksRng As Range
    Dim allDatesRng As Range
    Dim earliestDate As Variant
    Dim latestDate As Variant
    
    ' 绑定目标工作表，根据实际表名修改
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 定义有效数据范围（避免引用整列）
    Set allStocksRng = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
    Set allDatesRng = ws.Range("B2:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row)
    
    ' 定义I列待查询的股票代码列表
    Set stockListRng = ws.Range("I2:I" & ws.Cells(ws.Rows.Count, "I").End(xlUp).Row)
    
    ' 遍历每个待查询股票代码
    For Each stockCell In stockListRng
        stockCode = stockCell.Value
        If stockCode <> "" Then
            ' 获取最早日期
            earliestDate = Application.Min(If(allStocksRng = stockCode, allDatesRng))
            ' 获取最新日期
            latestDate = Application.Max(If(allStocksRng = stockCode, allDatesRng))
            
            ' 将结果写入J列（最早日期）、K列（最新日期），可按需调整列位置
            If Not IsError(earliestDate) Then
                stockCell.Offset(0, 1).Value = earliestDate
                stockCell.Offset(0, 1).NumberFormat = "yyyy-mm-dd"
            Else
                stockCell.Offset(0, 1).Value = "无匹配数据"
            End If
            
            If Not IsError(latestDate) Then
                stockCell.Offset(0, 2).Value = latestDate
                stockCell.Offset(0, 2).NumberFormat = "yyyy-mm-dd"
            Else
                stockCell.Offset(0, 2).Value = "无匹配数据"
            End If
        End If
    Next stockCell
End Sub

代码关键说明：

• 限制数据范围：仅取到最后一行非空单元格，提升计算效率
• 使用Application.Min/Max：无匹配值时返回错误值，方便后续判断，避免程序崩溃
• 日期格式化：设置单元格为日期格式，避免日期显示为数字
• 空值处理：跳过I列空单元格，避免无效查询

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