VBA - 繰り返すテキストの最初と最後の行を検索

Question

私の質問はこの1つに似ていますVBA - Find first and last row containing specific textしかし、私は少し微調整が必​​要です。私の列Aの値が、を削除し、削除終了、およびある -（ダッシュ）のみと私はがを削除最初の行を取得する必要が削除エンドがどこにあるかで、最後の行。

Rows Column A 
1  Delete 
2  Delete 
3  Delete end 
4  - 
5  - 
6  - 
7  - 
8  Delete 
9  Delete end 

編集：A3： 私は、行1および3、および8,9、A1等しない範囲を抽出したいです。私はこのアプローチをどのようにすべきですか？

Answer 1

希望はこれです。

...あなたのデータはA2で始まると仮定すると、

Sub test() 
    Dim lastrow As Long, i As Long 
    Dim startaddress As String, endaddress As String, alladdress As String 
    lastrow = Range("A" & Rows.Count).End(xlUp).Row 
    For i = 2 To lastrow 
     If Cells(i, 1) = "Delete" Then 
      startaddress = Cells(i, 1).Address 
      Do While Cells(i, 1) <> "Delete end" 
       i = i + 1 
      Loop 
      endaddress = Cells(i, 1).Address 
      If alladdress <> "" Then 
       alladdress = alladdress & ", " & startaddress & ":" & endaddress 
      Else 
       alladdress = startaddress & ":" & endaddress 
      End If 
     End If 
    Next i 
    Cells(2, 2) = alladdress 
End Sub 

---