通过 .address vba 获取选定单元格的列值

Question

我需要根据值找到一个单元格。然后我需要从 选择的单元格并在我的循环中使用它来迭代。当我尝试使用 .address 时，它给我一个错误

 Set selectedCell = Worksheets("Sheet1").Rows(3).Find("Start", LookIn:=xlValues)
 selectedCell.select
 Selection.Address

 While Not IsEmpty(Cells(3, EXTRACTED COLUMN VALUE HERE))

 

Answer 1

selectedCell 知道它的列 - 不需要 select 它。 像这样：

Set selectedCell = Worksheets("Sheet1").Rows(3).Find("Start", LookIn:=xlValues)

While Not IsEmpty(Cells(3, selectedCell.Column))