VBA代码在列A中查找单词,然后在列A和列B中选择值

时间:2016-06-24 09:45:38

标签: vba

自从我使用VBA以来已经有一段时间了。

我希望找到单词'Q4',从这里选择B列中的单元格。选择两列,直到单词注释:(不包括Notes :)这是我的停止点。

希望这有道理吗?

非常感谢

2 个答案:

答案 0 :(得分:0)

尝试此代码并根据您的要求进行编辑。

Sub UpdateData()
Dim LastRow, i As Long
Dim startPoint, stopPoint As Integer
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For i = 2 To LastRow
    If Range("A" & i).value = "Q4" Then
        startPoint = i
    End If
If Range("A" & i).value = "Notes:" Then
        stopPoint = i
    End If
Next i
Range("A" & startPoint & ":B" & stopPoint).Select

End Sub

答案 1 :(得分:0)

感谢您指点我正确的方向。我最后编写了这段代码。

Start = Columns(1).Find(What:="Q$", LookAt:=xlWhole, SearchDirection:=xlNext, MatchCase:=False).Row
Stop = Columns(1).Find(What:="Notes:", LookAt:=xlPart, SearchDirection:=xlPrevious, MatchCase:=False).Row - 2
Range("A" & Start & ":B" & Stop).Select