如何在excel中用VBA代碼實現有條件的累加？

假設表1從A2到A102有101行數據 Submypro() DimarrA(100)AsSinglerem定義數組arrA來儲存A列的數據 DimarrB(100)AsSinglerem定義數組arrB來儲存將要返回到B列的數據 DimiAsInteger Fori=0To100 arrA(i)=Sheet1.Cells(i+2,1).Valuerem數組arrA賦值 Next arrB(0)=arrA(0)remB2的值等于初始值A2的值 Fori=1To100 IfarrA(i)=arrA(i-1)Then arrB(i)=arrA(i)+arrB(i-1)remA3的值等于A2，那么B3的值就等于A3+B2 Else arrB(i)=arrA(i)remA3的值不等于A2，那么B3的值就等于A3 EndIf Next Fori=0To100 Sheet1.Cells(i+2,2).Value=arrB(i)rem循環結束后一次性將結果返回到表里 EndSub