我明白你的需求——要在循环处理不同评估版本的宏里，自动从数据透视表（或复制后的日期列表）提取最早和最晚日期，还要避免显示多余的00:00:00时间后缀。下面是具体的实现方案：

核心思路 #

Excel的日期本质是数值，我们可以用WorksheetFunction.Min和WorksheetFunction.Max直接获取日期范围的极值，再通过DateValue或Format函数剥离时间部分，得到纯日期结果。

场景1：直接从数据透视表提取日期 #

假设你的数据透视表名为PivotTable1，日期字段位于透视表的第一列（可根据实际调整列号），代码如下：

Sub GetDatesFromPivot()
    Dim pt As PivotTable
    Dim dateRange As Range
    Dim earliestDate As Date
    Dim latestDate As Date
    
    ' 指向目标数据透视表（可根据实际修改工作表和透视表名称）
    Set pt = ThisWorkbook.Worksheets("透视表所在工作表").PivotTables("PivotTable1")
    
    ' 获取透视表中的日期数据区域（假设日期在第一列，DataBodyRange是透视表的数值区域）
    If Not pt.DataBodyRange Is Nothing Then
        Set dateRange = pt.DataBodyRange.Columns(1)
        
        ' 获取最早和最晚日期，用DateValue剥离时间部分
        earliestDate = DateValue(WorksheetFunction.Min(dateRange))
        latestDate = DateValue(WorksheetFunction.Max(dateRange))
        
        ' 输出结果（可根据需求替换为写入单元格或其他操作）
        Debug.Print "最早日期: " & Format(earliestDate, "dd/mm/yy")
        Debug.Print "最晚日期: " & Format(latestDate, "dd/mm/yy")
    Else
        MsgBox "透视表中无数据！"
    End If
End Sub

场景2：从复制后的新工作表提取日期 #

如果已经把日期复制到新工作表（比如名为日期列表的工作表，日期数据在A列，从A1开始），代码可以更简洁：

Sub GetDatesFromSheet()
    Dim ws As Worksheet
    Dim dateRange As Range
    Dim earliestDate As Date
    Dim latestDate As Date
    
    Set ws = ThisWorkbook.Worksheets("日期列表")
    ' 假设日期在A列，动态获取非空单元格范围
    Set dateRange = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
    
    earliestDate = DateValue(WorksheetFunction.Min(dateRange))
    latestDate = DateValue(WorksheetFunction.Max(dateRange))
    
    ' 示例：将结果写入B1和B2单元格
    ws.Range("B1").Value = "最早日期:"
    ws.Range("C1").Value = earliestDate
    ws.Range("C1").NumberFormat = "dd/mm/yy" ' 设置单元格格式为纯日期
    
    ws.Range("B2").Value = "最晚日期:"
    ws.Range("C2").Value = latestDate
    ws.Range("C2").NumberFormat = "dd/mm/yy"
End Sub

循环处理多版本的适配 #

如果需要循环处理多个评估版本（比如多个透视表或多个工作表），可以用循环遍历对象集合，示例如下：

Sub LoopThroughVersions()
    Dim ws As Worksheet
    Dim pt As PivotTable
    
    ' 遍历工作簿中所有带透视表的工作表（假设每个评估版本对应一个工作表）
    For Each ws In ThisWorkbook.Worksheets
        ' 检查工作表是否有透视表
        If ws.PivotTables.Count > 0 Then
            Set pt = ws.PivotTables(1) ' 假设每个工作表只有一个透视表
            ' 调用之前的日期提取逻辑
            GetDatesFromPivotCustom pt, ws.Name ' 自定义函数处理单个透视表
        End If
    Next ws
End Sub

' 自定义函数：处理单个透视表并输出结果到指定位置
Sub GetDatesFromPivotCustom(pt As PivotTable, versionName As String)
    Dim dateRange As Range
    Dim earliestDate As Date
    Dim latestDate As Date
    
    If Not pt.DataBodyRange Is Nothing Then
        Set dateRange = pt.DataBodyRange.Columns(1)
        earliestDate = DateValue(WorksheetFunction.Min(dateRange))
        latestDate = DateValue(WorksheetFunction.Max(dateRange))
        
        ' 示例：将结果写入工作表的指定单元格，标记版本
        pt.Parent.Range("D1").Value = "版本: " & versionName
        pt.Parent.Range("D2").Value = "最早日期: " & Format(earliestDate, "dd/mm/yy")
        pt.Parent.Range("D3").Value = "最晚日期: " & Format(latestDate, "dd/mm/yy")
    End If
End Sub

关键细节说明 #

• DateValue函数会自动提取日期的纯日期部分，忽略时间（即使原数据带时间，也会转为00:00:00的日期值，但通过单元格格式设置或Format函数输出时可以只显示日期）。
• 如果你的日期格式是mm/dd/yy而非dd/mm/yy，只需调整Format函数的格式字符串即可。
• 确保透视表的日期字段是日期格式，而非文本格式，否则Min/Max函数无法正确计算。如果是文本格式，可以先通过CDate转换，或者在透视表中设置字段格式为日期。

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