Sub 月底用()
Dim i As Integer
Dim j As Integer
i = Range("q66536").End(xlUp).Select
j = Range("o66536").End(xlUp).Select
Range(Cells(8, 17), Cells(i, 17)).Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-60
Range("G8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-6
Range(Cells(8, 9), Cells(j, 15)).Select
运行到Range(Cells(8, 17), Cells(i, 17)).Select 行就无法运行下去了,毛病在哪呢?