求老师帮我看下“下标越界”的问题

janpe1984

点击打印之后就会弹出“下标越界的错误”实在是找不到原因了。
Sub 连续打印()
arr = Sheet1.[A1].CurrentRegion
For x = 3 To UBound(arr)
[O1] = "正在打印第 " & x - 1 & " 页"
[B3] = arr(x, 2): [E3] = arr(x, 1): [B4] = arr(x, 3): [B11] = arr(x, 4): [F11] = arr(x, 5)            '第一单
[J3] = arr(x, 9): [M3] = arr(x, 8): [J4] = arr(x, 10): [J11] = arr(x, 11): [N11] = arr(x, 12)         '第二单
[B16] = arr(x, 16): [E16] = arr(x, 15): [B17] = arr(x, 17): [B24] = arr(x, 18): [F24] = arr(x, 19)    '第三单
[J16] = arr(x, 23): [M16] = arr(x, 22): [J17] = arr(x, 24): [J24] = arr(x, 25): [N24] = arr(x, 26)    '第四单
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$25" '打印区域
ActiveWindow.SelectedSheets.PrintOut Copies:=1  '打印选定的工作表组,打印份数为一份,逐份打印
Next
[O1] = "打印完成，共打印 " & x - 2 & " 张"
End Sub

总是[J3] = arr(x, 9): 这个位置报错。调换位置还是这里报错。

liucf

arr = Sheet1.[A1].CurrentRegion换成

arr = Sheet1.UsedRange

liulang0808

arr = Sheet1.usedrange
用这个看看吧

liulang0808

Sheet1.[A1].CurrentRegion 对应的区域如图
所以报错的