找不到此vba面向对象错误的根

Question

我开发了一个简单的代码，用于绘制平面壁中温度分布的单维热方程，它看起来像这样：

通过细化时间值，可以获得稳态问题的更好近似。问题是如果我输入j > 15000我得到面向应用程序的错误，我不知道如何解决这个问题。

代码如下所示：

Sub wi_ins()

Dim wall, ds, results As Worksheet
Dim i As Integer
Dim T, j, jota As Double

Set wall = Sheets("WITH INSULATOR")
Set ds = Sheets("DATA SPREAD 2")
Set results = Sheets("RESULTS 2")

ds.UsedRange.ClearContents

With ds
    Lw = wall.Cells(20, 9).Value
    Li = wall.Cells(19, 13).Value
    n = wall.Cells(19, 9).Value
    n2 = wall.Cells(18, 13).Value

    Text = wall.Cells(22, 9).Value
    Tint = wall.Cells(23, 9).Value

    jota = wall.Cells(14, 20).Value

    .Range(.Cells(1, 1), .Cells(n - 1, 1)).Value = Text
    .Range(.Cells(n, 1), .Cells(n + n2 - 1, 1)).Value = Text

    .Range(.Cells(1, 1), .Cells(1, jota)).Value = Text ' <--- //this is where the error appears
    .Cells((n - 1 + n2), 1).Value = Tint
    '... rest of code below

正如您所看到的，我只需在一个范围内使用j并粘贴T.ext。如果“jota”大于15000，它将无法正常工作