arrays - 在 VBA 中使用 AutoFilter 来包含所有 Array

Question

我正在尝试从列中过滤掉所有 PF、PG、PE 并输入新的工作表。下面的代码只选择了 PF、PG、PE，但当它们与列中的 PF、AT 之类的其他东西一起使用时，将不包括在内。我需要对这三个进行过滤，即使它们不仅仅是这三个。

Sub SelfInstall()
    Sheets("Sheet1").Select
    'declare variables to hold row and column numbers that define cell ranges -- DO NOT TOUCH
    Dim myFirstRow As Long
    Dim myLastRow As Long
    Dim myColumn As Long
    Dim mySourceWorksheet As Worksheet
    Dim orderSearch As Range
    Dim orderReturn As Range
    Dim orderCompare As Range
    Dim orderOutput As Range
    Dim mySourceData1 As String
    Dim mySourceData2 As String
    Dim mySourceData3 As String
    Dim mySourceData4 As String
    Dim jobtype As String
    Dim vlookupCol As Object

    Rows("1:1").Select
    Selection.AutoFilter Field:=15, Criteria1:=Array("*PF", "*PE", "*PG", "PF*", "PE*", "PG*"), Operator _
    :=xlOr
    Cells.Select
    Selection.Copy
    Sheets("Self Install").Select
    Range("A1").Select
    ActiveSheet.Paste
    Selection.Columns.AutoFit
    Sheets("Sheet1").Select
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    ActiveSheet.ShowAllData
End Sub

标签： arraysexcelvbaautofilter