大家平常工作中，可能遇到查找并列舉出所有包含關鍵詞的行。
那么許多朋友就要說了vba列出某列包含某關鍵字的，小編你是不是傻，EXCEL自帶的篩選就能搞定呀，只需要在某一列輸入關鍵詞就會列出了。的確是如此，但是vba列出某列包含某關鍵字的，如果我要求列出所有列包含的關鍵詞的行呢？傻眼了吧？
以下圖為例，舉個例子，我想要查詢并列出包含關鍵詞“棉”的所有行怎么辦？
上步驟。
說明一下，數據在工作表“數據”里面。我們可以新建一個工作表“查詢”。
插入一個按鈕。
新建宏，上VBA代碼：
Sub 查詢()
Dim brr()
("數據").
arr = ("數據").Range("b2:r" & [].End(3).Row)
("查詢").
("查詢").Range("A3:").Clear
s = [b2]
For j = 1 To 5
For i = 1 To (arr)
If InStr(arr(i, j), s) > 0 Then
n = n + 1
ReDim 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 (brr, 1)
[a3].(n, 5) = .(brr)
End Sub
4.然后把按鈕與該宏關聯。搞定，我們在B2單元格輸入關鍵詞，然后點擊按鈕就出結果啦。
有朋友說，你這列數比較少，如果數據列數比較多怎么辦呢？
只需要把代碼中5改為你需要的列數就行啦。