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