《VBA经典应用69例》（版权10178981），是我推出的第九套教程，教程是专门针对初级、中级学员在学习VBA过程中可能遇到的案例展开，这套教程案例众多，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中要利用好VBA。本套教程共三册六十九个专题，今日内容：VBA经典应用69例应用5：使用VBA拆分窗格
【分享成果，随喜正能量】小小的善业，能赢来大的利益，小小的恶业，同样也能招致严重的后果。这正如古语所云：“莫以善小而不为，莫以恶小而为之。。
应用5 利用VBA完成工作表窗格的冻结及拆分
这个专题的应用仍是非常有实际意义的，内容是利用VBA来完成我们平时工作中的一些基本操作：工作表窗口的冻结及拆分。
Excel工作表操作中窗口的冻结和拆分是一个非常方便的功能，我们这讲将研究如何在 Excel中利用VBA准确使用冻结窗口功能。
3 使用VBA拆分窗格
我们接下来看利用VBA如何对窗格进行拆分。在拆分单元格时利用的是Window.Split等一些属性，我们先来介绍一下这些属性。
① Window.Split属性：如果指定窗口被拆分，则该属性值为 True。读/写 Boolean。
语法：expression.Split
其中expression为一个代表Window对象的变量。
- 该属性仅应用于工作表和宏工作表。
② Window.SplitColumn属性：返回或设置将指定窗口拆分成窗格处的列号（拆分线左侧的列数）。 读/写 Long。
语法：expression.SplitColumn
其中expression为一个代表Window对象的变量。
示例：ActiveWindow.SplitColumn = 1.5 表示拆分线左侧留有 1.5 个列宽。
③ Window.SplitRow 属性：返回或设置将指定窗口拆分成窗格处的行号（拆分线以上的行数）。 读/写 Long。
语法：expression.SplitRow
其中expression为一个代表Window对象的变量。
示例：ActiveWindow.SplitRow = 10 表示拆分线以上有 10 行。
实例四：使用VBA完成水平拆分窗格
这个实例我们将利用VBA完成当前工作表的水平拆分，拆分的位置是上数第二行。下面看我给出的代码：
Sub mynzE()
Sheets("Sheet1").Activate
'完成窗口的拆分，拆分的位置是上数第二行
ActiveWindow.SplitRow = 2
End Sub
代码截图：
代码讲解：（略）
代码的运行效果：
实例五：使用VBA完成垂直拆分窗格
这个实例我们将利用VBA完成当前工作表的垂直拆分，拆分的位置是左数第二列。下面看我给出的代码：
Sub mynzF()
Sheets("Sheet1").Activate
'完成窗口的拆分，拆分的位置是左数第二列
ActiveWindow.SplitColumn = 2
End Sub
代码截图：
代码讲解：（略）
代码的运行效果：
实例六：使用VBA完成指定行列拆分窗格
这个实例我们将利用VBA完成当前工作表的拆分，拆分的位置是左数第二列，上数第4行。下面看我给出的代码：
Sub mynzF()
Sheets("Sheet1").Activate
'完成窗口的拆分，拆分的位置是左数第二列，上数第四行
ActiveWindow.SplitColumn = 2
ActiveWindow.SplitRow = 4
End Sub
代码截图：
代码的解读：（略）
代码的运行效果：
总结:在此专题的内容中，我们涵盖了如何根据行、列或单元格冻结或拆分窗格。我们看到了如何手动在Excel中执行，也看到了如何使用VBA脚本实现自动化。利用VBA进行自动化的操作是一个趋势。
今日内容回向：
1 VBA自动冻结和拆分窗格是如何进行的？
2 本讲介绍了多种属性，是否理解？
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
