数据间隔7天进行汇总

lgzxmlg · 发表于 2019-2-17 09:42

对数据按周进行汇总.zip (13.81 KB, 下载次数: 42) 每间隔7天，不足7天按剩余天数，对数据进行汇总

张道贤 · 发表于 2019-2-17 10:15

用数据透视处理

lgzxmlg · 发表于 2019-2-17 10:26

张道贤发表于 2019-2-17 10:15
用数据透视处理

数据是从多个文件中导入的，每天要统计，想用VBA处理。数据透视也不会。

张道贤 · 发表于 2019-2-17 10:28

lgzxmlg 发表于 2019-2-17 10:26
数据是从多个文件中导入的，每天要统计，想用VBA处理。数据透视也不会。

透视不影响数据源表格，你可以继续每天统计

james.wan · 发表于 2019-2-17 10:32

汇总本身没大的难度，主要是楼主对周的理解上，因为209-1-1是星期二，之前的数据如何处理，结果表没有任何可以参照的数值

lgzxmlg · 发表于 2019-2-17 10:39

james.wan 发表于 2019-2-17 10:32
汇总本身没大的难度，主要是楼主对周的理解上，因为209-1-1是星期二，之前的数据如何处理，结果表没有任何 ...

以第一个日期为开始，向下间隔7天统计一次，不足7天，有几天统计几天。不按日历星期统计。

james.wan · 发表于 2019-2-17 11:15

lgzxmlg 发表于 2019-2-17 10:39
以第一个日期为开始，向下间隔7天统计一次，不足7天，有几天统计几天。不按日历星期统计。

这样的话，1月5日应为第一周，而示例的却是1月6日，无法准确理解楼主的意思

lgzxmlg · 发表于 2019-2-17 11:23

james.wan 发表于 2019-2-17 11:15
这样的话，1月5日应为第一周，而示例的却是1月6日，无法准确理解楼主的意思

老师对不起，我的失误，应该为：到1月5日一个周期，到1月12日一个周期，到1月19日一个周期，到1月26日一个周期，剩余到1月29日一个周期，分别进行求和。请老师帮忙。谢谢！

一把小刀闯天下 · 发表于 2019-2-17 11:35

本帖最后由一把小刀闯天下于 2019-2-17 11:45 编辑

Option Explicit

Sub test()
  Dim arr, i, j, m, sum, n
  arr = Sheets("数据").[a1].CurrentRegion.Offset(2)
  ReDim brr(1 To UBound(arr, 1), UBound(arr, 2))
  For i = 1 To UBound(arr, 1) - 2
sum = sum + arr(i, 2)
If i Mod 7 = 0 Or i = UBound(arr, 1) - 2 Then
   m = m + 1: n = n + 1: brr(m, 0) = Format(n, "第0周")
   For j = 1 To UBound(arr, 2): brr(m, j) = arr(i, j): Next
   brr(m, 2) = sum: sum = 0
End If
  Next
  With Sheets("结果").[a3]
.Resize(Rows.Count - 2, UBound(brr, 2) + 1).ClearContents
.Resize(m, UBound(brr, 2) + 1) = brr
  End With
End Sub

lgzxmlg · 发表于 2019-2-17 11:42

一把小刀闯天下发表于 2019-2-17 11:35
Option Explicit

Sub test()

完美解决，谢谢老师

		自动登录	找回密码
密码			免费注册

[求助] 数据间隔7天进行汇总

评分