Excel에서 여러 일치 항목을 한 번에 찾고 삭제하는 방법은 무엇인가요?

Excel에서 대량의 데이터를 작업할 때 특정 순간에 필요한 정보를 빠르게 찾는 것이 중요합니다. 이때 필요한 것이 '찾기 및 바꾸기' 기능입니다. 이 기능은 현재 시트 또는 전체 통합 문서에서 특정 값이나 형식을 찾아 강조 표시한 후, 결과를 삭제하거나 바꾸는 등의 작업을 수행할 수 있게 해줍니다. 그러나 Excel의 '찾기 및 바꾸기' 기능은 한 번에 하나의 값만 찾을 수 있습니다. 이 튜토리얼에서는 Excel에서 여러 다른 값을 빠르게 찾아 한 번에 삭제하는 방법을 소개합니다.

VBA를 사용하여 여러 일치 항목을 한 번에 찾고 삭제하기

선택한 범위 또는 여러 워크시트에서 여러 다른 값을 찾아 즉시 삭제할 수 있도록 두 가지 VBA 코드를 만들었습니다. 아래 단계를 따라 필요에 따라 코드를 실행하세요.

1. Excel에서 Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 클릭 삽입 > 모듈을 클릭합니다. 그런 다음 다음 VBA 코드 중 하나를 모듈에 복사합니다. 모듈 창.

VBA 코드1: 선택한 범위에서 여러 일치 항목을 한 번에 찾고 삭제하기

Sub FindAndDeleteDifferentValues_Range()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg As Range
Dim xURg As Range
Dim xFindRgs As Range
Dim xFAddress As String
Dim xBol As Boolean
Dim xJ

xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas

On Error Resume Next
Set xRg = Application.InputBox("Please select the search scope:", "Kutools for Excel", , Type:=8)
If xRg Is Nothing Then Exit Sub

xBol = False
For Each xARg In xRg.Areas
    Set xFindRg = Nothing
    Set xFindRgs = Nothing
    Set xURg = Application.Intersect(xARg, xARg.Worksheet.UsedRange)
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.ClearContents
    End If
Next
If xBol Then
    MsgBox "Successfully deleted."
Else
     MsgBox "No results found."
End If
End Sub

참고:13번째 행의 코드 조각 xArrFinStr = Array("sales", "9", "@")에서 "sales", "9", "@"를 찾고 삭제하려는 실제 값으로 바꾸어야 합니다. 각 값을 큰따옴표로 감싸고 쉼표로 구분하는 것을 기억하세요.

VBA 코드2: 여러 시트에서 여러 일치 항목을 한 번에 찾고 삭제하기

Sub FindAndDeleteDifferentValues_WorkSheets()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg, xFindRgs As Range
Dim xWShs As Worksheets
Dim xWSh As Worksheet
Dim xWb As Workbook
Dim xURg As Range
Dim xFAddress As String
Dim xArr, xArrFinStr
Dim xI, xJ
Dim xBol As Boolean
xArr = Array("Sheet1", "Sheet2") 'Names of the sheets where to find and delete the values. Enclose each with double quotes and separate them with commas
xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas
'On Error Resume Next
Set xWb = Application.ActiveWorkbook
xBol = False
For xI = LBound(xArr) To UBound(xArr)
    Set xWSh = xWb.Worksheets(xArr(xI))
    Set xFindRg = Nothing
    xWSh.Activate
    Set xFindRgs = Nothing

    Set xURg = xWSh.UsedRange
    Set xFindRgs = Nothing
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.ClearContents
    End If
Next

If xBol Then
    MsgBox "Successfully deleted."
Else
     MsgBox "No results found."
End If
End Sub

3. F5 키를 눌러 VBA 코드를 실행합니다. 참고: VBA 코드1을 사용하는 경우, 값을 찾고 삭제할 범위를 선택하라는 대화 상자가 나타납니다. 시트 탭을 클릭하여 전체 시트를 선택할 수도 있습니다.

4. 아래와 같이 코드가 지정된 일치 항목을 삭제했다고 알려주는 대화 상자가 나타납니다. 클릭 확인 하여 대화를 닫습니다.

5. 지정된 값이 한 번에 삭제되었습니다.

특정 셀 선택 기능을 사용하여 여러 일치 항목을 한 번에 찾고 삭제하기

Kutools for Excel은 특정 셀 선택 기능을 제공하여 한 번에 설정한 하나 또는 두 가지 조건을 충족하는 값을 찾습니다. 여러 값을 빠르게 찾고 삭제하는 방법을 알아보려면 계속 읽어보세요.

1. Kutools 탭에서 Kutools 탭에서 편집 그룹에서 클릭 선택 > 특정 셀 선택.

2. 팝업되는 특정 셀 선택 대화 상자에서 다음을 수행하세요: 특정 셀 선택 대화 상자에서 다음을 수행하세요:

• 범위 내의 셀 선택 상자에서 범위 내의 셀 선택 상자에서 오른쪽의 범위 선택 버튼을 클릭하여 범위를 지정합니다. 오른쪽의 범위 선택 버튼을 클릭하여 범위를 지정합니다. 값을 찾고 삭제할 범위를 지정합니다.. 참고: 전체 시트를 검색하려면 시트 탭을 클릭하세요.
• 선택 유형 섹션에서 셀 옵션을 선택합니다.
• 특정 유형 섹션에서 지정 유형 섹션에서 최대 두 가지 조건을 설정합니다:
  • 왼쪽의 드롭다운 화살표를 클릭하여 필요한 관계를 선택합니다. 예를 들어 포함, 동일, 보다 작음, 로 시작 등을 선택합니다.
  • 필요에 따라 해당 상자에 값을 입력합니다.
  • 두 조건 간의 관계를 지정합니다(있는 경우): 그리고 또는 또는.

3. 클릭 확인 하여 설정한 조건을 충족하는 셀을 선택합니다. 대화 상자가 나타나 몇 개의 셀이 발견되고 선택되었는지 알려줍니다.

4. 클릭 확인합니다. 이제 DELETE 키를 눌러 선택한 값을 한 번에 삭제합니다. 삭제 키를 눌러 선택한 값을 한 번에 삭제합니다.

데모: Excel에서 여러 일치 항목을 한 번에 찾고 삭제하기

관련 기사