如何在excel中用VBA代码实现有条件的累加,变量是数组的，循环结束后一次性将结果返回到表里 20

1.A列是文本，B列是数据，结果数据在C列。2.要求当A列值是相同文本时，就累加B列数据到C列；如果A列值是不同文本时，结果数据C列等于B列数据。3.初值C2等于B2，那... 1.A列是文本，B列是数据，结果数据在C列。
2.要求当A列值是相同文本时，就累加B列数据到C列；如果A列值是不同文本时，结果
数据C列等于B列数据。
3. 初值C2等于B2，那么C3的值有以下两种可能。
如果A3的值等于A2，那么C3的值就等于B3+C2
如果A3的值不等于A2，那么C3的值就等于B3
以此类推。
要求C列的值先放在数组里，程序运行完成后再将值一次性赋值给C列。展开

 我来答

1个回答

#热议# 为什么有人显老，有人显年轻？

纸枫林
2012-10-26 · TA获得超过393个赞

知道答主

回答量：117

采纳率：0%

帮助的人：29.4万

我也去答题访问个人页

关注

展开全部

有几个问题：
1.当A列是相同文本时，这是连续的吗？比如是：11223444576...还是112123332...
2.关于你说的第3点就是这个描述，A1跟A2不相等，但是跟A3相等，这样需要B1和B3的值相加吗？

这两点确认的是同一个问题，如果只需要判断A列跟上一行的值是否相等会简单的多。如果不是就会比较复杂一点。

更多追问追答

追问

A列值相同的都连续的，即数据已经按A列排过序了

追答

sub 特殊求和()
b = [a65536].End(xlUp).Row
For u = 1 To b           
 i=1
 do 
 i=i+1
 loop until cells(i+u,1).valuecells(i,1).value and cells(u,1).value""
 cells(u,3)=Application.WorksheetFunction.Sum(range(cells(u,2),cells(u+p-1,2)))
i=i+p-1
next i
end sub

只是在记事本里简单写了下思路。调试的时候改一下就好了。