excel - 根据excel中单元格的值获取整行

Question

我正在尝试根据任何单元格的值获取具有从 E 到 BH 的特定范围的整行数据。
例如，如果我在单元格 P,3 上有值“红色”，我想选择从 E3 到 BH,3 的整个范围。
另外，如果我在 F9 中的单元格上有值“黄色”，我想选择从 E9 到 BH9 的整行
到目前为止我尝试过的
这是我从字符串“我的文本”中获取行的尝试，但它不起作用。我计划以类似的方式获取行和列，以便我可以根据文本获取从 e(row) 到 bh(row) 的行

Dim rng1 As Range
Set rng1 = Sheets("Table").UsedRange.Find("my text", xlValues, xlWhole)
Debug.Print "row is: " & rng1

Answer 1

也许使用 Intersect 和 EntireRow .请注意，您还应该测试 Find使用 If Not rng1 Is Nothing 成功.

Set rng1 = Sheets("Table").UsedRange.Find(What:="my text", LookIn:=xlValues, LookAt:=xlWhole)

If Not rng1 Is Nothing Then
    Dim theNewRange As Range
    Set theNewRange = Intersect(rng1.EntireRow, Range("E:BH"))
End If

使用 rng1.Row 的更短的替代方案:

If Not rng1 Is Nothing Then
    Dim theNewRange As Range
    Set theNewRange = Range("E:BH").Rows(rng1.Row)
End If