일치/색인을 통해 데이터 매트릭스에서 여러 개의 고유한 결과를 얻는 방법

Question

두 개의 열이 있습니다.

    Column A     Column B

 1  Course ID   Professors  <---- (Column Headers)  
 2  1179/03     Professor-1  
 3  1179/03     
 4  1179/03     
 5  1300/20     Professor-2   
 6  1300/20     Professor-3  
 7  1300/21     Professor-2  
 8  1300/21     Professor-3  
 9  1300/21     Professor-4  
10  1300/21     Professor-4
11  1300/21     Professor-4

각 강좌 ID에는 여러 명의 교수가 할당될 수 있습니다.

같은 시트의 다른 부분에는 강좌 ID 목록이 있고 수식을 사용하여 할당된 교수를 삽입하려고 합니다.

    Column D     Column E

1  Course ID   Professors   <---  (Column Header)  
2  1179/03     Professor-1  
3  1300/20     Professor-2, Professor-3  
4  1300/21     Professor-2, Professor-3, Professor-4

데이터를 수동으로 제공하겠습니다.ㅏ,비그리고디열에 결과를 가져오고 싶습니다.E2,E3,E4Match/Index또는 를 사용하여 VLOOKUP.
내 한계는 새 열을 추가할 수 없으며 사용자가 특정 열에 따라 데이터를 정렬하도록 제한할 수 있다는 것입니다.

누구든지 나를 도와주세요.

Answer 1

게시된 데이터와 유사한 데이터를 사용하는 이 짧은 매크로는 다음과 같습니다.

Sub Roster()
    Dim rc As Long, i As Long, j As Long, v As String
    Dim nA As Long, nB As Long, nD As Long, vv As String

    rc = Rows.Count
    nA = Cells(rc, 1).End(xlUp).Row
    nB = Cells(rc, 2).End(xlUp).Row
    nD = Cells(rc, 4).End(xlUp).Row

    For i = 2 To nD
        v = Cells(i, 4)
        vv = ""
        For j = 2 To nA
            If v = Cells(j, 1) And Cells(j, 2) <> "" And InStr(1, vv, Cells(j, 2)) = 0 Then
                vv = vv & "," & Cells(j, 2)
            End If
        Next j
        Cells(i, 5) = Mid(vv, 2)
    Next i
End Sub

생산할 것입니다: