MS Excel - 상위 열을 기준으로 고유한 값을 계산하고 싶습니다.

Question

저는 Excel을 처음 접했습니다. 상위 열(이미지의 첫 번째 열(A))과 관련하여 세 열 각각의 고유 값(한 번에 하나씩만 고려)을 계산하는 데 도움이 필요합니다. 저 좀 도와주실 수 있나요? 감사해요!

편집: 피벗 테이블을 작성하면 개별 열의 개수가 아니라 최종 열의 개수가 제공됩니다.

소스 데이터:

변환 후 결과 데이터:

원천

A   B   C   D
p   d   g   k
p   e   g   k
q   d   h   k
q   f   h   o
r   d   h   o
r   e   i   m
r   f   h   m
s   d   i   n
s   d   i   o
s   f   i   o

결과

A   B   C   D
p   2   1   1
q   2   1   2
r   3   2   2
s   2   1   2

Answer 1

열 목록을 작성합니다.ㅏ고유 항목을 열에 넣습니다.이자형그런 다음 일련의 루프를 수행하여 다른 열의 고유 항목을 계산합니다.

Sub Macro1()
    Dim N As Long, i As Long
    Dim c As Collection, v As Variant
    Dim M As Long, j As Long, rc As Long
    Dim K As Long

    Columns("A:A").Copy Columns("E:E")
    Range("E:E").RemoveDuplicates Columns:=1, Header:=xlNo

    rc = Rows.Count
    M = Cells(rc, "A").End(xlUp).Row
    N = Cells(rc, "E").End(xlUp).Row

    For i = 1 To N
        v = Cells(i, "E").Text
            For K = 2 To 4
                Set c = Nothing
                Set c = New Collection
                For j = 1 To M
                    If v = Cells(j, "A").Text Then
                        On Error Resume Next
                            c.Add Cells(j, K).Text, CStr(Cells(j, K).Text)
                        On Error GoTo 0
                    End If
                Next j
                Cells(i, K + 4).Value = c.Count
            Next K
    Next i
End Sub