VBA - 반복되는 텍스트의 첫 번째 행과 마지막 행을 찾으십시오.

Question

내 질문은이 하나와 비슷합니다. 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 

---