팁 : 다른 언어는 Google 번역입니다. 방문하실 수 있습니다. English 이 링크의 버전.
로그인
x
or
x
x
회원가입
x

or

Excel에서 고유 한 값을 연결하는 방법?

일부 중복 데이터로 채워진 값 목록이 긴 경우 이제는 고유 한 값만 찾아서 단일 셀로 연결하려고합니다. Excel에서이 문제를 어떻게 신속하고 쉽게 처리 할 수 ​​있습니까?

한 열에서 고유 한 값을 찾아 VBA 코드로 한 셀로 연결합니다.

한 열의 고유 한 값을 찾고 Excel 용 Kutools를 사용하여 한 셀로 연결하십시오.

고유 한 값을 나열하고 해당 값을 VBA 코드와 연결합니다.

고유 한 값을 나열하고 해당 값을 Excel 용 Kutools와 연결합니다.


화살표 오른쪽 파란색 거품 한 열에서 고유 한 값을 찾아 VBA 코드로 한 셀로 연결합니다.


다음 사용자 정의 함수 고유 한 값만 목록에서 단일 셀로 연결하는 데 도움이 될 수 있습니다. 다음과 같이하십시오.

1. 누르고있어. ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈다음 코드를 모듈 창문.

VBA 코드 : 고유 한 값을 단일 셀에 연결 :

Function ConcatUniq(xRg As Range, xChar As String) As String
'updateby Extendoffice 20151228
    Dim xCell As Range
    Dim xDic As Object
    Set xDic = CreateObject("Scripting.Dictionary")
    For Each xCell In xRg
        xDic(xCell.Value) = Empty
    Next
    ConcatUniq = Join$(xDic.Keys, xChar)
    Set xDic = Nothing
End Function

3. 그런 다음 워크 시트로 돌아가서 다음 수식을 입력하십시오. = ConcatUniq (A1 : A17, ",") 연결된 결과를 출력하려는 ​​빈 셀에 넣고 엔터 버튼 고유 한 연결 결과를 얻으려면 키를 누르십시오. 스크린 샷을 참조하십시오.

유니크 1을 연결하는 문서

주의 사항: 상기 식에서, A1 : A17 연결하려는 셀 범위이며 쉼표는 ","는 결합 된 값을 분리하는 데 필요한 구분 기호입니다. 필요에 맞게 변경할 수 있습니다.


화살표 오른쪽 파란색 거품 한 열의 고유 한 값을 찾고 Excel 용 Kutools를 사용하여 한 셀로 연결하십시오.

VBA 코드에 익숙하지 않은 경우, Excel 용 Kutools 또한 당신을 도울 수 있습니다. Duplicate & Unique 셀 선택 그리고, 결합 유틸리티를 사용하여 필요한 결과를 얻을 수 있습니다.

Excel 용 Kutools : 300 이상의 편리한 Excel 추가 기능으로 60 일 동안 아무런 제한없이 시도 할 수 있습니다..

설치 후 Excel 용 Kutools, 다음과 같이하십시오 :( 무료 다운로드 지금 Excel 용 Kutools! )

1. 고유 한 값만 결합하려는 셀 목록을 선택하십시오.

2. 딸깍 하는 소리 Kutools > 고르다 > Duplicate & Unique 셀 선택, 스크린 샷보기 :

유니크 2을 연결하는 문서

3. 에서 Duplicate & Unique 셀 선택 대화 상자에서 고유 한 모든 항목 (1 st duplicates 포함) 옵션 아래의 통치 섹션, 스크린 샷보기 :

: 처음 나타나는 복제본을 제외한 고유 한 값을 결합하려면 고유 값만 옵션을 선택합니다.

유니크 3을 연결하는 문서

4. 그런 다음 OK 버튼을 클릭하고 고유 한 값만 선택하고 Ctrl + C 그것들을 복사하고,를 눌러 특정 위치에 붙이십시오 Ctrl + V, 스크린 샷보기 :

유니크 4을 연결하는 문서

5. 붙여 넣은 고유 한 셀을 선택하고 확인을 클릭하십시오. Kutools > 결합, 스크린 샷보기 :

유니크 5을 연결하는 문서

6. 에서 열 또는 행 결합 대화 상자에서 단일 셀에 결합 아래 다음 옵션에 따라 선택한 셀을 결합하려면그런 다음 결합 된 데이터의 구분 기호를 지정하십시오. 스크린 샷을 참조하십시오.

유니크 6을 연결하는 문서

7. 그런 다음 Ok or 적용 버튼을 클릭하면 추출 된 고유 값이 다음 스크린 샷과 같이 하나의 단일 셀로 연결됩니다.

유니크 7을 연결하는 문서

무료 다운로드 지금 Excel 용 Kutools!


화살표 오른쪽 파란색 거품 고유 한 값을 나열하고 해당 값을 VBA 코드와 연결합니다.

다른 경우에는 두 개의 열을 포함하는 데이터 범위가 있으며 이제는 고유 한 값만 나열하고 다른 열의 해당 값을 연결하여 다음 결과를 얻으려는 경우이 작업을 완료하는 좋은 방법이 있습니까 Excel에서?

유니크 8을 연결하는 문서

다음 VBA 코드를 적용하여이 작업을 처리 할 수 ​​있습니다. 다음과 같이하십시오.

1. 누르고있어. ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈다음 코드를 모듈 창문.

VBA 코드 : 고유 한 값을 나열하고 해당 데이터를 연결합니다.

Sub test()
'updateby Extendoffice 20151228
    Dim xRg As Range
    Dim xArr As Variant
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    Dim xDic As Object
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "Does not support multiple selections", , "Kutools for Excel"
        Exit Sub
    End If
    If xRg.Columns.Count <> 2 Then
        MsgBox "There must be only two columns in the selected range", , "Kutools for Excel"
        Exit Sub
    End If
    xArr = xRg
    Set xDic = CreateObject("Scripting.Dictionary")
    xDic.CompareMode = 1
    For I = 1 To UBound(xArr)
        If Not xDic.Exists(xArr(I, 1)) Then
            xDic.Item(xArr(I, 1)) = xDic.Count + 1
            xArr(xDic.Count, 1) = xArr(I, 1)
            xArr(xDic.Count, 2) = xArr(I, 2)
        Else
            xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
        End If
    Next
    Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr
End Sub

3. 그런 다음 F5 키를 눌러이 코드를 실행하고 프롬프트 상자가 튀어 나와 고유 값을 기준으로 연결하려는 데이터 범위를 선택하라는 메시지가 표시됩니다 (스크린 샷 참조).

유니크 9을 연결하는 문서

4. 딸깍 하는 소리 OK고유 한 값이 추출되고 다른 열의 해당 값이 새 워크 시트로 함께 연결됩니다.

주의 사항: 위의 코드에서 빨간색 쉼표를 변경할 수 있습니다. xArr (xDir.Item (xArr (I, 1)), 2) = xArr,"& xArr (I, 2) 이 스크립트에서 결합 된 데이터를 분리하려는 다른 분리 문자로 변경하십시오.


화살표 오른쪽 파란색 거품 고유 한 값을 나열하고 해당 값을 Excel 용 Kutools와 연결합니다.

당신이 있으면 Excel 용 Kutools그와 고급 행 결합 기능을 사용하면 코드없이이 문제를 쉽고 빠르게 해결할 수 있습니다.

설치 후 Excel 용 Kutools, 다음과 같이하십시오 :( 무료 다운로드 지금 Excel 용 Kutools! )

1. 첫째, 원본 데이터를 유지하려면 원본 데이터의 사본을 만들어야합니다. 그런 다음 고유 값을 기준으로 연결하려는 데이터 범위를 선택하십시오.

2. 그런 다음 Kutools > 함유량 > 고급 행 결합, 스크린 샷보기 :

유니크 10을 연결하는 문서

3. 에서 고급 행 결합 대화 상자에서 고유 한 값만 나열 할 열 이름을 클릭하고 기본 키, 스크린 샷보기 :

유니크 11을 연결하는 문서

4. 그런 다음 연결하려는 다른 열 이름을 클릭하고 결합결합 된 데이터를 분리하기위한 하나의 구분 기호를 선택하십시오 (스크린 샷 참조).

유니크 12을 연결하는 문서

5. 그런 다음 Ok 버튼을 클릭하면 표시된 다른 스크린 샷과 같이 값이 다른 열의 고유 값을 기준으로 연결되었습니다.

유니크 13을 연결하는 문서

무료 다운로드 지금 Excel 용 Kutools!


Excel 용 Kutools는 대부분의 문제를 해결하고 생산성을 80 % 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 수식, 차트 그리고 당신이 전에 사용했던 것; 셀 암호화 비밀번호로; 메일 링리스트 만들기 그리고 이메일을 보내 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집); 레이아웃 읽기 (많은 셀을 쉽게 읽고 편집); 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 분할 셀 내용; 중복 행 / 열 결합... 중복 세포 방지; 범위 비교...
  • 복제 또는 고유를 선택하십시오. 행; 빈 행 선택 (모든 세포는 비어있다); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 랜덤 선택 ...
  • 정확한 사본 공식 참조를 변경하지 않는 다중 셀; 참조 자동 작성 여러 장에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 소계 생성 및 인쇄; 셀 내용과 주석 간 변환...
  • 수퍼 필터 (필터 구성표를 저장하고 다른 시트에 적용); 고급 정렬 월 / 주 / 일별, 빈도 등; 특수 필터 대담하고 기울임 꼴로
  • 통합 문서와 WorkSheets 결합; 키 열을 기준으로 테이블 병합 데이터를 여러 시트로 분할; 일괄 변환 xls, xlsx 및 PDF...
  • 300 이상의 강력한 기능. Office / Excel 2007-2019 및 365를 지원합니다. 모든 언어를 지원합니다. 기업이나 조직에 쉽게 배포 할 수 있습니다. 30 일 무료 평가판 전체 기능.
kte 탭 201905

Office 탭 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, 게시자, 액세스, Visio 및 프로젝트.
  • 새 창보다는 동일한 창에서 새 탭으로 여러 문서를 열고 만들 수 있습니다.
  • 50 %만큼 생산성을 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
오피셜
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    MSBrown · 2 years ago
    I was successfully using the VBA function but something has gone wrong with it - I am only having a #VALUE! error returned now in places where it was working previously. I have combed my data for errors and tried removing and re-creating the VBA module, and renaming the function, nothing seems to be working. Any help would be appreciated, thanks!
  • To post as a guest, your comment is unpublished.
    Marek · 2 years ago
    Thank you! Great and simple function works perfect for me!

    https://www.extendoffice.com/documents/excel/3418-excel-concatenate-unique-values.html#a1