Question

excel vba 下标越界问题,如何解决?

Sub tj() '定义tj()
Dim bm() '定义数组表名bm()
i = Worksheets.Count 'i=表的张数
ReDim bm(1 To i) '重新定义数组表名(1 to i)
For x = 2 To i '循环 从2到i
bm(x) = Sheets(x).Name '把表的名字给 表名（）
Next
For y = 4 To 80
For z = 1 To i
If Cells(y, 3) = bm(z) Then
If Sheets(bm(z)).Cells(34, 8) = "借" Then '(就是这个地方说是下标越界)
Cells(y, 2) = Sheets(bm(z)).Cells(34, 9) * (-1)
ElseIf Sheets(bm(z)).Cells(34, 8) = "贷" Then
Cells(y, 2) = Sheets(bm(z)).Cells(34, 9) * (-1)
End If
End If
Next
Next

Answer 1

你的代码似乎不完整呀
你的代码错在z,
你前面给bm赋值时，是从2到i
这样你的bm(1)将是一个空值，空工作表名的工作表不存在，所以下标越界了
把for z=1 to i
改成 for z=2 to i
就可以了

Answer 2

For x = 2 To i        '循环 从2到i
bm(x) = Sheets(x).Name  '把表的名字给 表名（）
Next

你这里是从2开始循环的，bm(1)并没有值。

For z = 1 To i
If Cells(y, 3) = bm(z) Then
If Sheets(bm(z)).Cells(34, 8) = "借" Then     '(就是这个地方说是下标越界)

你这里的z是从1开始的，所以会出错