这样的内容怎么统计

ykcbf1100

wjt_1221 发表于 2023-3-10 10:32
时段合值就是5月1日到7月9日，对应值字段加起来的合值。

那就这样了。

wjt_1221

ykcbf1100 发表于 2023-3-10 11:05
那就这样了。

感谢你的回答，现在算只是一年的，能连续么？根据给定数据直接算出来2018至2022每年的，算的表格内容都是一样
2018年，接着就是2019年的

ykcbf1100

wjt_1221 发表于 2023-3-10 13:22
感谢你的回答，现在算只是一年的，能连续么？根据给定数据直接算出来2018至2022每年的，算的表格内容都是 ...

当然可以，改一下就行。那样的话，就不需要E1单元格的年份吧

你现在的统计时段是2023年的，你需要改正确才行。

wjt_1221

ykcbf1100 发表于 2023-3-10 13:29
当然可以，改一下就行。那样的话，就不需要E1单元格的年份吧

是的，感谢。给的表格里只有几年的数据，实际工作表格里有很多年，如果能根据年份直接排列下来，如1980年 1981年，1982年，每年表的内容都是示例那样。

ykcbf1100

wjt_1221 发表于 2023-3-10 13:33
是的，感谢。给的表格里只有几年的数据，实际工作表格里有很多年，如果能根据年份直接排列下来，如1980年 ...

你的意思是统计时段是固定的？

wjt_1221

统计时段是固定的，就是每年的5月1日至7月日9，5月6日至7月14日，时段的日期就是要统计每年起止时间的值合合值。

wjt_1221

ykcbf1100 发表于 2023-3-10 13:35
你的意思是统计时段是固定的？

你看附件，我最早以前的带公式的表格，是在e1单元格输入年份，计算每一年的，现在想根据日期和值两个内容，直接生成历年的表，一年一年计算太多了。现在给的附件就是最后表格的样子，但2021年5月1日至8月18日的合值计算出来是错的。每一年的统计时段是固定的，我是复制的

renkangjizhen

Sub ttt()
Dim i%, m%, n As Double, d As Date, d1 As Date, d2 As Date

For m = 3 To [g65536].End(3).Row
d1 = Cells(m, 7): d2 = Cells(m, 8)
For d = d1 To d2
For i = 2 To [a65536].End(3).Row
If Cells(i, 1) = d Then
n = n + Cells(i, 2)
End If
Next
Next
Cells(m, 9) = n
n = 0
Next
End Sub

renkangjizhen

虽然日期的显示格式不一样，但是，只要是日期格式就能用

wjt_1221

renkangjizhen 发表于 2023-3-10 14:31
Sub ttt()
Dim i%, m%, n As Double, d As Date, d1 As Date, d2 As Date

不行呢，算不出来