有日期的天数及人员天数生成明细数据的难题！

lj1226189

生成明细数据.zip (52.98 KB, 下载次数: 12)

2025-12-20 18:19 上传

点击文件名下载附件

  这个表格黄区是根据绿区生成的日期统计数据和人员统计数据 但目前绿区日期天数是对 的 但人员统计数不对！

各位大佬帮我看看如何生成明细数据同时符合日期和人员的天数！ 谢谢！

鄂龙蒙

生成明细数据00.rar (59.7 KB, 下载次数: 4)

2025-12-20 19:08 上传

点击文件名下载附件

lj1226189

鄂龙蒙 发表于 2025-12-20 19:08

你好 首先感谢你！

然后 这个可能是我表达不清楚原因

不是要绿区统计 而是根据黄区的统计数据 反向生成如绿区一样的原始数据  也就是绿区的原始数据要能统计后与黄区的一致！！

麻烦你再帮我看一下 再次感谢！

laoye5403

字典计数...............................

lj1226189

laoye5403 发表于 2025-12-20 19:24
字典计数...............................

不是从绿区统计成黄区

而是通过黄区反向生成类似绿区的数据

现在绿区是不对的 绿区统计出的人的天数与黄区不一致
1.按日期每天出勤人数，2.按人今年出勤次数要对上
麻烦大佬再帮我看一下！

ynzsvt

要根据结果造假制造原始数据啊，那答案可不是唯一的噢。

quqiyuan

我看了一下，你数据对的吗？

gwjkkkkk

gwjkkkkk

Option Explicit
Sub test2()
    Dim ar, br, vResult, i&, j&, r&, m&, n&
   
    Application.ScreenUpdating = False
   
    ar = Range("A1").CurrentRegion.Value
    For i = 2 To UBound(ar)
        m = m + ar(i, 2)
    Next i
    br = Range("D1").CurrentRegion.Value
    For i = 2 To UBound(br)
        n = n + br(i, 3)
    Next i
    If m <> n Then
        Application.ScreenUpdating = True
        MsgBox "数据有误，请检查！": Exit Sub
    End If
   
    ReDim vResult(m, 1 To 4)
    vResult(0, 1) = "日期": vResult(0, 2) = "姓名": vResult(0, 3) = "金额"
    For i = 2 To UBound(br)
        For j = 1 To br(i, 3)
            r = r + 1
            vResult(r, 2) = br(i, 1): vResult(r, 3) = br(i, 2)
        Next j
    Next i
    r = 0
    Do
        For i = 2 To UBound(ar)
            If ar(i, 2) > 0 Then
                r = r + 1
                vResult(r, 1) = ar(i, 1)
                ar(i, 2) = ar(i, 2) - 1
                m = m - 1
            End If
        Next i
    Loop Until m = 0
   
    Range("M1").CurrentRegion.Clear
    With Range("M1").Resize(UBound(vResult) + 1, 3)
        .CurrentRegion.Clear
        .Value = vResult
        .Columns(1).NumberFormatLocal = "yyyy-m-d"
    End With
   
    Application.ScreenUpdating = True
    Beep
End Sub

lj1226189

ynzsvt 发表于 2025-12-20 19:57
要根据结果造假制造原始数据啊，那答案可不是唯一的噢。

是的 可以答案不唯一 但是要求
1.按日期每天出勤人数，2.按人今年出勤次数要对上