动态定义数据选择标准

Question

我需要一些帮助，请，我正在尝试选择数据从一个工作表和转移到另一个工作表。我用于选择此数据的标准是"Ship“，如.Range("A1:H" & lRow).AutoFilter Field:=2, Criteria1:="Ship"行中所述，但我希望使用类似于Criteria1:=范围(”A2“)之类的东西来动态地选择该标准，这样我就可以在Excel表上定义条件，而不必进入VBA代码。我该怎么做呢？谢谢你，基什

Sub ImportShipper()    
    Dim wsEff As Worksheet
    Dim wsShip As Worksheet
    Dim wsFirst As Worksheet
    Set wsEff = Worksheets("Efficiency")
    Set wsFirst = Worksheets("1")    
    Set wsShip = ActiveSheet
    wsShip.Name = wsFirst.Range("B34").Value     
    With wsEff
        Dim lRow As Long
        lRow = .Range("A" & .Rows.Count).End(xlUp).Row
        .Range("A1:H" & lRow).AutoFilter Field:=2, Criteria1:="Ship"
        Dim rngCopy As Range
        'All Columns A:H
        Set rngCopy = .Columns("A:H")
        'filtered rows, not including header row - assumes row 1 is headers
        Set rngCopy = Intersect(rngCopy, .Range("A1:H" & lRow), .Range("A1:H" & lRow).Offset(1)).SpecialCells(xlCellTypeVisible)
        rngCopy.Copy
        End With
    wsShip.Range("A4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Worksheets("Efficiency").ShowAllData
    End Sub

Answer 1

取代：

   Criteria1:="Ship"

通过以下方式：

   Criteria1:=wsWhatever.Range("A2").Value

对于适当的A2单元格使用任何您喜欢的工作表。