excel表格，一直自动循环滚动，不要说滚轮，我要的是VBA语句，求详细教程

Question

如题所述

Answer 1

是这样的效果么？

Option Explicit

Sub test()
    Dim i As Integer
    For i = 1 To 100
        DoEvents
        Application.Wait Now() + TimeValue("00:00:01")
        ActiveSheet.Rows(i).Select
    Next i
End Sub

追问

你的是一行行的选中像下走，而且到了100就不会重新从1开始，我希望就是能做出和滚轮滑动一样的效果，并且能一直重复的从1到100

本回答被网友采纳