多屏环境下Excel同工作簿跨屏幕冻结窗格与滚动行失效问题

问题出在你的代码只针对当前激活的窗口（也就是屏幕A的窗口）执行了滚动和冻结操作，而屏幕B显示Sheet2的是另一个独立的Window对象，Excel不会自动同步不同窗口的视图设置。要解决这个问题，需要遍历Excel的所有窗口，找到所有显示Sheet2的窗口，分别对它们执行视图修改操作。

修改后的完整代码 #

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Intersection As Range
    Dim Rng As Range
    Dim win As Window
    
    Application.ScreenUpdating = False
    
    Set Rng = Sheets("Sheet1").Columns(3)
    Set Intersection = Application.Intersect(Target, Rng)
           
    If Not Intersection Is Nothing Then
        ' 遍历所有窗口，找到显示Sheet2的窗口并设置视图
        For Each win In Application.Windows
            ' 判断当前窗口是否显示的是Sheet2
            If win.ActiveSheet Is Sheets("Sheet2") Then
                win.ScrollRow = 1 ' 滚动到第1行
                ' 对该窗口执行冻结首行操作
                With win
                    If .FreezePanes Then .FreezePanes = False
                    .SplitRow = 1
                    .FreezePanes = True
                End With
            End If
        Next win
        
        ' 执行自动筛选逻辑（原有正常逻辑保留）
        Sheets("Sheet2").AutoFilterMode = False
        Set Rng = Sheets("Sheet2").Range( _
                  Sheets("Sheet2").Cells(Sheets("Sheet2").Rows.Count, 2).End(xlUp), _
                  Sheets("Sheet2").Cells(1, 2))
                  
        Rng.AutoFilter _
            Field:=1, _
            Criteria1:=Format(Cells(Target.Row, 2).Value, "000"), _
            VisibleDropDown:=False
                    
        ' 回到Sheet1的选中状态
        Sheets("Sheet1").Activate
        Sheets("Sheet1").Cells(Target.Row, 2).Select
    End If
    
    Application.ScreenUpdating = True
End Sub

关键修改点说明 #

1. 遍历所有窗口：通过Application.Windows集合获取Excel当前打开的所有窗口，每个窗口对应一个屏幕上的显示实例。
2. 定位显示Sheet2的窗口：通过win.ActiveSheet Is Sheets("Sheet2")判断窗口当前显示的是否为目标工作表，确保只对显示Sheet2的窗口执行操作。
3. 直接操作窗口对象：不再依赖ActiveWindow，而是直接对找到的窗口对象设置ScrollRow和冻结窗格，这样不管窗口在哪个屏幕，只要显示Sheet2就会生效。
4. 整合冻结逻辑：把原有的FreezePanes子过程逻辑直接整合到窗口遍历中，避免不必要的工作表激活操作，减少窗口切换的额外开销。

这样修改后，当你在屏幕A操作Sheet1时，所有显示Sheet2的窗口（包括屏幕B的窗口）都会同步执行滚动到第1行和冻结首行的操作。

内容的提问来源于stack exchange，提问作者Phiplex