如何检测表格中重复ID分组内的重叠时间段并弹窗提示对应ID

假设你的表格存放在Excel工作表中，第1行是表头，A列对应Id、B列对应StartDate、C列对应EndDate，可直接用下面的代码实现需求：

• 代码先对数据按ID、开始日期升序排序，同ID下的时间段按先后顺序排列后，仅需要对比相邻行就可以判断重叠，比全量嵌套循环效率高很多
• 直接使用了你提供的重叠判断逻辑，同时默认同一个ID只提示一次重叠，不需要的话可以删除对应过滤代码

Sub 检测时间段重叠()
    Dim lastRow As Long
    Dim i As Long
    Dim currentId As Long, prevId As Long
    Dim start1 As Long, end1 As Long, start2 As Long, end2 As Long
    Dim ws As Worksheet
    
    ' 可替换为你自己的工作表名，比如Set ws = Sheets("数据Sheet")
    Set ws = ActiveSheet
    ' 获取数据最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 先按ID升序、开始日期升序排序，简化后续重叠判断逻辑
    With ws.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("A2:A" & lastRow), Order:=xlAscending
        .SortFields.Add Key:=Range("B2:B" & lastRow), Order:=xlAscending
        .SetRange Range("A1:C" & lastRow)
        .Header = xlYes
        .Apply
    End With
    
    ' 从第三行开始遍历，逐行和上一行对比
    For i = 3 To lastRow
        prevId = ws.Cells(i - 1, "A").Value
        currentId = ws.Cells(i, "A").Value
        
        ' 仅同一ID下的记录判断重叠
        If currentId = prevId Then
            start1 = ws.Cells(i - 1, "B").Value
            end1 = ws.Cells(i - 1, "C").Value
            start2 = ws.Cells(i, "B").Value
            end2 = ws.Cells(i, "C").Value
            
            ' 使用你提供的重叠判断逻辑
            If start1 <= end2 And start2 <= end1 Then
                MsgBox "检测到重叠ID：" & currentId, vbInformation
                ' 不需要同ID仅提示一次的话，删掉下面三行代码即可
                Do While ws.Cells(i + 1, "A").Value = currentId
                    i = i + 1
                Loop
            End If
        End If
    Next i
End Sub

如果你不想改动原表格的排序，也可以改用嵌套循环，把同ID的所有时间段存到数组里两两对比即可，仅数据量较大时运行效率会低于上述排序后对比的方案。

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