从给定范围过滤多个标准

我build立了一个数据透视表给我一些产品代码和其他信息，我需要看看下面的产品代码

我想要做的是input约20个产品代码到一个给定的范围内。 运行一个VBAmacros，然后过滤A1的值，我input的范围。 我有一个可用的代码，但它只是无法正常工作。

我得到了types不匹配的错误

Sub ArrayAutofilterFromNamedRange() Dim oWS As Worksheet Dim oRange As Range Dim numrows As Integer Dim i As Integer Dim arCriteria(0 To 100) As String On Error GoTo Err_Filter Set oWS = ActiveSheet Set oRange = ActiveWorkbook.ActiveSheet.Range("mydynamicrange") numrows = oRange.Rows.Count i = 0 For Each Row In oRange arCriteria(i) = Row.Value i = i + 1 Debug.Print arCriteria(i) Next Row oWS.Range("A1").AutoFilter Field:=1, Criteria1:=arCriteria, Operator:=xlFilterValues Finish: If Not oWS Is Nothing Then Set oWS = Nothing Err_Filter: If Err <> 0 Then MsgBox Err.Description Err.Clear GoTo Finish End If End Sub 

Answer 1

你的代码行：

For Each Row In oange

将会失败，因为oange没有被定义。

（可能还有其他问题）