excel - 运行时错误 13

Question

Option Explicit

Sub value()

    Dim mynumber As Integer, mysum As Integer, myextra As Integer
    mynumber = Range("A2:A17")
    myextra = Range("B2:B17")
    mysum = mynumber * myextra
    MsgBox ("mysum")

End Sub

为什么我会得到Run time Error 13？

Answer 1

此错误表示存在类型不匹配。

确保范围实际上包含整数。

mynumber并且myextra应该通过带括号的名称声明为数组：

Dim mynumber() As Integer, mysum As Integer, myextra() As Integer