我得了VBA“；运行时错误13类型不匹配“；错误，即使我提供了正确的数据类型。可能的错误是什么？

这是我的密码。错误在突出显示的部分

公共最后一行为整数

公共校正\u质量\u列为整数

公共质量_列为整数

公共数量_列为整数

公共停止标志为布尔值

公共当前_行为整数

公共质量为双倍

公共块\u开始\u行为整数

公共i作为整数

公共有效\u man\u计数为整数

公共子_part_列为整数

“公开披露”列为整数

子代码（）

i=当前行

当前行=块开始行

直到当前_行=i为止

校正的质量=（单元格（当前行、数量列）*单元格（当前行、质量列））/有效的人工计数） 单元格（当前行、校正的质量列）=校正的质量

当前行=当前行+1 环路

块\开始\行=当前\行

---

End Sub

必须在当前行、数量列和质量列的定义之后为其指定非零值。（不允许使用单元格（0,0））

“Public block_start_row as integer”将其值设置为零。所以“当前行=块开始行”将当前行值设置为零

---

希望对您有所帮助

您已经定义了数量列、质量列和有效人工计数，但我看不到这些变量的初始化。请检查。您是否检查了两个受影响单元格的条目是否为数字而不是文本或空？其中一个条目为空。我改正了！谢谢