1、本节课讲解Exel表格 VBA基础-1.9数组综合练习，本节课中用到的素材，会放置在素材包内，请各位学员点击右侧黄色按钮自行下载安装。

2、首先我们打开本节课的工程文件，如图所示。

3、我们在上方的【开发工具】中，我们找到【Visual Basic】，如图所示。

4、在Visual Basic的面板中我们在下面一栏中输入arr = [a2：f15] For i = 1 to UBound（arr），如图所示。

5、我们参考图片内容进行一个输入，如图所示。

6、这里我们讲解一下我们输入的内容，如图所示。

7、当输入完成后，我们需要注意他的上下位置，如图所示。

8、这里我们讲解一下我们输入的内容，如图所示。

9、我们点击上方的按钮，将弹出的对话框点击确定， 如图所示。

10、然后我们继续讲解一下我们输入的内容，如图所示。

11、下面一栏中输入IF Cells（s，“I”）.Value=Cells（s -1，“I”） Then：Range（Cells（s-1，“I”），Cells（s-1，“I”））.Merge，如图所示。

12、将内容进行一个复制并修改，如图所示。

13、然后我们继续讲解一下我们输入的内容，如图所示。

14、谢谢观看。