求vba在指定的excel表格内，循环滚到。

Question

求vba在指定的excel表格内，根据内容自动循环滚动到最后一行，在从第一行滚动。

每天需要把excel工单投屏到车间里，工单有多有少，有时候需要多页显示，用vba在指定的表格内（工单汇总表），根据内容自动循环。

Answer 1

Sub 宏1()

    Dim i&, n&

    n = ActiveSheet.UsedRange.Rows.Count

    While True

        Cells(1, 1).Activate

        For i = 1 To n - 10

            Application.Wait Now() + 1 / 24 / 3600

            DoEvents

            ActiveWindow.SmallScroll Down:=1

        Next i

    Wend

End Sub

着是1秒滚动一行的代码，如果需要慢一点修改wait行的1为其它数，如果需要一次滚动多行修改down后面的数值

程序没有设置终止，一天都滚动，滚完又从头开始，下班的时候按CTRL+BREAK