WPS Office excel如何将同一个人同一个日期的考勤时间在一行上显示？

效果如下动态图：

代码如下图：

代码文本如下：

Sub 数据转换同行显示()

Dim arr(1 To 10000, 1 To 10)

For i = 2 To 10000

    If Cells(i, 1) = "" Then Exit For

    If Cells(i, 2) <> Cells(i - 1, 2) Or Cells(i, 4) <> Cells(i - 1, 4) Then

        n = n + 1

        arr(n, 1) = Cells(i, 1)

        arr(n, 2) = Cells(i, 2)

        arr(n, 3) = Cells(i, 3)

        arr(n, 4) = Cells(i, 4)

        arr(n, 5) = Cells(i, 5)

        arr(n, 6) = Cells(i + 1, 5)

        arr(n, 7) = Cells(i + 2, 5)

        arr(n, 8) = Cells(i + 3, 5)

    End If

Next

[l2].Resize(n, 8) = arr

End Sub