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

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

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

4、在Visual Basic的面板中我们在下面一栏中输入for i =1 to Ubound（arr，1）然后我们继续向下面输入IF arr （i，1）={g3}.Value Then，如图所示。

5、向下一栏中输入IF arr （i，1）={g3}.Value Then，如图所示。

6、继续向下面输入ReDim Preserve arr1 （1to n ， 1 to 2），如图所示。

7、我们在下方的【本地窗口】中进行一个讲解，如图所示

8、为同学们讲解一下这个课程并进行一个分析，如图所示。

9、然后我们继续输入[f5].resize（n，2）=application.transpos

10、返回exel表格进行一个查看预览，如图所示。

11、为同学们讲解一下这个课程并进行一个分析，如图所示。

12、谢谢观看。