如何在Excel VBA中提取自动筛选列表

Question

我如何提取自动筛选列表

我需要一个简单的代码，它

例如数组SHD包含 “SID”，苹果”，等等

我不知道提取数据frrom列表 如图 [输入图像的描述在这里] [1]

[1]的方法：http://i.stack.imgur.com/dcbJg.pngenter code here

Answer 1

基本自动滤波编码如下。它假定您想要过滤列B中的数据。它将过滤的值写入Sheet2。

Sub Sample() 
    Dim LastRow As Long 
    On Error Resume Next 

    Sheets("Sheet2").UsedRange.Offset(0).ClearContents 
    With Worksheets("Sheet1") 
     .Range("$B:$B").AutoFilter field:=1, Criteria1:="Sid", Operator:=XlAutoFilterOperator.xlOr, Criteria2:="Apple" 
     LastRow = .Range("B" & .Rows.Count).End(xlUp).Row 
     .Range("B1:B" & LastRow).SpecialCells(xlCellTypeVisible).EntireRow.Copy _ 
      Destination:=Sheets("Sheet2").Range("A1") 
     End With 
    Worksheets("Sheet1").AutoFilterMode = False 
End Sub