vba - 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メソッド（Excel）