[已解决]求大神帮忙--考勤数据处理

yjihau009

求大神帮忙，想要处理后数据的格式， 用代码或其他方法都可以。

最佳答案

月排行榜 / 总排行榜

我行我速2008

2022-8-23 17:19

试试看行不行

Sub tt()
    Dim ar, br, cr(1 To 4), r, c, i, x
    Dim sh As Worksheet
    Set sh = Sheet2
    sh.[a1].CurrentRegion.Offset(2, 0).ClearContents
    With Sheet1
        ar = .[a1].CurrentRegion
        For r = 5 To UBound(ar)
            i = .Cells(r, 1).Cells.MergeArea.Count
            For c = 4 To UBound(ar, 2)
                 If Application.CountA(.Cells(r, c).Resize(i, 1)) > 0 Then
                    br = .Cells(r, c).Resize(i, 1)
                    cr(1) = ar(r, 3): cr(2) = ar(r, 2)
                    cr(3) = ar(3, c): cr(4) = ar(4, c)
                    x = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1
                    sh.Cells(x, 1).Resize(1, 4) = cr
                    sh.Cells(x, 5).Resize(1, i) = Application.Transpose(br)
                 End If
            Next c
            r = r + i - 1
        Next r
    End With
    Set sh = Nothing
End Sub

跳转到最佳答案楼层

我行我速2008

试试看行不行

Sub tt()
    Dim ar, br, cr(1 To 4), r, c, i, x
    Dim sh As Worksheet
    Set sh = Sheet2
    sh.[a1].CurrentRegion.Offset(2, 0).ClearContents
    With Sheet1
        ar = .[a1].CurrentRegion
        For r = 5 To UBound(ar)
            i = .Cells(r, 1).Cells.MergeArea.Count
            For c = 4 To UBound(ar, 2)
                 If Application.CountA(.Cells(r, c).Resize(i, 1)) > 0 Then
                    br = .Cells(r, c).Resize(i, 1)
                    cr(1) = ar(r, 3): cr(2) = ar(r, 2)
                    cr(3) = ar(3, c): cr(4) = ar(4, c)
                    x = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1
                    sh.Cells(x, 1).Resize(1, 4) = cr
                    sh.Cells(x, 5).Resize(1, i) = Application.Transpose(br)
                 End If
            Next c
            r = r + i - 1
        Next r
    End With
    Set sh = Nothing
End Sub

我行我速2008

多少邪恶的公司！一天上班多少小时？

yjihau009

我行我速2008 发表于 2022-8-23 18:16
多少邪恶的公司！一天上班多少小时？

谢谢！现在工厂上班时间都是这样的

yjihau009

我行我速2008 发表于 2022-8-23 17:19
试试看行不行

Sub tt()

可以了， 谢谢大神！