想知道一些EXCEL汇总方法

lhzhen05

直接能用公式自动生成的，详见图片

lhzhen05

这是附件，谢谢各们能帮手解决

踏雪访梅

个人建议：规范数据记录。原始数据放在一张表中，增加一列记录日期。

lhzhen05

踏雪访梅 发表于 2014-9-29 09:54
个人建议：规范数据记录。原始数据放在一张表中，增加一列记录日期。

这个我都有想过，但由于原数据表格复杂，这个表格是我自己简化了来做的，所以先想到有没有这样的方式能体现出那样的数量

cf7315752

lhzhen05 发表于 2014-9-29 10:03
这个我都有想过，但由于原数据表格复杂，这个表格是我自己简化了来做的，所以先想到有没有这样的方式能体 ...

http://club.excelhome.net/forum. ... 9&page=1#pid7873812
我在这个帖子给你回复了 你可以看看 不懂或者需要修改 可以联系我

lhzhen05

cf7315752 发表于 2014-9-29 13:16
http://club.excelhome.net/forum. ... 9&page=1#pid7873812
我在这个帖子给你回复了 你可以看看 不懂或 ...

我看到了，首先非常感谢你先！但下面那些Sub 汇总()
ActSheet_name = ActiveSheet.Name
Condition = Sheets(ActSheet_name).Cells(1, 2)
Sheets(ActSheet_name).Cells(2, 2) = 0
usemax = Sheets(ActSheet_name).UsedRange.Rows.Count
Rows("10:" & usemax + 1).Clear
For Each sht In Sheets
If sht.Name <> ActSheet_name Then
hmax = sht.UsedRange.Rows.Count
usemax = Sheets(ActSheet_name).UsedRange.Rows.Count
For i = 1 To hmax
If sht.Cells(i, 1) = Condition Then
Sheets(ActSheet_name).Cells(2, 2) = Sheets(ActSheet_name).Cells(2, 2) + sht.Cells(i, 2)
Set rng = sht.Cells(i, 1).Resize(1, sht.UsedRange.Columns.Count)
End If
Next
rng.Copy Sheets(ActSheet_name).Range("A" & usemax + 1)
Set rng = Nothing
End If
Next
End Sub

我看不懂，是公式来的吗

DDJJJJ

这个代码很有效,但是不易懂,求解释.

zhuyids

透视表汇总不能用吗