excel中怎么根据A列中相同数据,将B列中数据提取出来“?
展开全部
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
2017-06-09
展开全部
我要用VBA做,请加分。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |