Excel静态时间戳自动记录求助：ID首次入报告日期需固定

核心逻辑 #

用你新建的DateArraySheet作为持久化存储表，每次数据更新后自动比对报告表中的唯一ID：

• 未在存储表中出现过的ID，写入当前日期并标记已存储
• 已存在的ID，保留首次记录的日期，不随数据更新刷新

VBA代码实现 #

假设：

• 数据表格所在工作表名为DataSheet
• 报告表名为ReportSheet，「Candidate ID」列在A列，「Date of report」列在B列
• DateArraySheet中「Candidate ID」在A列，「Date of report」在B列，「StoredFlag」在C列

将以下代码粘贴到Excel的模块中（或绑定到DataSheet的Worksheet_Change事件实现自动触发）：

Sub UpdateStaticReportDates()
    Dim wsReport As Worksheet, wsStore As Worksheet
    Dim lastRowReport As Long, lastRowStore As Long
    Dim i As Long, j As Long
    Dim id As String, found As Boolean
    
    ' 定义工作表对象，根据实际名称修改
    Set wsReport = ThisWorkbook.Worksheets("ReportSheet")
    Set wsStore = ThisWorkbook.Worksheets("DateArraySheet")
    
    ' 获取报告表和存储表的最后一行
    lastRowReport = wsReport.Cells(wsReport.Rows.Count, "A").End(xlUp).Row
    lastRowStore = wsStore.Cells(wsStore.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历报告表中的每个ID
    For i = 2 To lastRowReport ' 假设第1行是表头
        id = wsReport.Cells(i, "A").Value
        found = False
        
        ' 检查存储表中是否已存在该ID
        For j = 2 To lastRowStore
            If wsStore.Cells(j, "A").Value = id Then
                found = True
                ' 将存储表中的首次日期写入报告表
                wsReport.Cells(i, "B").Value = wsStore.Cells(j, "B").Value
                Exit For
            End If
        Next j
        
        ' 如果ID未存储，写入存储表并同步到报告表
        If Not found Then
            lastRowStore = lastRowStore + 1
            wsStore.Cells(lastRowStore, "A").Value = id
            wsStore.Cells(lastRowStore, "B").Value = Date ' 记录当前日期，用Now()可包含时间
            wsStore.Cells(lastRowStore, "C").Value = "Y" ' 标记已存储
            wsReport.Cells(i, "B").Value = Date
        End If
    Next i
End Sub

' 可选：绑定到DataSheet的变更事件，实现自动触发
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim wsData As Worksheet
    Set wsData = ThisWorkbook.Worksheets("DataSheet")
    
    ' 当DataSheet的内容发生变更（比如粘贴新数据）时自动运行更新宏
    If Not Intersect(Target, wsData.UsedRange) Is Nothing Then
        ' 延迟1秒执行，确保报告表完成唯一ID提取
        Application.OnTime Now + TimeValue("00:00:01"), "UpdateStaticReportDates"
    End If
End Sub

配置与使用说明 #

1. 修改工作表和列名：将代码中的工作表名称（DataSheet/ReportSheet）、列标识（A/B/C）改为你实际的表格结构
2. 设置自动触发：如果需要粘贴数据后自动更新日期，把Worksheet_Change代码复制到DataSheet的代码窗口中（右键工作表标签→查看代码）
3. 手动触发：如果不需要自动触发，可通过开发者工具→宏→选择UpdateStaticReportDates运行

为什么公式方案失效？ #

你之前用的=IF(CX<>"",IF(AX<>"",AX,TODAY()),"")是动态公式，每次数据粘贴清空旧数据时，关联的单元格（如AX列）会被重置，公式重新计算后会覆盖原有日期。而独立存储表的方式将首次日期持久化，不受数据更新的影响。

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