如何在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