菜鸟也懂VBA-excle2007VBA入门教程(16)

2. Join 它是Split姐妹函数，把一个数组用某一个字符连接起来

(1). 表达式 Join(数组名，\字符\

3. filter 按条件筛选符合条件的值组成一个新的数组

(1). 表达式 filter(数组，筛选条件模糊的不能精确匹配，用True包括条件所在的/用False不包括条

件所在的

4. index：引用数据，在VBA中我们当然可以用循环语句来取出工作表中单行单列数据，如果用index函数

会更快一点，大家也可以用实例来证明 (1). 表达式 Application.WorksheetFunction.Index(arr1, 0, 5)省略第二参数或者0，表示引用第三

参数的列 (2). 表达式 Application.WorksheetFunction.Index(arr1, 5, 0) 省略第三参数或者0，表示引用第二

参数的行数据

5. 实例 把A列到D列的数据合并为一列

Sub test()

Dim arr1, arr2(1 To 4), Maxrow As Long, x As Long, y As Long, t As Single '定义相关的变量

t = Timer '起始时间

Maxrow = Cells(Rows.Count, 1).End(xlUp).Row 'A最后一个有数据的单元格 arr1 = Range(\把单元格区域赋值给数组 For x = 1 To Maxrow '遍历数组arr1的一维 For y = 1 To 4 '遍历数组arr1的二维

arr2(y) = arr1(x, y) '把数组arr1的行数据赋值给数组arr2 Next y

第 42 页 共 52 页