Vba 在简单循环中找不到变量

得到一个编译错误“Variable not found”，它突出显示了C。这是一个简单的代码，我不知道为什么会出现这个错误。范围在“静态”选项卡上定义，一切看起来都很好。请帮忙

Sub RunPull()
Application.ScreenUpdating = False
Application.DisplayStatusBar = True
Sheets("STATIC").Select

For Each C In Worksheets("STATIC").Range("RunRange").Cells
    Calculate
    Sheets("STATIC").Range("RunTag") = C
    RunSeperateMacro
Next

Application.ScreenUpdating = True
Application.StatusBar = False

---

End Sub

您未能初始化代码中名为C的变量。这将正常工作：

Sub RunPull()
Dim C as Variant
Application.ScreenUpdating = False
Application.DisplayStatusBar = True
Sheets("STATIC").Select

For Each C In Worksheets("STATIC").Range("RunRange").Cells
    Calculate
    Sheets("STATIC").Range("RunTag") = C
    RunSeperateMacro
Next

Application.ScreenUpdating = True
Application.StatusBar = False
End Sub

或者，您可以查看此语句是否出现在模块顶部并将其删除：

Option Explicit

---

这一行代码强制您显式声明所有变量。

尝试在第一行之后添加一行新的变量

Dim C as Variant

。这很有效。谢谢可能重复的