Excel VBA對象定義的錯誤

Question

我收到以下代碼的對象定義的錯誤。 知道我怎么可能做錯了嗎？ 謝謝

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

我認為這是不正確的作業。 我不熟悉正確的語法。

Error Details: "Run time error 1004. Application defined or object defined error

Answer 1

在編輯問題之前，您會忘記初始化i只需為i設置值即可。

將來，您可以使用Sub頂部的Option Explicit來確保在使用變量之前聲明了該變量。

因此，對於您的情況，只需設置i=1 ，然后將所有變量聲明為long而不是integer。 您可以參考此處以找出使用long而不是整數的原因。