同类信息，归类同一行显示

zpy2

cli_no_header;
select f01, group_concat(f02,'</td><td>') from Sheet1 group by f01;

zhangcheng6688

学习一下字典，打扰了
Sub test()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
ReDim brr(1 To UBound(arr), 1 To 10000)
For i = 2 To UBound(arr)
   If Not d.exists(arr(i, 1)) Then
      Set d(arr(i, 1)) = CreateObject("scripting.dictionary")
   End If
   d(arr(i, 1))(arr(i, 2)) = ""
Next
For Each kk In d.keys
   m = m + 1
   brr(m, 1) = kk
   n = 1
   For Each kk1 In d(kk).keys
      n = n + 1
      brr(m, n) = kk1
   Next
   If maxcol < n Then maxcol = n
Next
[f7].Resize(m, maxcol) = brr
End Sub