求指导为啥会下标越界

kulagen

想把导入表表1的数据；导到另一个工作蒲表1里面；按区域导入；报下表越界；

Sub 导表()
'


If MsgBox("  导出表>  " & vbNewLine & "  这只要一点时间", vbYesNo) <> vbYes Then Exit Sub
Application.Calculation = xlManual
'

Dim m As Integer

For m = 15 To 33
aa m
Next
MsgBox "  导出表,请检查"

Application.Calculation = xlAutomatic '开启自动重算

End Sub


Function aa(m)
Dim i As Integer
Dim j As Integer
ReDim quyu(18)
quyu(0) = "区域1"
quyu(1) = "区域2"
quyu(2) = "区域3"
quyu(3) = "区域4"
quyu(4) = "区域5"
quyu(5) = "区域6"
quyu(6) = "区域7"
quyu(7) = "预留1"
quyu(8) = "预留2"
quyu(9) = "预留3"
quyu(10) = "预留4"
quyu(11) = "预留5"
quyu(12) = "预留6"
quyu(13) = "预留7"
quyu(14) = "预留8"
quyu(15) = "预留9"
quyu(16) = "预留10"
quyu(17) = "预留11"



For k = 0 To 17
If Workbooks("表1").Sheets(m).Name = quyu(k) Then
For i = 2 To 201
j = i + 2
Workbooks("表1").Sheets(m).Cells(15, i + 4) = Sheets(5).Cells(j, k + 3)
Workbooks("表1").Sheets(m).Cells(16, i + 4) = Sheets(5).Cells(j, k + 21)
Workbooks("表1").Sheets(m).Cells(17, i + 4) = Sheets(5).Cells(j, k + 39)


Next
End If
Next
End Function

koala219

ReDim quyu(18)     →ReDim quyu(0 TO 17)

kulagen

koala219 发表于 2019-7-17 15:44
ReDim quyu(18)     →ReDim quyu(0 TO 17)

还是下表越界；运行到这If Workbooks("表1").Sheets(m).Name = quyu(k) Then

蓝桥玄霜

工作簿中有18个表格吗？如果不足18个，就会出错。

kulagen

蓝桥玄霜 发表于 2019-7-18 09:10
工作簿中有18个表格吗？如果不足18个，就会出错。

有十八个；7个区域加预留的11个就是18个表

kulagen

嗡嗡嗡哇哇哇哇哇

maditate

For m = 15 To 33

意思是m 可以等于33
Workbooks("表1").Sheets(m).Cells(15, i + 4) = Sheets(5).Cells(j, k + 3)  
这里的意思是有33个工作表？

kulagen

maditate 发表于 2019-7-18 15:02
For m = 15 To 33

意思是m 可以等于33

是33个表，有几个表我隐藏了，发发发发发发，

kulagen

求指导求指导求指导求指导求指导求指导

半百

你的表1里只有32个工作表，我数了好几遍，十分确定