獲取最大行數= sheets ("sheet1 ")。單元格(65536，1)。結束(xlup)。劃。
對於i=2，為了獲得最大行數，第壹行是標題行。
如果單元格(I，1)= "本月合計"則
數量總和=數量總和+單元格(I，2)
總金額=總金額+單元格(I，3)
如果…就會結束
然後
MsgBox的總數量是“&；總量&；”| " & amp總金額為“&；金額總和