Vba 在这种情况下，类型不匹配错误13从何而来？

我的一个Excel工作表包含许多数据，单元格采用数字格式。（例如，它填充了数字，如102458）

在另一个工作表中，我尝试在第一个工作表的基础上进行一些微积分，为此，我使用VBA代码：

Dim sum, price, strike As Double
sum= 0
strike = 0.02

For k = 1 To 5000

sum= sum+ Worksheets("Feuille1").Cells(k, 7).Value - strike


Next k

当我尝试运行此命令时，带有sum的行对应于错误13类型不匹配

---

我尝试过改变单元格格式，甚至用Variant代替Double，但都没有改变。如何避免类型不匹配？

工作表“1”范围“G1”中是否有标题？ 在这种情况下，您试图向总和中添加一个字符串，这将导致类型不匹配。如果数字从第2行开始，则将循环更改为

For k = 2 to 5000

---

尝试比较

strike

的

Var\u-Type

，

单元格的
Var\u-Type
（k，7）.Value

，以及

sum

的

Var\u-Type

。旁注：需要为每个变量指定一种类型。在

点心、价格中，按双倍执行

只有最后一个是

双倍

前两个是

变体

。使用

点心作为双倍，价格作为双倍，罢工作为双倍。表格“Feuille1”范围“G1”中是否有标题？在这种情况下，您试图向总和中添加一个字符串，这将导致类型不匹配。如果数字从第2行开始，则将k=2到5000的数字改为
。
@ClementB避免使用
工作表（）
，除非您知道原因。
工作表
集合仅包含工作表，但
工作表
对象还包含图表等。因此在此处使用
工作表
没有任何意义！感谢你们大家，@Rik Sportel你们是对的，G1有一个头球。如果你想回答，我会接受的。