你这个使用合并计算就可以完成了。打开合并计算，然后分别点击每一个表要计算的。数据范围添加进去。添加完这三个。计算的表之后点击确定就可以自动在另一个新表里面帮助你统计每一个人的数据。

用ifthen和and函数与判断

ColSta=.Find("姓名",,,xlPart).Column+2RowLas=.Columns(1).Find("合计",,,xlPart).Row-1ColLas=.Find("签字",,,xlPart).Column-3EndWithSetDData=Range(Cell...

如何用VBA实现多条件数据汇总第一步、随意点击一个单元格，然后点击菜单栏里面的“数据选项”，“数据选项”这里有一个“数据工具”，里面有一个“合并求和”，可以使用这个工具进行操作；第二步、在新弹出的对话框里面选择...

在单元格中对多表进行条件求和()Forj=2To5xm=Cells(j,3)X=0Forsht=1ToSheets.CountWithSheets(sht)ForH=2To7If.Cells(H,1)=xmThenX=X+.Cells(H,2)NextH...

如图：一、源数据（分表）源数据（分表）二、汇总表汇总表验算

Sub多条件数据整理()DimrngAsRangeDimiAsLongForEachrngInRange(Range("C2"),Range("C2").End(xlDown))i=rng.Offset(0,10).Value+rng.Offset(1,10).ValueIfrng=rng.Offset(1...

1、代码如下：Sub制作()DimrngAsRange,rngsAsRange,iRange("c2:d2")=Array("单项总价","合计总价")ForEachrngInRange("e3",[e3].End(xlDown))n=Application.Sum(rng(1,2).Resize...

n=0'计算总行数foreachtinarray("a","b","c")n=n+sheets("汇总"&t).usedrange.rows.countnexttredimarr(1ton,1to4)'结果数组n=0'结果数组行数foreachtinarray("a",&qu

假设有A、B、C列为条件列。D列为求和列；先设置一辅助列，比如IV列fori=startrowtoendrowrange("IV"&i)=range("A"&i)&"|"&range("B"&i)&"|"&range("C"&i)nextiset...