excel中怎么根据A列中相同数据，将B列中数据提取出来“？

Question

如题所述

Answer 1

Sub 提取()
'''按ALT+F11打开代码窗口，复制，粘贴进去，然后按F5执行，祝你好运
 Dim d
 Dim arr, x&, t&
 Set d = CreateObject("Scripting.Dictionary")
  t = ActiveSheet.[B65535].End(xlUp).Row
 arr = Range("A1:B" & t)
 For x = 1 To UBound(arr)
   d(arr(x, 1)) = d(arr(x, 1)) & arr(x, 2) & ","
 Next x
 Range("D1").Resize(d.Count) = Application.Transpose(d.Keys)
 Range("E1").Resize(d.Count) = Application.Transpose(d.Items)
End Sub

Answer 2

我要用VBA做，请加分。