如果声明使用列标题名称而不是列号？

Question

在Excel的VBA代码中，我写了很多东西，例如：

If Worksheets("Original Data").Cells(i, 7) <> "" Then 
    'do stuff.

i是循环所在行号的迭代器。 7是*特定列的列号，但是现在在新的“原始数据”表中，我收到的该列位于其他位置。有没有一种方法可以将7替换为列标题名称，以使它不会在列每次更改位置时都中断？

Answer 1

使用find方法搜索Column标头并获取列号

Dim ColumnNumber as long

ColumnNumber =  Worksheets("Original Data").cells.Find("Column Name").column
Worksheets("Original Data").Cells(i, ColumnNumber ) <> ""