Question

打印excel提示运行时错误9下标越界 调试之后出现宏那个黄色代码怎么弄啊 ，

Sheets("sheet2").Cells(7, 3).Value = Sheet1.Cells(i, 1).Value
Sheets("sheet2").Cells(6, 9).Value = Sheet1.Cells(i, 3).Value
Sheets("sheet2").Cells(17, 3).Value = Sheet1.Cells(i, 5).Value
Sheets("sheet2").Cells(18, 3).Value = Sheet1.Cells(i, 6).Value
Sheets("sheet2").Cells(14, 3).Value = Sheet1.Cells(i, 7).Value
Sheets("sheet2").Cells(14, 5).Value = Sheet1.Cells(i, 8).Value
Sheets("sheet2").Cells(16, 3).Value = Sheet1.Cells(i, 9).Value
Sheets("sheet2").Cells(15, 3).Value = Sheet1.Cells(i, 10).Value
' Sheets("sheet2").Cells(13, 7).Value = Sheet1.Cells(i, 16).Value
' Sheets("sheet2").Cells(13, 3).Value = Sheet1.Cells(i, 13).Value
' Sheets("sheet2").Cells(13, 5).Value = Sheet1.Cells(i, 14).Value
Sheets("sheet2").Cells(10, 7).Value = Sheet1.Cells(i, 16).Value
Sheets("sheet2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
For i = Sheet1.Cells(1, 6) To Sheet1.Cells(1, 6)

Answer 1

代码错误,检查那个 i 的值

Answer 2

问题在于你的i，你的i你定义是多少