Excel에서 고유한 값만 허용하려면 어떻게 해야 하나요?

워크시트의 열에 중복을 방지하고 고유한 값만 입력되도록 유지하려는 경우, 이 문서에서는 해당 작업을 처리하기 위한 몇 가지 빠른 방법을 소개합니다.

데이터 유효성 검사를 사용하여 워크시트에서 고유한 값만 허용하기

Kutools for Excel을 사용하여 워크시트에서 고유한 값만 허용하기

VBA 코드를 사용하여 워크시트에서 고유한 값만 허용하기

데이터 유효성 검사를 사용하여 워크시트에서 고유한 값만 허용하기

사실, Excel의 데이터 유효성 검사 기능은 이 문제를 해결하는 데 도움이 될 수 있습니다. 아래 단계를 따라주세요:

1. 고유한 값만 입력되도록 하려는 셀 또는 열을 선택한 다음, 데이터 > 데이터 유효성 검사 > 데이터 유효성 검사를 클릭하세요. 스크린샷을 참조하세요:

2. 데이터 유효성 검사 대화 상자에서 다음 작업을 수행하세요:

(1.) 설정 탭을 클릭하세요;

(2.) 허용 드롭다운 목록에서 사용자 정의를 선택하세요;

(3.) 그리고 다음 수식을 입력하세요: =COUNTIF($E:$E,E1)<2 (E는 고유한 값만 허용하려는 열이고, E1은 사용하려는 열의 첫 번째 셀입니다) 수식 텍스트 상자에 입력합니다.

3. 그런 다음 확인 버튼을 클릭하세요. 이제 설정된 특정 열에 중복 값을 입력하면 경고 메시지가 팝업되어 알립니다. 스크린샷을 참조하세요:

Kutools for Excel을 사용하여 워크시트에서 고유한 값만 허용하기

위 두 가지 방법은 한 열에서 중복 항목을 방지할 수 있지만, Kutools for Excel이 있는 경우 중복 방지 기능을 통해 범위 내의 셀이나 하나의 열 또는 행에서 중복을 신속하게 방지할 수 있습니다.

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

1. 중복 값을 방지하고 고유한 데이터만 허용하려는 열 또는 셀 범위를 선택하세요.

2. 그런 다음 Kutools > 입력 제한 > 중복 방지를 클릭하세요. 스크린샷을 참조하세요:

3. 데이터 유효성 검사가 이 기능을 적용하면 제거될 것이라는 경고 메시지가 팝업으로 표시됩니다. 스크린샷을 참조하세요:

4. 계속하려면 예 버튼을 클릭하세요. 그러면 어떤 셀에 이 기능이 적용되었는지 알려주는 다른 프롬프트 박스가 나타납니다. 스크린샷을 참조하세요:

5. 그런 다음 확인 버튼을 클릭하세요. 이제 A1:D15 범위에 중복 데이터를 입력하면 중복 데이터가 유효하지 않다는 것을 알려주는 프롬프트 박스가 표시됩니다. 고유한 값만 입력해야 합니다. 스크린샷을 참조하세요:

300개 이상의 기능이 업무 효율성을 높일 수 있습니다. Kutools for Excel 무료 평가판을 다운로드하세요.

VBA 코드를 사용하여 워크시트에서 고유한 값만 허용하기

VBA 코드에 관심이 있다면, 다음 코드도 도움이 될 수 있습니다.

1. 음수만 허용하려는 시트 탭을 마우스 오른쪽 버튼으로 클릭하고, 컨텍스트 메뉴에서 코드 보기 옵션을 선택하세요. Microsoft Visual Basic for Applications 창이 나타나면 다음 코드를 복사하여 비어있는 모듈에 붙여넣으세요:

VBA 코드: 워크시트에서 고유한 값만 허용하기:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160829
  Dim xRg As Range, iLong, fLong As Long
  If Not Intersect(Target, Me.[A1:A1000]) Is Nothing Then
     Application.EnableEvents = False
     For Each xRg In Target
     With xRg
         If (.Value <> "") Then
          If WorksheetFunction.CountIf(Me.[A:A], .Value) > 1 Then
            iLong = .Interior.ColorIndex
            fLong = .Font.ColorIndex
            .Interior.ColorIndex = 3
            .Font.ColorIndex = 6
            MsgBox "Duplicate Entry !", vbCritical, "Kutools for Excel"
            .ClearContents
            .Interior.ColorIndex = iLong
            .Font.ColorIndex = fLong
          End If
       End If
     End With
     Next
     Application.EnableEvents = True
  End If
End Sub

참고: 위 코드에서 A1:A1000은 중복을 방지하려는 열 셀입니다.

2. 그런 다음 코드를 저장하고 닫습니다. 이제 A1:A1000 셀에 중복 값을 입력하면 중복 항목이 허용되지 않는다는 경고 메시지가 팝업으로 표시됩니다. 스크린샷을 참조하세요:

3. 그런 다음 확인 버튼을 클릭하면 중복 값이 삭제됩니다.