编译错误：在sum循环中键入不匹配，excel VBA

Dim SumEIP(1 To 708, 1 To 200) As Long Dim EIP(1 To 708, 1 To 200) As Integer Dim IP(1 To 708, 1 To 200) As Variant Dim LeadTime(1 To 708) As Integer Dim SR(1 To 708, 1 To 200) As Integer Dim CumReceipt(1 To 708, 1 To 200) As Integer Sub test() For i = 1 To 708 LeadTime(i) = 5 Next i For i = 1 To 708 For t = 1 To 60 For p = 1 To 2 Sum = SumEIP + EIP(p, t) Next p SumEIP(i, t) = Sum Sum = 0 EIP(i, t) = IP(i, t) + SumEIP(i, t) ''For C = 1 To LeadTime(i) - 1 '' SumReceipts = SumReceipts + SR(i, t + C) ''Next C '' CumReceipt(i, t) = SumReceipts '' SumReceipts = 0 Next t Next i End Sub 

每当我运行uncommented段的代码，我得到一个编译错误：types不匹配和Excel高亮EIP（p，t）之前的+符号。

但是，当我运行代码的评论部分，我不会得到这个错误。 我无法find解释错误差异的两者之间的区别。 我错过了什么？

提前致谢！