Question

VBA调用单元格内容后出现说是下标越界，不知道哪里的问题，请各位高手给我看看

Answer 1

越界的问题应该是工作簿没有名为sheet4的这个表，另外cell应为cells

Answer 2

上述程序似可用下面一条语句代替

If Abs(Sheets("sheet4").Cells(36,2).Value) >0.1 then Sheets("sheet4").Cells(24,2).Value = Sheets("sheet4").Cells(36,2).Value + 1000

追问

但是这样也是同样出现越界问题。我想问一下是不是应该建立一个模块，里面创建宏，在宏里面写入你上面输入的内容，然后点击绿色的运行的箭头？

追答

看看工作簿中有没有名为sheet4的这个表

追问

有啊，截图左边就能看见

追答

Private Sub CommandButton2_Click()
If Abs(Sheets("sheet4").Cells(36, 2).Value) > 0.1 Then Sheets("sheet4").Cells(24, 2).Value = Sheets("sheet4").Cells(36, 2).Value + 1000
End Sub
我测试过，可以的