출처 : https://www.extendoffice.com
경우에 따라 vlookup하여 여러 일치 값을 한 번에 단일 셀로 반환 할 수 있습니다. 그러나 반환 된 셀에 반복되는 값이있는 경우 중복을 무시하고 Excel에서 표시된 스크린 샷과 같이 일치하는 모든 값을 반환 할 때만 고유 값을 유지할 수 있습니까?
Vlookup 및 사용자 정의 함수를 사용하여 여러 일치 값을 중복없이 반환
Vlookup 및 사용자 정의 함수를 사용하여 여러 일치 값을 중복없이 반환
다음 VBA 코드는 중복없이 여러 일치 값을 반환하는 데 도움이됩니다.
1. 누르고있어. Alt + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.
2. 딸깍 하는 소리 끼워 넣다 > 모듈다음 코드를 모듈 창문.
VBA 코드 : Vlookup 및 여러 고유 일치 값 반환 :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | Function MultipleLookupNoRept(Lookupvalue As String, LookupRange As Range, ColumnNumber As Integer) Dim xDic As New Dictionary Dim xRows As Long Dim xStr As String Dim i As Long On Error Resume Next xRows = LookupRange.Rows.Count For i = 1 To xRows If LookupRange.Columns(1).Cells(i).Value = Lookupvalue Then xDic.Add LookupRange.Columns(ColumnNumber).Cells(i).Value, "" End If Next xStr = "" MultipleLookupNoRept = xStr If xDic.Count > 0 Then For i = 0 To xDic.Count - 1 xStr = xStr & xDic.Keys(i) & "," Next MultipleLookupNoRept = Left(xStr, Len(xStr) - 1) End IfEnd Function |
3. 코드를 삽입 한 후 다음을 클릭하십시오. 도구 > 참조 열렸던 응용 프로그램 용 Microsoft Visual Basic 창을 띄운 다음 튀어 나왔다. 참조 - VBAProject 대화 상자, 확인 Microsoft Scripting 런타임 에서 옵션 사용 가능한 참조 목록 상자, 스크린 샷보기 :
4. 그런 다음 OK 대화 상자를 닫고 코드 창을 저장하고 닫은 다음 워크 시트로 돌아가서이 수식을 입력하십시오. =MultipleLookupNoRept(E2,A2:C17,3) 결과를 출력하려는 빈 셀에 넣고 들어가다 키를 사용하여 올바른 결과를 얻을 수 있습니다. 스크린 샷보기 :
주의 사항: 상기 식에서, E2 당신이 바라는 기준입니다. A2 : C17 당신이 사용하고자하는 데이터 범위, 3 반환 값을 포함한 열 번호입니다.
권장 생산성 도구
사무실 탭
Chrome, Firefox 및 새 Internet Explorer와 마찬가지로 Excel 및 기타 Office 소프트웨어에 편리한 탭을 가져옵니다.
Excel 용 Kutools
놀랄 만한! 5 분 동안 생산성을 높입니다. 매일 2 시간을 절약 할 수있는 특별한 기술이 필요하지 않습니다!
200 Excel의 새로운 기능, Excel을 훨씬 쉽고 강력하게 만듭니다 :
- 데이터 손실없이 셀 / 행 / 열 병합.
- 여러 시트 및 통합 문서 결합 및 통합.
- 범위 비교, 여러 범위 복사, 날짜, 단위 및 통화 변환 텍스트 변환.
- 색상, 페이징 부분합, 고급 정렬 및 수퍼 필터,
- 추가 선택 / 삽입 / 삭제 / 텍스트 / 형식 / 링크 / 주석 / 통합 문서 / 워크 시트 도구 ...
