excel怎么自动整理数据

VBA

这个要用VBA才能完成的

追答 : 代码如下，运行效果如图，一键完成 Sub ses() Application.DisplayAlerts = False Dim x, y, d Dim arr, ar, ar1() arr = Range("a2:b" & Range("a65536").End(xlUp).Row) Set d = CreateObject("scripting.dictionary") For y = 1 To UBound(arr) d(arr(y, 1)) = "" Next: ar = d.keys Range("d2").Resize(d.Count, 1) = Application.Transpose(d.keys) For x = 0 To UBound(ar) For i = 1 To UBound(arr) If ar(x) = arr(i, 1) Then n = n + 1 ReDim Preserve ar1(1 To n) ar1(n) = arr(i, 2) End If Next i Range("e" & x + 2).Resize(1, n) = ar1 Erase ar1: n = 0 Next x Range("d2").CurrentRegion.Borders.LineStyle = True Application.DisplayAlerts = True End Sub