Excel VBA – 使用列标题dynamicselect列

我正在尝试基于VBA中的列标题dynamicselect列。 这是我正在使用的代码，

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 

当我尝试debugging它时，它在colm中显示5的值，同时在下一行的列（colm）中显示.select，它在colm的地方显示0。 请帮助我在哪里我错了。 提前致谢

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