在字段中使用变量而不是数字进行自动过滤

Question

我正在做一个使用自动过滤器的新宏。 我的程序需要读取所有列并检测那些写有“Inspecc.tornillo”或“”caracterización exfoliación”的列。我的意思是，宏必须与不同的 excel 一起使用，而您不知道列的顺序，您只需知道其中之一将具有名称“caracterización exfoliación”等等。所以我尝试以这种方式使用 Autofilter：

ActiveSheet.Range(Cells(1, 1), Cells(nFilas, nColumnas)).AutoFilter   
**Field:=tornillo**, Criteria1:="=Inspeccionar", Operator:=xlOr, Criteria2:="=No"

代替：

> ActiveSheet.Range(Cells(1, 1), Cells(nFilas, nColumnas)).AutoFilter   
> **Field:=7**, Criteria1:="=Inspeccionar", Operator:=xlOr, Criteria2:="=No"

我将变量 tornillo 声明为变体，但它不起作用。 我怎么办？

提前致谢

Answer 1

假设我们有：

我们不知道哪一栏是宝藏栏。 我们要找到Treasure列并过滤它的gold ：

Sub TreasureHunt()
    Dim N As Long

    N = Range("1:1").Find(what:="Treasure", after:=Range("A1")).Column
    ActiveSheet.Cells.AutoFilter Field:=N, Criteria1:="Gold"
End Sub