作者natura1ism (操)
看板Visual_Basic
標題[VBA ] [問題]搞不懂怎麼寫
時間Sun Jul 5 19:39:59 2009
小弟我初學
目前處理大筆資料
簡化資料如下列
Ａ Ｂ
-30 0.2
-30 0.12
-30 0.02
-20 0.3
-20 0.4
-20 0.5
-10 0.6
-10 0.7
要怎樣做才能把同樣是Ａ=-30，A=-20,A=-10的Ｂ的資料個別加總平均於C欄
以下是小弟寫的，不知道問題在哪，煩請高手指點
Sub cal()
Dim i As Integer
tot = 0
For i = 2 To ""
Do
tot = tot + Cells(i, 2).Value
Loop Until Cells(i, 9).Value <> Cells(i + 1, 9).Value
Cells(i, 10).Value = tot
Next
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.166.50.174
1F：→ Catbert:Excel有內建函數阿@@ 07/05 19:48
2F：→ lchwzu:感覺可以用Ifsum之類的 07/05 21:35
3F：→ natura1ism:7000 多筆的資料 比我列舉的複雜但規律一樣 急～～ 07/05 22:14
4F：推 jwjeng:用樞紐分析表會不會比較快? 07/06 10:02
5F：→ natura1ism:已用其他寫法完成 謝謝 07/06 10:14
6F：推 qsss:先用一欄位判斷所需要的資料, 再用 sumif 加總即可 07/06 23:37