如何推广自动过滤器字段值

Question

我在宏编码中运行以下行时遇到问题，因为字段20不是常量。我可以找到需要应用过滤器的确切列。但是如何在编码中概括这个价值。

Selection.AutoFilter Field：= 20，Criteria1：=＆＃34;＆gt; = 3＆＃34;，_ Operator：= xlAnd

Answer 1

假设我们有以下数据：

我们希望过滤尺寸，但不知道要选择哪一列。我们只是沿着第一行查找尺寸：

Sub omer()
  Dim r As Range, i As Long
  critt = "size"
  i = 1

  For Each r In Selection.Rows(1).Cells
    If r.Value = critt Then
      crittcol = i
    End If
    i = i + 1
  Next r

  MsgBox crittcol

  Selection.AutoFilter Field:=crittcol, Criteria1:=">=3", Operator:=xlAnd

End Sub

产生：