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

2、首先我们打开本节课的工程文件，进行一个课程内容的讲解，如图所示。

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

4、在Visual Basic的面板中我们在下面一栏中输入arr=[a2:d15] sr=InputBox(‘请输入要查找的内容’），如图所示。

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

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

7、然后我们输入循环的内容For i = 1 to 14，如图所示。

8、向下一栏中输入a = Join （Array （arr（i，1），arr（i，2）arr（i，3）arr（i，4））），如图所示。

9、向下一栏中输入n = n + 1，如图所示。

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

11、返回exel表格进行一个讲解，如图所示。

12、然后打开【Visual Basic】面板将内容进行一个整理，如图所示。

13、向下一栏中输入[f3].Resize（n，4）=Application.transpose（arr1），如图所示。

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

15、谢谢观看。