Excel中计算同一员工两次提交记录时间间隔的技术咨询

我来帮你搞定这个需求！针对多名员工分散提交记录的情况，这里提供两种可行方案：Excel公式法（无需编程）和VBA代码法（适合批量处理）。

方案一：Excel公式直接实现 #

如果你的Excel版本支持XLOOKUP（Office 365/2021及以后），这是最简便的方法：

在K2单元格（假设第1行是表头）输入以下公式，然后下拉填充到所有行：

=XLOOKUP(J2,J$1:J1,G$1:G1,"",0,-1)

公式解释： #

• J2：当前行的员工姓名
• J$1:J1：锁定表头到当前行上方的所有姓名区域（确保下拉时不会包含当前行及以下）
• G$1:G1：对应上方区域的时间戳列
• ""：如果是该员工第一次提交（上方无匹配），返回空值
• 0：精确匹配姓名
• -1：从后往前查找，确保取到最后一次提交的时间

如果你的Excel版本不支持XLOOKUP，可以用INDEX+MATCH的数组公式替代：

=IFERROR(INDEX(G$1:G1,MATCH(2,1/(J$1:J1=J2))),"")

注意：旧版Excel需要按Ctrl+Shift+Enter触发数组计算，新版Excel直接回车即可。

方案二：VBA代码批量处理 #

如果你的数据量很大，或者需要自动更新计算结果，可以用VBA宏来实现：

1. 打开Excel，按下Alt+F11打开VBA编辑器
2. 右键点击左侧的工作表名称，选择「插入」→「模块」
3. 粘贴以下代码：

Sub CalculateLastSubmissionTime()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim employeeDict As Object
    
    ' 替换成你的工作表名称，比如"员工提交记录"
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "J").End(xlUp).Row
    
    ' 用字典存储每个员工的最新提交时间
    Set employeeDict = CreateObject("Scripting.Dictionary")
    
    ' 遍历所有数据行（跳过第1行表头）
    For i = 2 To lastRow
        Dim empName As String
        Dim currentTime As Variant
        
        empName = ws.Cells(i, "J").Value
        currentTime = ws.Cells(i, "G").Value
        
        ' 检查字典中是否已有该员工的记录
        If employeeDict.Exists(empName) Then
            ' 写入上次提交时间到K列
            ws.Cells(i, "K").Value = employeeDict(empName)
        Else
            ' 首次提交，K列留空
            ws.Cells(i, "K").Value = ""
        End If
        
        ' 更新字典中该员工的最新时间
        employeeDict(empName) = currentTime
    Next i
    
    MsgBox "上次提交时间已计算完成！"
End Sub

4. 修改代码中的Sheet1为你实际的工作表名称，按下F5运行宏即可。

重要提示 #

• 确保你的数据是按提交时间（G列）升序排列的，这样上方的记录一定是更早的提交，计算结果才准确。
• 如果有重复的同一时间同一员工的记录，公式和代码都会取最近的上一条记录。

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