在Excel中按單元格值獲取列編號

Question

我試圖使用特定值獲取第一行中單元格的列號。我使用的代碼由於某種原因而不起作用。

Dim colNum As Integer 
'sheetName is a String 
With ActiveWorkbook.Sheets(sheetName) 
colNum = column(.Match("ID", 1:1, 0)) 

它告訴我它期待着一個「列表分隔符」）。我如何使它工作？

感謝

Answer 1

試試這個代碼：

Dim colNum As Integer 
'sheetName is a String 
colNum = WorksheetFunction.Match("ID", ActiveWorkbook.Sheets(sheetname).Range("1:1"), 0) 

Answer 2

注意，如果沒有找到匹配它會返回一個錯誤;試試這個來解決這個問題。

Dim Result As Variant 
If Not VBA.IsError(Application.Match(...)) Then 
    Result = Application.Match(...) 
End If 

這會嘗試匹配，如果函數有錯誤，它將不會分配結果。

WorksheetFunction.Match Method (Excel)