作為賓語
暗淡我壹樣長
Dim Dsum
暗淡排列
arr = Range(" a 1:C " & amp；[A65536]。結束(xlUp)。行)
Set oDic = CreateObject("腳本。字典》)
用oDic
對於i = 1到UBound(Arr)
oDic(格式(Arr(i，1)，" YY-m-d ")& amp；“@ @”& amp；Arr(i，2)) = oDic(Format(Arr(i，1)，" YY-m-d ")& amp；“@ @”& amp；Arr(i，2)) + Arr(i，3)
然後
以…結尾
dsum = oDic(Format(" 2010-8-5 "，" YY-m-d ")& amp；“@ @”& amp；“A”)’“2010-8-5”這是妳求和的日期，“A”是名字。根據需要自行設置。
末端接頭