vba多條件求和:vba字典多條件求和[朗讀]

subtest()dimodicasobjectdimiaslongdimdsumdimarrarr=range(＂a1:c＂@@＂&＂a＂)'＂2010-8-5＂這個是你求和的日期,＂a＂是名稱根據需要自己。

用sumifs就可以嘛。

subs()arr=[a1].currentregionsetd=createobject(＂scripting.dictionary＂)k=1fori=2toubound(arr)t=arr(i,1)&arr(i,2)ifnotd.exists(t)thenk=k+1d(t)=kifk。

這種情況用字典法最合適subtest()arr=sheet2.range(＂a1:e＂&sheet2.[a65536].end(xlup).row)'sheet2數據存入數組setd1=createobject(＂scripting.dictionary＂)。

<p>在g5輸入公式:</p><p>=if(j$4=＂出差＂,sumproduct(($a$1:$a$100>=$g$2)*($a$1:$a$100<=$g$3)*(if(match($a$1:$a$100&offset($a$1,,match($f5。