VBA 调用 sum

'可能t从1 开始的，加个判断试试
Option Explicit
Sub abc()
　Dim j, t1, t2
　t1 = 2
　For t2 = 1 To 10
　　If t2 >= t1 Then
　　　j = Application.WorksheetFunction.sum(Range("d" & t1 & ":d" & t2))
　　　Cells(t2, "e") = j
　　End If
　Next
End Sub

'应该是这意思的吧
Option Explicit
Sub abc()
　Dim a, i, sum
　a = [a1].CurrentRegion.Offset(1).Resize(, 3).Value
　For i = 1 To UBound(a) - 1
　　sum = sum + a(i, 2)
　Next
　For i = 1 To UBound(a) - 1
　　sum = sum - a(i, 3)
　　If sum < 0 Then Exit For
　Next
　[d:d].ClearContents
　If i < UBound(a) Then Cells(i + 1, "d") = a(i, 1)
End Sub

[a1].CurrentRegion 与[a1]单元格相邻的数据块，就是获取的是数组。
.Offset(1) 偏置的意思，就是从第二行获取数据，如果offset(1,1)那么是从第二行第二列开始取数据。
.Resize(, 3) 指定获取的列，如果resize(10,3)那就是行列都确定的数据块。
.Value 仅获取数据，对运行速度有影响，如果数据量很小可以不写。