按条件复制数据

c2222y

1.报表中的日产能是从其它工作簿中引过来的，每天9点左右会更新
2.更新后按日期和姓名复制到汇总表“实际产量” （P是计划产量 A是实际产量，计划产量每天不变 ）
3.现在想用宏，每天9点30自动将报表中的日产能按日期和姓名复制到汇总表中，并汇总计算，或通过按钮运行宏

蓝桥玄霜

请见代码。

c2222y

蓝桥玄霜 发表于 2018-8-5 09:01
请见代码。

谢谢蓝桥老师，能否注释下代码不，谢谢！
Sub lqxs()
Dim d, Arr, i&, j&, rq, Brr '
Set d = CreateObject("Scripting.Dictionary")
Sheet9.Activate
Brr = [a1].CurrentRegion
For i = 3 To UBound(Brr, 2) Step 2
    d(Brr(3, i)) = i
    Next
Arr = Sheet1.[a1].CurrentRegion
rq = Day(Arr(1, 3)) + 4
Cells(rq, 2) = Arr(2, 2)
For i = 3 To UBound(Arr)
    If d.exists(Arr(i, 1)) Then
        j = d(Arr(i, 1))
        Cells(rq, j + 1) = Arr(i, 2)
        If rq <> 5 Then Cells(rq, j) = Cells(rq - 1, j).Value
    End If
Next
End Sub