Excel에서 음수 값을 가진 행을 삭제하는 방법은 무엇입니까?

다음과 같은 데이터 범위가 있다고 가정하고, B열에 음수가 있는 경우 전체 행을 삭제하려고 합니다. Excel에서 이 문제를 해결하기 위한 좋은 방법이 있을까요?

VBA 코드를 사용하여 음수를 포함한 행 삭제 Kutools for Excel을 사용하여 음수를 포함한 행 삭제

VBA 코드를 사용하여 음수를 포함한 행 삭제

다음 VBA 코드는 특정 열에 음수가 있는 경우 전체 행을 삭제하는 데 도움이 될 수 있습니다. 아래 단계를 따르세요:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 음수를 포함한 행 삭제

Sub Deleter()
'updatebyExtendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
Sel:
    Set xRg = Nothing
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "does not support multiple columns, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    For I = xRg.Rows.Count To 1 Step -1
        If xRg.Cells(I) < 0 Then xRg.Cells(I).EntireRow.Delete
    Next
End Sub

3. 그런 다음 F5 키를 눌러 이 코드를 실행합니다. 프롬프트 상자에서 음수를 찾고자 하는 숫자 열을 선택하세요. 스크린샷 참조:

4. 확인 버튼을 클릭하면 음수를 포함한 행이 즉시 삭제됩니다.

Kutools for Excel을 사용하여 음수를 포함한 행 삭제

이 작업을 처리하기 위해 Kutools for Excel의 특정 셀 선택 기능도 도움이 될 수 있습니다. 이 유틸리티를 사용하면 먼저 음수 값을 포함하는 전체 행을 선택한 후 필요에 따라 전체 행을 삭제할 수 있습니다.

Kutools for Excel 설치 후 다음과 같이 하세요:

1. 삭제하려는 음수를 포함한 열을 선택합니다.

2. 그런 다음 Kutools > 선택 > 특정 셀 선택을 클릭합니다. 스크린샷 참조:

3. 특정 셀 선택 대화 상자에서 선택 유형에서 전체 행 옵션을 선택하고, 지정 유형에서 보다 작음을 선택한 후 기준 옆의 텍스트 상자에 0을 입력합니다. 스크린샷 참조:

4. 확인을 클릭하면 음수를 포함한 행이 즉시 선택되며, 홈 > 삭제 > 시트 행 삭제를 클릭하여 선택된 행을 삭제합니다. 스크린샷 참조:

팁: 마우스 오른쪽 버튼을 클릭하여 컨텍스트 메뉴에서 삭제를 선택하여 선택된 행을 삭제할 수도 있습니다.