选择范围，直到带有VBA的Excel中带有特定文本的单元格

Question

尝试选择标题/第一行及其下的数据（从C列到O列），直到C列的第一个单元格带有单词“ Estimated”，我才根据另一个关于stackoverflow的答案提出了VBA代码，但似乎没有正在工作

感谢所有帮助！！

Range("C1").Select
For i = 1 To 9999
If ISNUMBER(SEARCH(ActiveCell.Offset(0, i), "Estimated")) = TRUE Then Exit For
If ISNUMBER(SEARCH(ActiveCell.Offset(0, i), "Estimated")) = FALSE Then Exit For
Next
If ISNUMBER(SEARCH(ActiveCell.Offset(0, i), "Estimated")) = TRUE Then             
    Range(Cells(ActiveCell.Row, 15), Cells(ActiveCell.Row, ActiveCell.Column + i - 1)).Select

`

Answer 1

尝试，

range(cells(1, "C"), cells(application.match("Estimated", columns(3), 0)-1, "O")).select

从您的叙述中不确定是否包含“估计”的行。 -1告诉它不包括“估计”行。

Answer 2

你可以用

Range("O1", Columns(3).Find("Estimated", , xlValues, xlPart)).Select ' to include row with "Estimated" in column C

要么

Range("O1", Columns(3).Find("Estimated", , xlValues, xlPart).offset(-1)).Select ' to exclude row with "Estimated" in column C