搜索字符串并查找相邻列的内容

Question

我在包含我的宏的 excel 表“工具”所在的同一目录中有一个名为“indications”的 excel 表。 Excel 工作表指示有大约 400 行和 20 列数据。

我有一个宏，它将从用户那里获取一个字符串输入（例如： DUMMY_TEXT ）并运行另一个宏。另一个宏是让我印象深刻的地方。

我必须在 D 列的 excel 表“指示”中搜索字符串输入 DUMMY_TEXT，并在找到字符串输入的相应行中找到 Q、R、S 和 T 列的内容。这必须根据用户输入动态发生。

我很惊讶地发现 Q、R、S 和 T 列的内容。这就是我现在所拥有的

Dim FoundCell As Excel.Range

temppath = ActiveWorkbook.Path
Workbooks.Open (temppath + "\indications.xlsx")

Set FoundCell = Range("D1:D20000").Find(what:=LSearchValue, lookat:=xlWhole)

Workbooks("indications.xlsx").Close

Answer 1

对于单个列中的lookat:=xlWhole 匹配，我更喜欢Excel Application object 使用MATCH function 而不是Range.Find method。

Sub trwqoeiryg()
    Dim findThis As Variant, rw As Variant, wb As Workbook
    Dim strQ as string, strR as string, strS as string, strT as string
    findThis = "find This"

    'VB/VBA uses an ampersand as the preferred string concatenation operator
    Set wb = Workbooks.Open(Filename:=temppath & "\Indications.xlsx", ReadOnly:=True)

    With wb
        With .Worksheets(1)   '<~~set this properly!
            rw = Application.Match(findThis, .Columns("D"), 0)
            If Not IsError(rw) Then
                Debug.Print .Cells(rw, "Q").Value
                Debug.Print .Cells(rw, "R").Value
                Debug.Print .Cells(rw, "S").Value
                Debug.Print .Cells(rw, "T").Value
                strQ = .Cells(rw, "Q").Value
                strR = .Cells(rw, "R").Value
                strS = .Cells(rw, "S").Value
                strT = .Cells(rw, "T").Value
                Debug.Print strQ
                Debug.Print strR
                Debug.Print strS
                Debug.Print strT
            Else
                Debug.Print findThis & " not found."
            End If
        End With
        .Close SaveChanges:=False
    End With
End Sub

一旦通过 MATCH 返回行号，Range.Cells property 就可以轻松返回同一行中任意列的值。