考勤表格格式调整

Dragonfly7995

考勤表格格式调整，详见附件，请各位大神指点！谢谢！

deadzlq

PowerQuery参考解法

蓝桥玄霜

考勤表的例子：

笨鸟飞不高

Sub AwTest()
    Dim i%, j%, k%, m%, y%, n%, sr$, arr, d As Object
    Set d = CreateObject("Scripting.Dictionary")
    arr = Range("A1").CurrentRegion
    ReDim brr(1 To UBound(arr), 1 To UBound(arr))
    For i = 2 To UBound(arr)
        sr = arr(i, 1) & "|" & arr(i, 2) & "|" & arr(i, 3) & "|" & arr(i, 4) & "|" & arr(i, 5)
        If Not d.exists(sr) Then
            k = k + 1
            d(sr) = k: d(sr & "|" & "C") = 6
            For j = 1 To UBound(arr, 2)
                brr(k, j) = arr(i, j)
            Next
        Else
            m = d(sr): y = d(sr & "|" & "C") + 1
            brr(m, y) = arr(i, 6)
            n = Application.Max(n, y)
            d(sr & "|" & "C") = y
        End If
    Next
    Range("M2:R1000").NumberFormat = "h:mm:ss;@"
    Range("H2").Resize(k, n) = brr
End Sub

Dragonfly7995

笨鸟飞不高 发表于 2020-5-29 12:24
Sub AwTest()
    Dim i%, j%, k%, m%, y%, n%, sr$, arr, d As Object
    Set d = CreateObject("Scrip ...

字典法的这种应用，有没有想关链接可以学习一下，代码不是很懂，谢谢