在字段中使用變量而不是數字進行自動過濾

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