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

如何提取自动筛选列表

我需要一个简单的代码

例如，数组shd包含 希德，苹果，等等

我不知道从列表中提取数据的步骤 如图所示 [在此处输入图像描述][1]

---

[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

---

请努力写一些代码，探索并展示结果和问题。然而，我提交了一个代码片段，可以为您的目的。