用ifthen和and函数与判断

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

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

&Arr(i,2))+Arr(i,3)NextEndWithDsum=oDic(Format("2010-8-5","yy-m-d")&"@@"&"A")'"2010-8-5"这个是你求和的日期，"A"是名称根据需要自己设置EndSub参考资料：office助...

DimSDataAsRangeDimDDataAsRangeDimRowStaAsLong,RowLasAsLongDimColStaAsLong,ColLasAsLongWithRange("A1").CurrentRegionRowSta=.Find("姓名",,,xlPart).Row+1ColSta...

假设数据区域在A2:C7，代码如下：Sub求和()[d1]=WorksheetFunction.SumIf(Range("b2:B7"),"OPEN",Range("C2:C7"))+WorksheetFunction.SumIf(Range("B2:B7"),"WIP",Range("C

解决方式见上图

【参考VBA代码】PublicSubSum12Num()WithActiveSheet.Cells(6,4).FormulaArray="=SUM(OFFSET(INDEX(2:2,,MATCH(TRUE,2:2<>0,0)),,,12))".AutoFill.Resize(2).Value2=.Value2...

用Application.WorksheetFunction引用sumifs函数能直接进行多条件求和，然后可以直接赋值就好了。a=Application.WorksheetFunction.sumifs(A:A,b:b,"*123*"，c:c,"*456*"）这句的意思就是，如果B列有包含123的...

不用字典用数组是一样的啊。只是每次是用数组和日期来匹配，然后n=n+1累计这样来计数，同样的，求和就是匹配到时就s=s+金额这样来求和可以了。