Excel에서 특정 오류 값을 숨기는 방법은 무엇입니까?

Excel 워크시트에 수정할 필요가 없는 오류 값이 있다고 가정해 봅시다. 이 문제를 해결하기 위해 Excel에서 모든 오류 값을 숨기는 방법에 대해 논의했지만, 특정 오류 값만 숨기고 싶다면 어떻게 해야 할까요? 이 튜토리얼에서는 아래 세 가지 방법으로 이 작업을 수행하는 방법을 보여드리겠습니다.

VBA를 사용하여 텍스트를 흰색으로 바꿔 여러 특정 오류 값 숨기기

선택한 범위 또는 여러 워크시트 전체에서 지정된 오류들의 글꼴 색상을 흰색으로 변경하여 여러 특정 오류 값을 빠르게 숨길 수 있도록 두 개의 VBA 코드를 생성했습니다. 다음 단계를 따르고 필요에 따라 코드를 실행하십시오.

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

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

VBA 코드 1: 선택한 범위에서 여러 특정 오류 값 숨기기

Sub HideSpecificErrors_SelectedRange()
  'Updated by ExtendOffice 20220824
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("#DIV/0!”, “#N/A”, “#NAME?") 'Enter the errors to hide, enclose each with double quotes and separate them with commas

On Error Resume Next
Set xRg = Application.InputBox("Please select the range that includes the errors to hide:", "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.Font.ThemeColor = xlThemeColorDark1
        
    End If
Next
If xBol Then
    MsgBox "Successfully hidden."
Else
     MsgBox "No specified errors were found."
End If
End Sub

참고: 12번째 줄의 코드 조각 "xArrFinStr = Array("#DIV/0!", "#N/A", "#NAME?")"에서 "#DIV/0!", "#N/A", "#NAME?"을 숨기고자 하는 실제 오류로 교체해야 합니다. 각 값을 큰따옴표로 묶고 쉼표로 구분해야 합니다.

VBA 코드 2: 여러 시트에 걸쳐 여러 특정 오류 값 숨기기

Sub HideSpecificErrors_WorkSheets()
'Updated by ExtendOffice 20220824
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 hide the errors. Enclose each with double quotes and separate them with commas
xArrFinStr = Array("#DIV/0!", "#N/A", "#NAME?") 'Enter the errors to hide, 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.Font.ThemeColor = xlThemeColorDark1
        
    End If
Next
If xBol Then
    MsgBox "Successfully hidden."
Else
     MsgBox "No specified errors were found."
End If
End Sub

3. "F5"를 눌러 VBA 코드를 실행합니다.

4. 아래와 같은 대화 상자가 나타나며, 지정된 오류 값이 숨겨졌음을 알려줍니다. "확인"을 클릭하여 대화 상자를 닫습니다.

5. 지정된 오류 값이 즉시 숨겨집니다.

오류 조건 마법사 기능을 사용하여 특정 오류 값을 다른 값으로 대체하기

VBA 코드에 익숙하지 않다면 Kutools for Excel의 "오류 조건 마법사" 기능을 통해 모든 오류 값, 모든 #N/A 오류 또는 #N/A를 제외한 모든 오류를 쉽게 찾아 이를 원하는 다른 값으로 대체할 수 있습니다. 계속 읽으며 이 작업을 수행하는 방법을 알아보세요.

1. "Kutools" 탭에서 "수식" 그룹에서 "추가" > "오류 조건 마법사"를 클릭합니다.

3. "확인"을 클릭합니다. 지정된 오류 값이 선택한 옵션으로 표시됩니다.

수식을 사용하여 특정 오류를 다른 값으로 대체하기

특정 오류 값을 대체하기 위해 Excel의 IF, IFNA 및 ERROR.TYPE 함수를 활용할 수 있습니다. 하지만 먼저 각 오류 값에 해당하는 숫자 코드를 알아야 합니다.

예를 들어 위와 같이 값이 있는 표가 있다고 가정합시다. "#DIV/0!" 오류를 텍스트 문자열 "Divide By Zero Error"로 대체하려면, 이 오류의 코드인 "2"를 먼저 찾아야 합니다. 그런 다음 셀 "B2"에 다음 공식을 적용하고 채우기 핸들을 아래로 드래그하여 아래 셀에 공식을 적용합니다:

=IF(IFNA(ERROR.TYPE(A2),A2)=2,"Divide By Zero Error",A2)

관련 기사