열 값을 기준으로 행 이동

Question

스프레드 시트가 있고 B 열의 데이터가 특정 값과 일치하면 전체 행을 잘라내어 스프레드 시트의 맨 위로 삽입하려고합니다.

이것은 내가 지금까지 무엇을 가지고 :

이

Cells.Find("TRCH").Select 
ActiveCell.EntireRow.Select 
Selection.Cut 
Range("7:7").Select 
Selection.Insert 
Application.CutCopyMode = False 

이 코드는 작동하지만, 그것은 단지 트래픽 채널의 첫 번째 인스턴스를 찾습니다. TRCH가 포함 된 모든 행이 7 행에서부터 삽입되도록 변경하려면 무엇이 필요합니까?

미리 감사드립니다.

스크린 샷으로 업데이트했습니다. 첫 번째 예는 원래 데이터 집합입니다. 두 번째 예제는 내 매크로를 실행 한 후 모양이 어떻게 나타나길 원하는지입니다. 위의 코드는 TRCH가있는 첫 번째 행을 맨 위로 이동합니다. 희망은 명확하게.

Answer 1

이이 테스트되지 않았습니다, 어떤 문제 또는 코드를 질문 한 후 알려 :

Dim wks As Worksheet 
Dim lRow As Long 

Set wks = ThisWorkbook.ActiveSheet 

'loop through each row from 1 to the last row in used range 
For lRow = 1 To wks.UsedRange.Rows.Count 

If UCase(wks.Cells(lRow, 2)) = "TRDM" Then 'check if the this cell contains TRDM 

    'if there is a match then cut current row and insert into row 7 
    wks.Rows(lRow).Cut wks.Range("7:7") 

End If 

Next