跨条件求和，求解救。。。

lhzhen05

1、有没有一种方法，比如我第天都生产3种零件（​代号为零件1、零件2、零件3），而且每天都有一报表，然后在插入一个表格名为（汇总），在这个表格（汇总）中，只要我输入零件2，然后每个月的零件2各项数据都自动生成求和，有没有这一种函数。如此类推，只要我想知道那一个零件的数量，只要我输入零件名称就能在（汇总）表到自动生成

cf7315752

可以通过VBA实现，而且还可以把每个表的明细复制过来
由于你没有上传附件 我只能假象了一下数据的格式
请参见附件
汇总数据.rar (19.36 KB, 下载次数: 47)

2014-9-29 13:06 上传

点击文件名下载附件

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

lhzhen05

cf7315752 发表于 2014-9-29 13:06
可以通过VBA实现，而且还可以把每个表的明细复制过来
由于你没有上传附件 我只能假象了一下数据的格式
请 ...

五好意思，我这边下载不到，能发到我QQ邮箱(1094059886)里面吗，谢谢啦，五该晒啦。。。