Question

我在一个程序中工作，我需要在一列中存储4个单独的值，并取12个不同列的总和，这样我在过去12个月内可以得到4个总计。我遇到的问题是我一直在接受TYPE MISMATCH erro 13。

Sub MTBMtotals()

Sheets(8).calculate

meantot = 0
ansitot = 0
apitot = 0
othertot = 0

currmonth = Month("7/22/2013")
curryear = Year("7/22/2013")


Column = currmonth + 2
Row = (curryear - 2012) * 16 + 3

For i = 1 To 12
If Row = 2 Then
Column = 14
Row = Row - 16
End If


meantot = meantotal + Sheets(8).Cells(Row, Column)
ansitot = ansitot + Sheets(8).Cells(Row + 1, Column)
apitot = apitot + Sheets(8).Cells(Row + 2, Column)
othertot = othertot + Sheets(8).Cells(Row + 3, Column)  **<------- Error:13**

Column = Column - 1
Next

Sheets(8).Cells(3, 18) = meantotal
Sheets(8).Cells(4, 18) = ansitot
Sheets(8).Cells(5, 18) = apitot
Sheets(8).Cells(6, 18) = othertot


End Sub

谢谢，任何帮助都是很好的帮助。

Answer 1

也许您可以为我们提供示例表？顺便说一下是不是更容易使用= SUM（Cell：Cell）公式，然后复制结果或引用那些单元格？不确定你是否需要宏。

Excel VBA帮助/类型13：不匹配调试

1 个答案: