作者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