拆分窗口并冻结窗格

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