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

Question

我试图找到包含字符串“状态”的单元格的列。 该单元格位于另一个名为“ Report”的工作表中，我不知道该单元格在哪里； 我只确切知道其中包含什么。 我只需要知道单元格所在的列。我该如何做（在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

请参阅如何避免在Excel VBA宏中使用“选择”以获取更多摆脱依赖于选择和激活的方法。

Answer 2

还有

Sub Button1_Click()
    Dim sh As Worksheet, lookRng As Range, c As Range
    Set sh = Sheets("Report")
    Set lookRng = sh.Range("A1:Z1")

    Set c = lookRng.Find(what:="Status", lookat:=xlWhole)

    If Not c Is Nothing Then
        MsgBox c.Address
    Else: MsgBox "Not Found"
        Exit Sub
    End If


End Sub

Answer 3

如果创建新变量，请说“ dim header_cell_column as Integer ”； 你可以做

header_cell_column = Cells.Find(what:="Status").Column