求助大神，如何将一个多行数据拆分成两列

computent2

求助！！！！
如附件所示，想把行拆分成一一对应的两列
第一列就是原始数据中的第一列，第二列是原始数据中同一行的不同列的内容。


如果第一列对应的人物有重复的话，就记录一下重复的次数。
（这一步做不到也可以。。。）


谢谢各位大神！！！

凌空一羽

Sub lkyy()
Dim br(1 To 100, 1 To 2), r As Range
ar = Range("a2").CurrentRegion
For i = 1 To UBound(ar)
    For j = 3 To UBound(ar, 2)
        If ar(i, j) <> "" Then
            n = n + 1
            br(n, 1) = ar(i, 2)
            br(n, 2) = ar(i, j)
        End If
    Next
Next
Range("b11:d100").ClearContents
[b11:C11] = [{"组长","组员"}]
Range("b12").Resize(n, 2) = br
Range("b11").CurrentRegion.RemoveDuplicates Columns:=Array(1, 2)
[d12] = "次数"
cr = Range("b11").CurrentRegion
For i = 2 To UBound(cr)
    n = 0
    For Each r In Range("a2").CurrentRegion
        If Cells(r.Row, 2).Value & r.Value = cr(i, 1) & cr(i, 2) Then n = n + 1
    Next
    cr(i, 3) = n
Next
Range("b11").CurrentRegion = cr
Range("b11:d11").ClearContents
End Sub

不知道为什么

不知道为什么

deadzlq

PQ参考解法