vba数据冻结（VBA自动冻结和拆分窗格）

【分享成果，随喜正能量】努力解决能解决的问题。解决不了的问题，当它不存在好了。往前走，提升自己，比解决具体的问题更重要。不要试图自证清白。从你开始自证的那一刻起，你就已经输了。不要有受害者心态。就算你是受害者，也不要有。一旦以受害者自居，就彻底完了。。

《VBA经典应用69例》，是我推出的第九套教程，教程是专门针对初级、中级学员在学习VBA过程中可能遇到的案例展开，这套教程案例众多，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中要利用好VBA。本套教程共三册六十九个专题，今日内容是教程的应用5：VBA自动冻结和拆分窗格。

应用5 利用VBA完成工作表窗格的冻结及拆分

这个专题的应用仍是非常有实际意义的，内容是利用VBA来完成我们平时工作中的一些基本操作：工作表窗口的冻结及拆分。

Excel工作表操作中窗口的冻结和拆分是一个非常方便的功能，我们这讲将研究如何在 Excel中利用VBA准确使用冻结窗口功能。

(接上讲)

实例四：使用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 本讲介绍了多种属性，是否理解？

本讲内容参考程序文件：应用005.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】不要去要求别人理解你、共情你、尊重你。这是弱者的思维。强者不会这样做。所谓强者，就是能承受更多压力，能接受更多不公，能忍受更多委屈。

,