Excel VBA - 使用列標題動態選擇列

Question

我想基於VBA中的列標題動態選擇列。這是我使用的代碼，

Sub trial() 

Dim colm As Long 
Dim nwb As Workbook, wb As Workbook 
Dim nwk As Worksheet, wk As Worksheet, wk1 As Worksheet 

co1m = WorksheetFunction.Match("Header", Sheets("Sheet1").Rows(1), 0) 

Columns(colm).Select 

End Sub 

當我嘗試調試它，它顯示的5科爾姆，並在同一時間對下一行的列值（科爾姆）。選擇，它顯示0在colm的地方。請幫助我解決我在這裏遇到的問題。在此先感謝

Answer 1

你有一個錯字！您有co1m和colm。

使用Option Explicit會產生編譯錯誤，說明co1m未被聲明！ ;）

Option Explicit 

Sub trial() 

Dim colm As Long 
Dim nwb As Workbook, wb As Workbook 
Dim nwk As Worksheet, wk As Worksheet, wk1 As Worksheet 

colm = WorksheetFunction.Match("Header", Sheets("Sheet1").Rows(1), 0) 

Columns(colm).Select 

End Sub