代碼報錯invalid procedure call or argument
嘗試了各種方法依舊無效
代碼如下：
Sub 篩選()
Dim sh As Worksheet, rng As Range, n As Integer, sr As String
Dim arr()
Sheet2.Range("a2:e99999").Clear
sr = InputBox("Input Keyword")
For Each sh In Worksheets
If sh.Name <> "查詢" Then
For Each rng In Intersect(sh.UsedRange, sh.[b2:b99999])
If rng.Value Like sr Then
n = n + 1
ReDim Preserve arr(1 To n)
arr(n) = rng.Offset(0, -1).Resize(1, 5)
End If
Next
End If
Next sh
Sheet2.Range("a2").Resize(n, 5) = Application.Transpose(Application.Transpose(arr))
End Sub
望各位大佬指點一二
還有一點，這段代碼是想從b列把包含關鍵詞的內容抽出來，并把對應的所有列都復制到“查詢”作業表中，Like 函式可以實作嗎？還有沒有更好的實作方法？
小弟在此跪謝大佬們
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/16265.html
標籤：VBA
上一篇：求高光譜波段選擇matlab代碼
下一篇：求大神幫個忙寫vb代碼