将所有表滚动到指定的单元格行，代码分享

lizi007

1. 
   
2. Sub AllScroll()
   
3. On Error GoTo 1
   
4. Dim bb As Range
   
5. With ActiveWorkbook
   
6.     a = .ActiveSheet.Index
   
7.     Set bb = Application.InputBox("滚动到指定行", "全部表滚动到指定行", "$a$1", Type:=8)
   
8.     b = bb.Row
   
9.     c = bb.Column
   
10.     Application.ScreenUpdating = 0
    
11.     For i = 1 To .Sheets.Count
    
12.         .Sheets(i).Select
    
13.         ActiveWindow.ScrollRow = b
    
14.         Cells(b, c).Select
    
15.     Next
    
16.     .Sheets(a).Select
    
17. End With
    
18. 1:
    
19. Exit Sub
    
20. Application.ScreenUpdating = 1
    
21. End Sub

复制代码

该贴已经同步到 lizi007的微博

lizi007

主要用途>>将相同的内容滚动到同一行，可以方便的对多个表的内容进行比较查看。

lizi007

可以配合Ctrl+PgUP、Ctrl+PgDn使用

myh17909

大神，我爱死你了，到处都找不到这个方法！谢谢~~~谢谢~~~谢谢~~~谢谢~~~谢谢~~~谢谢~~~谢谢~~~