2016-06-24 14 views

答えて

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の正しい方向に私を指しているため

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 
関連する問題