拆分窗口并冻结窗格

Sub 按钮7_Click()
    Dim wd As Window
    Set wd = ActiveWindow
    With wd
        .SplitColumn = 0
        .SplitRow = 3
    End With
    ActiveWindow.FreezePanes = True
    Set wd = Nothing
End Sub