大数据2列调整为多行

豆一丁

谢谢老师帮助，结果样式见附件

约定的童话

水平有限，耗时9秒，哈哈.....
Sub 去重()
    Application.ScreenUpdating = False
    Dim i, n, arr, brr, d As Object
    Set d = CreateObject("scripting.dictionary")
    arr = [a1].CurrentRegion
    ReDim brr(1 To UBound(arr), 1 To 100)
    For i = 2 To UBound(arr)
        t = arr(i, 2)
        If Not d.exists(t) Then
            n = n + 1
            d(t) = n
            brr(n, 1) = arr(i, 2)
        End If
    Next
    [d2].Resize(UBound(brr), 100) = brr
    Call 转置
    MsgBox "转置完毕"
    Application.ScreenUpdating = True
End Sub

Sub 转置()
    Dim i, n, m, arr, brr
    arr = [a1].CurrentRegion
    m = 4
    For n = 2 To [d65536].End(3).Row
        For i = 2 To UBound(arr)
            If arr(i, 2) = Cells(n, "d") Then
                m = m + 1
                Cells(n, m) = arr(i, 1)
            End If
        Next
        m = 4
    Next
End Sub

我走我流

用PQ试了下，仅供参考

豆一丁

我走我流 发表于 2019-6-26 22:17
用PQ试了下，仅供参考

结果非常好，怎么做的呢，老师，可以交我么，谢谢，我加您

豆一丁

约定的童话 发表于 2019-6-26 21:15
水平有限，耗时9秒，哈哈.....
Sub 去重()
    Application.ScreenUpdating = False

老师，我看到分段，是2个语句吧，看不懂呀，不会做呀

豆一丁

约定的童话 发表于 2019-6-26 21:15
水平有限，耗时9秒，哈哈.....
Sub 去重()
    Application.ScreenUpdating = False

可以叫我每个语句含义么，

我走我流

豆一丁 发表于 2019-6-27 06:34
结果非常好，怎么做的呢，老师，可以交我么，谢谢，我加您

思路就是 分组，再拆分
你点编辑，可以看到每一步的操作的

约定的童话

豆一丁 发表于 2019-6-27 06:36
老师，我看到分段，是2个语句吧，看不懂呀，不会做呀

这个理解起来需要VBA基础知识，搞不懂或者加我QQ学习下或者就用楼上PQ的结果吧，随便你

lg0219

我走我流 发表于 2019-6-27 07:37
思路就是 分组，再拆分
你点编辑，可以看到每一步的操作的

= Table.Group(删除的错误, {"名称"}, {"计数", each [角度差], type list})
请教一下，这一步的公式需要手动修改吗？  我用工具栏的分组功能做不出按[角度差]的计数。怎么操作？

我走我流

lg0219 发表于 2019-6-27 09:25
= Table.Group(删除的错误, {"名称"}, {"计数", each [角度差], type list})
请教一下，这一步的公式需 ...

这步是直接写的，也可以在操作中，（先分组--按行再修改成这个公式）