vba - 给定字符串查找单元格的列

Question

我正在尝试查找包含字符串“状态”的单元格的列。该单元格位于另一个名为“报告”的工作表中，我不知道该单元格在哪里；我只知道它包含什么。我只需要知道单元格所在的列。我将如何执行此操作(在 VBA 中)？任何帮助将不胜感激!到目前为止，我的代码如下:

Sheets("Report").Select
Dim header_cell As Variant
Set header_cell = Cells.Find(what:="Status")

Answer 1

我建议您避免激活工作表以使用它。

    Dim header_cell As Range
    With Sheets("Report")
        'this searches just row 1
        'Set header_cell = .Rows(1).Find(what:="Status", lookat:=xlWhole, MatchCase:=False, searchformat:=False)
        'this searches the whole worksheet
        Set header_cell = .Cells.Find(what:="Status", lookat:=xlWhole, MatchCase:=False, searchformat:=False)
        Debug.Print header_cell; "Column: " & header_cell.Column
        Debug.Print header_cell; "Address: " & header_cell.Address(0, 0, ReferenceStyle:=xlA1, external:=True)
    End With

见 How to avoid using Select in Excel VBA macros有关摆脱依赖选择和激活的方法的更多信息。