自从我使用VBA以来已经有一段时间了。
我希望找到单词'Q4',从这里选择B列中的单元格。选择两列,直到单词注释:(不包括Notes :)这是我的停止点。
希望这有道理吗?
非常感谢答案 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