Row_Number Over Partition 的替代方案

Question

我的数据格式如下：

ID          Agent          AgentState          StateType          StartTime          EndTime
            Smith, Bob     WaitingForCall      Productive         08:00              10:00
            Smith, Bob     OnCall              Productive         10:00              10:30
            Smith, Bob     LoggedOut           NonProductive      10:30              10:45
            Smith, Bob     WaitingForCall      Productive         10:45              11:00
            Smith, Bob     OnCall              Productive         11:00              11:45
            Smith, Bob     OnCall              Productive         11:45              12:15
            Smith, Bob     LoggedOut           NonProductive      12:15              13:15

我想要完成的是结合所有时间范围来使用生产类型。所以最终的结果是：

ID          Agent          StateType          StartTime          EndTime
            Smith, Bob     Productive         08:00              10:30
            Smith, Bob     NonProductive      10:30              10:45
            Smith, Bob     Productive         10:45              12:15
            Smith, Bob     NonProductive      12:15              13:15

在之前的工作中，我可以访问 SQL 服务器，我可以通过使用 Row_Number Over Partition 来实现这一点。现在我只能访问 excel/access，我发现很难创建一种将数据“压缩”到仅 StateType 持续时间的方法。我拉取数据的系统无法更改，因此原始格式也无法修改。

Answer 1

这可能不是解决此问题的最佳方法，但应该可以。您可能可以在 SQL 中以某种方式做到这一点，但我不知道该怎么做。

这假设你的数据是有序的，如果不是，你可能需要定义一个基本的容器类来保存值直到结束。

这将需要一个添加了相关列的新表。

Sub compress()
    Dim db As Database
    Dim rs As Recordset
    Dim employee As String
    Dim state As String
    Dim starting As Date
    Dim ending As Date

    Set db = CurrentDb
    Set rs = db.OpenRecordset("Table1") 'Use real table name


    Dim appendtable As Recordset
    Set appendtable = db.OpenRecordset("Table2") 'Use real table name
    With rs
        .MoveFirst
        employee = ![agent]
        state = ![statetype]
        starting = Format(![starttime], "HH:MM") 'You probably don't need the format
        ending = Format(![endtime], "HH:MM")
        Do Until .EOF
            If employee = ![agent] And state = ![statetype] Then
                ending = Format(![endtime], "HH:MM") 'Track ending times
            Else
                appendtable.AddNew 'Append data
                appendtable![agent] = employee
                appendtable![statetype] = state
                appendtable![starttime] = starting
                appendtable![endtime] = ending
                appendtable.Update

                employee = ![agent] 'Reset Data
                state = ![statetype]
                starting = Format(![starttime], "HH:MM")
                ending = Format(![endtime], "HH:MM")
            End If
            .MoveNext
        Loop
    End With



End Sub