1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Dim aSub表格每秒滚动一行() Dim i 钽吟篑瑜As Integer, Time_one As S足毂忍珩ingle, Time_two As Single Time_one=Timer: Time_two=Timer Do Time_one=Timer() Application.Wait (1) If (Abs(Time_two-Time_one) > 1) Then Time_two=Time_one ActiveWindow.SmallScroll DOWN:=a i=i+1 End IfLoop Until i=Range("a10000").End(xlUp).Row-2End SubPrivate Sub Worksheet_Change(ByVal Target As Range)If Target.Address="$A$1" And Target.Text="向下滚动" Thena=1Call表格每秒滚动一行End IfIf Target.Address="$A$1" And Target.Text="向上滚动" Thena=-1表格每秒滚动一行End IfEnd Sub
5、单击A1单元格，选择“向下滚动”，工作表立即向下滚动，每秒钟向下滚动一行，直至最后一行滚动至顶端
