与数组相关的函数之filter！

前面章节讲过了将数据合并在一起（join），把数据拆分开来（split），今天我们讲下在数据中筛选的一个函数，filter。

在讲join的时，我们是先把每行数据合并在一起，然后通过like来判断是包含关键字，符合条件的数据组成一个新的数组。

与数组相关的函数之join！

有了filter后，通过filter可以直接讲符合筛选条件的数据纳入到一个新的数组中去。

代码如下：

Sub 查找筛选()

Dim arr(), hs%, n%, rng As Range, arr1, arr2, arr3, m%

hs = Range('a1').CurrentRegion.Rows.Count

For Each rng In Range('a2', [a2].End(xlDown))

n = n 1

ReDim Preserve arr(1 To hs - 1)

arr(n) = join(Application.Transpose(Application.Transpose(rng.Resize(1, 4))))

Next

arr1 = Filter(arr, InputBox('请输入要查找的内容'))

ReDim arr2(1 To UBound(arr1) 1)

For Each arr3 In arr1

m = m 1

arr2(m) = Split(arr3)

Next

[f2].Resize(m, 4) = Application.Transpose(Application.Transpose(arr2))

End Sub

基本用法：

filter（待筛选的数组，筛选关键字）

今天的分享就到这里！

视频教程正在陆续录制中，进入公众号后台菜单中可了解详情！