作者Lazulite (Trade Off)
看板Office
标题Re: [问题] Excel资料整理问题
时间Thu Feb 21 13:57:46 2008
※ 引述《tea0226 (第1次玩娃娃机夹到战利品)》之铭言：
: (若是和其他不同软体互动之问题 请记得一并填写)
: 您所使用的软体为:excel
: 版本:2003
: 问题:
: 想请问大家一下
: 我有一份资料如下表
: 想要得到连续的负数值跟下一个正值相加的结果
: 例如 B5就是-1-7-9+10=-7
: B9就是-9-7+3=-13
: 因为资料有上百笔 想问是否有简单的方法得到这些结果
: thanks!!
: A B
: 1 4
: 2 -1
: 3 -7
: 4 -9
: 5 10 -7
: 6 61
: 7 -9
: 8 -7
: 9 3 -13
请试用这个VBA吧....
__________________________________________________________
Sub test()
Dim End_data As Integer
End_data = WorksheetFunction.CountA(Range("A:A"))
For i = 2 To End_data
If Cells(i, 1) > 0 And Cells(i - 1, 1) < 0 Then
For j = i - 1 To 1 Step -1
If Cells(j, 1) > 0 Then Exit For
Next j
Cells(i, 2) = WorksheetFunction.Sum(Range(Cells(i, 1), Cells(j + 1, 1)))
Else
Cells(i, 2) = ""
End If
Next i
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.138.45.37
1F：推 tea0226:thanks! 真的很快... 02/22 15:35