すべての範囲を一度に選択するVba

Question

どのようにループをコーディングするか、すべての可能性を一度に選択できますか？ "In"は選択された範囲の最初のもので、最初のLateまで下がり、同様の範囲をリストの下にコピーする必要があります。 フィードバックをお寄せください

SelectBetween() 
    Dim findrow As Long, findrow2 As Long 
    On Error GoTo Err 
    findrow = Range("A:A").Find("In", Range("A1")).Row 
    findrow2 = Range("A:A").Find("Late", Range("A" & findrow)).row 
    Range("A" & findrow & ":A" & findrow2).copy 
    Exit Sub 
Err: 
MsgBox "Cells unspecified" 
End Sub 

Answer 1

ニースを試してみてください。ちょっとした提案：Findメソッドは範囲オブジェクトを返します。それはあなたにいくつかの利点を与えることができます。

Private Sub SelectBetween() 
    Dim firstInCell, tmpInCell, firstLateCell, tmpLateCell, copyRange As Range 
    On Error GoTo Err 
    Set firstInCell = Range("A:A").Find("In", Range("A1")) 
    Set firstLateCell = Range("A:A").Find("Late", Range("A1")) 

    Set tmpInCell = firstInCell 
    Set tmpLateCell = firstLateCell 
    Set copyRange = Range(tmpInCell, tmpLateCell) 

    Do 
     Set tmpInCell = Range("A:A").Find("In", tmpInCell) 
     Set tmpLateCell = Range("A:A").Find("Late", tmpInCell) 
     Set copyRange = Union(copyRange, Range(tmpInCell, tmpLateCell)) 
    Loop While tmpInCell.Address <> firstInCell.Address 

    copyRange.Copy 
    Exit Sub 
Err: 
    MsgBox "Cells unspecified" 
End Sub 

ロジック：最初のターゲットを見つけ、firstInCellとfirstLateCellにそれらを格納します。そして私は一致したすべての範囲を保存するためにcopyRangeを構築しました。 Find関数には、何も見つからない場合に最初にスクロールする機能があります。そのため、結果を確認してループが終了したかどうかを確認できます。