Excel VBA对象定义错误

我得到一个对象定义错误，代码如下知道我做错了什么吗？谢谢

Sub Loop_Test2()

    Dim i As Integer
    Dim j As Integer
    Dim CountAll As Integer
    Dim CountXL As Integer

    ActiveSheet.Range("A1").Activate

    CountAll = ActiveSheet.Range("A35")
    MsgBox CountAll

    For j = 1 To CountAll
      i = 1    

这就是发生错误的地方：

      CountXL = Cells(i, j).Value

继续：

      MsgBox CountXL

      For i = 1 To CountXL + 2
        Cells(i + 2, j) = "Row " & i & " Col " & j
      Next i
    Next j

End Sub

我认为这是一个错误的作业。我不熟悉正确的语法

---

错误详细信息：“运行时错误1004。应用程序定义的错误或对象定义的错误

在编辑问题之前，您忘记了在

i

上写首字母。因此只需设置

i

的值

将来，您可以在Sub顶部使用

Option Explicit

，以确保在使用变量之前声明该变量

---

因此，对于您的情况，只需设置

i=1

，并请将所有变量声明为long而不是integer。您可以参考了解使用long而不是integer的原因。

请发布错误。您好。我在做了一些测试后修改了帖子。错误似乎出现在“CountXL”中作业。我想这是因为我没有初始化“I”。你知道怎么做吗？此外，我认为我给“CountXL”赋值的方式没有正确完成，只需将值设置为i like

i=1

。同时，请使用long而不是integer来提高脚本性能。它工作正常，谢谢。将单元格（i，j）分配给CountXL时仍然出现错误。“类型不匹配”错误。是否改为“Long”，但我认为语法可能不正确？