[已解决]实例中计算时出现下标越界不知道怎么修改，敬请老师帮忙指正。

zt20j

请教老师下面一段代码中黄色部分出现下标越界如何处理，敬请批评指正！


'将拱顶沉降数据导入"数据处理"表中


Public Sub 导入拱顶数据()
      Worksheets("数据处理").Range("a8:e90").ClearContents
      Dim i, j As Integer
      j = 8
      For i = 9 To Worksheets("隧道拱顶下沉量测记录表").Cells(Rows.Count, 2).End(xlUp).Row
      Worksheets("数据处理").Cells(j, 1).Value = Worksheets("隧道拱顶下沉量测记录表").Cells(i, 2).Value
      If Trim(Worksheets("隧道拱顶下沉量测记录表").Cells(i, "m").Value) = "初值" Then
      Worksheets("数据处理").Cells(j, 2).Value = Worksheets("隧道拱顶下沉量测记录表").Cells(i, 11).Value
      Else
      Worksheets("数据处理").Cells(j, 2).Value = Worksheets("数据处理表").Cells(Rows("8:" & 8 + j), 2).Value + Worksheets("隧道拱顶下沉量测记录表").Cells(i, 11).Value
      End If
      Worksheets("数据处理").Cells(j, 3).Value = Abs(Worksheets("隧道拱顶下沉量测记录表").Cells(i, 10).Value)
     j = j + 1
     Next i
End Sub

最佳答案

月排行榜 / 总排行榜

Zipall

2013-12-28 12:24

数据处理表
多了个字

跳转到最佳答案楼层

Zipall

数据处理表
多了个字

zt20j

谢谢老师，我自己竟然范了一个低级的错误，呵呵！