组重复的组中的最小和最大日期

需要组标识符。使用给定的样本:前3条记录是第1组，接下来的2条是第2组，最后2条是第3组。使用Excel后面的VBA来填充列。当Contract值变化时，组ID也随之变化。

Sub SetGID()
Dim c As Integer, r As Integer, x As Integer, i As Integer
c = 1
r = 2
i = 1
x = Cells(r, 4)
Do While Not IsEmpty(Cells(r, 2))
Cells(r, 1) = i
r = r + 1
If Cells(r, 4) <> x Then
i = i + 1
x = Cells(r, 4)
End If
Loop
End Sub

或者将数据原样导入到Access中，然后运行类似的过程来更新表中的字段。这将涉及打开记录集并循环其记录。

聚合查询在GroupID上进行汇总。

SELECT          GroupID, EmpNo, Contract, 
MIN(WorkDate) AS StartDate, 
MAX(WorkDate) AS EndDate
FROM            RD1
GROUP BY        GroupID, EmpNo, Contract