能帮忙加个条件吗？根据工作表名称按每周进行汇总，比如本周是15号-21号

凌云漂流瓶2014

能帮忙修改下代码加个条件吗？根据工作表名称按每周进行汇总，比如本周是15号-21号

醉眼看尘世

    '遍历工作簿中的每个工作表
    For Each sht In Worksheets
        '如果工作表名称不为"汇总"
        If sht.Name <> "汇总" Then
            '定义数组 arr 为当前工作表的已用区域
            tmp = Value(Replace(sht.Name, "号", "")) '=============================加此行===========
            If tmp >= 15 And tmp <= 21 Then   '=============================加此行===========
                arr = sht.UsedRange
                '从第 2 行开始循环到数组上界
                For i = 2 To UBound(arr)
                    '如果第 2 列的值以"D"开头
                    If arr(i, 2) Like "D*" Then
                        '将第 1 列和第 2 列的值拼接作为键 x
                        x = arr(i, 1) & arr(i, 2)
                        '将第 8 列的值累加到键 x 对应的项 d1(x)
                        d1(x) = d1(x) + Val(arr(i, 8))
                        '将第 9 列的值累加到键 x 对应的项 d2(x)
                        d2(x) = d2(x) + Val(arr(i, 9))
                    End If
                Next
            End If '=============================加此行===========
        End If
    Next

ykcbf1100

楼主的需求说明总是说得不明不白的，我看了一下，汇总表和分表感觉一样的？哪里有区别？

凌云漂流瓶2014

ykcbf1100 发表于 2024-7-20 17:13
楼主的需求说明总是说得不明不白的，我看了一下，汇总表和分表感觉一样的？哪里有区别？

数据不一样，汇总表数据是分表的和

ykcbf1100

凌云漂流瓶2014 发表于 2024-7-20 17:20
数据不一样，汇总表数据是分表的和

2024/7/2-7/4，意思是汇总2号~4号的表？

凌云漂流瓶2014

ykcbf1100 发表于 2024-7-20 17:13
楼主的需求说明总是说得不明不白的，我看了一下，汇总表和分表感觉一样的？哪里有区别？

比如这个月分表就有31个，周报表5个，按1-7，8-14，15-21，22-28，29-31.周报表的数据就是按1-7进行汇总

凌云漂流瓶2014

ykcbf1100 发表于 2024-7-20 17:29
2024/7/2-7/4，意思是汇总2号~4号的表？

是的..........

ykcbf1100

凌云漂流瓶2014 发表于 2024-7-20 17:31
是的..........

你的日期，有2024/7/2,也有2 0 2 4 / 7 / 2，你这日期格式先搞成一样啊。同一个表还有二种日期格式，自我加压吗？

凌云漂流瓶2014

ykcbf1100 发表于 2024-7-20 21:20
你的日期，有2024/7/2,也有2 0 2 4 / 7 / 2，你这日期格式先搞成一样啊。同一个表还有二种日期格式，自我 ...

如果我把汇总表名称改成第1周，汇总的是1号-7号的数据可以吗？工作表里面024/7/2,也有2 0 2 4 / 7 / 2可以删除掉

ykcbf1100

凌云漂流瓶2014 发表于 2024-7-20 22:27
如果我把汇总表名称改成第1周，汇总的是1号-7号的数据可以吗？工作表里面024/7/2,也有2 0 2 4 / 7 / 2可 ...

那应该不行吧，你还有组别之分呢