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

Question

我正在做一个使用自动过滤器的新宏。我的程序需要读取所有列，并检测那些写为“Inspecc.tornillo”或""caracterización exfoliación“的列。我的意思是，宏必须处理不同的excels，你不知道列的顺序，你只知道其中一列的名称是"caracterización exfoliaci”等等。所以我尝试这样使用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

假设我们有：

​

​

我们不知道哪个栏目是宝藏栏目。我们想要找到宝藏列并对其进行过滤以获取黄金

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

​

​