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、谢谢观看。