활성 셀이나 특정 텍스트 위의 행을 Excel에서 어떻게 삭제합니까?

행이 많은 큰 워크시트가 있고, 활성 셀이나 특정 텍스트 위에 있는 모든 행을 삭제하려는 경우 이를 처리하는 방법은 무엇입니까? 행을 선택한 다음 마우스 오른쪽 버튼을 클릭하여 컨텍스트 메뉴에서 '삭제'를 수동으로 선택하여 삭제할 수 있습니다. 그러나 여기에서는 VBA 코드를 사용하여 위의 행을 빠르게 삭제하는 방법을 소개합니다. 관심이 있으시면 아래 내용을 읽어보세요.

VBA 코드로 위의 행 삭제하기

VBA 코드로 위의 행 삭제하기

여기에서는 두 가지 VBA 코드를 소개합니다. 하나는 활성(선택된) 셀 위의 행을 삭제하고, 다른 하나는 지정된 텍스트 위의 행을 제거합니다.

1. 삭제하려는 셀 위의 행을 선택하고 Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고 아래 코드를 모듈 스크립트에 붙여넣습니다.

VBA: 활성 셀 위의 행 삭제

Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub

3. 누릅니다 F5 키를 누르면 활성 셀 위의 행이 삭제됩니다. 스크린샷을 참조하세요:

지정된 텍스트 위의 행을 삭제하려면 아래 VBA를 사용할 수 있습니다.

VBA: 지정된 텍스트 위의 행 삭제

Sub DeleteRowsABove()
'UpdatebyExtendoffice20161109
    Dim fRg As Range
    
    Set fRg = Cells.Find(What:="Total Group", LookAt:=xlWhole)
    
    If Not fRg Is Nothing Then
        If fRg.Row <> 1 Then
            Range("A1", fRg.Offset(-1)).EntireRow.Delete
        Else
            MsgBox "Total Group is in the first row already", vbInformation, "Kutools for Excel"
        End If
    Else
       MsgBox "Do not find Total Group", vbInformation, "Kutools for Excel"
    End If
    
End Sub

참고:

1. 코드에서 Total Group은 찾으려는 텍스트입니다. 필요에 따라 변경할 수 있습니다.

2. 찾은 텍스트가 이미 첫 번째 행에 있는 경우 알림 대화 상자가 나타납니다.

3. 지정된 텍스트가 시트에서 발견되지 않으면 아래와 같이 알림 대화 상자가 나타납니다.