从Range vba过滤多个条件

Question

我有34个项目代码的列表，它始终启动

  

（例如：FRP-BN * FRP-CD * FRP-CL * FRP-IS * NLP-FL * NLP-BR * NLP-FL *   NLP-IS *）

现在我想按照这些标准过滤工作表B，ID更长，例如这个FRP-BN32746238，其中可能有很多。我想得到所有

我试过这个

Sub Filter3()

Dim lastRow1 As Long
lastRow1 = Range("I" & Rows.Count).End(xlUp).Row
Dim lastRow2 As Long
lastRow2 = Range("J" & Rows.Count).End(xlUp).Row

Dim vCrit As Variant
Dim wsL As Worksheet
Dim rngCrit As Range


Set wsL = Worksheets("Legend")
Set rngCrit = wsL.Range("I5:I7")

vCrit = rngCrit.Value


Range("K5").Formula = vCrit
Sheets("DataSheetFR").Select
Cells.Select
Selection.AutoFilter Field:=1, Criteria1:=Application.Transpose(vCrit), _
    Operator:=xlFilterValues

我的标准列表是在I5到I35之类的东西，如果我只放入I5：I6那么它有两个不同但是它很快就会超过2它失败并且只给我一个空白列表。< / p>

我该怎么办？请帮帮我