大家平常工作中,可能遇到查找并列举出所有包含关键词的行。
那么许多朋友就要说了,小编你是不是傻,EXCEL自带的筛选就能搞定呀,只需要在某一列输入关键词就会列出了。的确是如此,但是,如果我要求列出所有列包含的关键词的行呢?傻眼了吧?
以下图为例,举个例子,我想要查询并列出包含关键词“棉”的所有行怎么办?
上步骤。
说明一下,数据在工作表“数据”里面。我们可以新建一个工作表“查询”。
插入一个按钮。
新建宏,上VBA代码:
Sub 查询()
Dim brr()
Sheets("数据").Activate
arr = Sheets("数据").Range("b2:r" & [c65536].End(3).Row)
Sheets("查询").Activate
Sheets("查询").Range("A3:H65536").Clear
s = [b2]
For j = 1 To 5
For i = 1 To UBound(arr)
If InStr(arr(i, j), s) > 0 Then
n = n + 1
ReDim Preserve brr(1 To 5, 1 To n)
For k = 1 To 5
brr(k, n) = arr(i, k)
Next
End If
Next
Next
Debug.Print UBound(brr, 1)
[a3].Resize(n, 5) = Application.Transpose(brr)
End Sub
4.然后把按钮与该宏关联。搞定,我们在B2单元格输入关键词,然后点击按钮就出结果啦。
有朋友说,你这列数比较少,如果数据列数比较多怎么办呢?
只需要把代码中5改为你需要的列数就行啦。
4000520066 欢迎批评指正
Copyright © 1996-2019 SINA Corporation
All Rights Reserved 新浪公司 版权所有
All Rights Reserved 新浪公司 版权所有