Question

我有一个宏设置，可以在按钮单击时对一系列单元格使用高级过滤器，但我想使用这些过滤值的一列中的范围作为另一张纸上自动过滤器的条件（“研究”信息“和”媒体，“分别）。我是初学者，无法使用以下代码：

刚刚添加并编辑代码Lowpar提供。它肯定带有一个数组，但由于某种原因，唯一被过滤掉的东西是带有高级过滤器的选项卡中的最后四个条目。这是我到目前为止所拥有的（这次包含第一个标签的代码）

With Sheets("Study Info")
    If .FilterMode Then .ShowAllData
    Dim y As Integer
    y = (Range("CA3").Value) + 2
    Range("A12:BP150").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Range("B2:BP" & y), Unique:=False
End With
With Sheets("Media")
    If .FilterMode Then .ShowAllData
    Dim frow As Integer
    frow = Sheets("Study Info").Range("B" & Rows.Count).End(xlUp).Row
    Dim ary() As Variant
    Dim i As Integer
    Set Rng = Sheets("Study Info").Range("B13:B" & frow)
        i = 0
        ReDim ary(0)
        For Each cell In Rng
        ary(i) = cell.Value
        i = i + 1
        ReDim Preserve ary(i)
        Next cell
    Sheets("Media").Range("$A$4").AutoFilter _
    field:=1, _
    Criteria1:=ary, _
    Operator:=xlFilterValues
End With
End Sub

Answer 1

使用您的范围创建一个名为ary的数组，Srow是startrow，Frow是最后一行。

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
<script src="https://select2.github.io/select2/select2-3.5.1/select2.js"></script>
<link href="https://select2.github.io/select2/select2-3.5.1/select2.css" rel="stylesheet"/>
<div class="selectRow">
  <select id="singleSelectExample">
    <option></option>
    <option value="1" data-price="111">Option 1</option>
    <option value="2" data-price="222">Option 2</option>
    <option value="3" data-price="333">Option 3</option>
  </select>
</div>

使用高级过滤单元格范围作为另一张纸上的自动筛选条件

1 个答案: