Question

如何提取自动筛选器列表

我需要一个简单的代码

例如数组shd包含＆＃34; Sid＆＃34;，Apple＆＃34;等等

我不知道从列表中提取数据的过程如图所示 [在此输入图像说明] [1]

[1]：http://i.stack.imgur.com/dcbJg.png enter 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

如何在excel vba中提取自动筛选器列表

1 个答案: