Excel 运行时错误13

为什么会出现运行时错误13？

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

确保这些范围实际上包含整数

mynumber

和

myextra

应在名称后加括号声明为数组：

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

---

你期望你的结果是什么？你能给我们举一个A列和B列中的数字的例子，以及预期的结果吗？我们可以提出许多不同的建议，但需要更多的信息。i、 你是在乘以列的和，还是a2*b2+a3*b3，或者其他什么？

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