36
36
以下是一个VBA片段,可能对你有帮助。
Columns("D:D").Select
With ActiveWindow
.SplitColumn = 1
.SplitRow = 0
End With
ActiveWindow.FreezePanes = True
Rows("1:1").Select
With ActiveWindow
.SplitColumn = 1
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True