纵向转横向

小新和小葵

诚心求助：原数据有2列，有1000+行。相当于本来是一个属性占一行数据记录，现在想变成同一个水果的多种属性在同一行中。谢谢大家！~

wangjguo44

E列去重复，F列往右纵横转换。
有1000+数据，公式预备到1100行，但是真的1000+都填满数据，公式运行会慢下来！

Chip_Kenny

可试用字典:
Sub zz()
Dim arr, brr(), d, dd, t, tt
Set d = CreateObject("scripting.dictionary")
Set dd = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion
For i = 2 To UBound(arr)
d(arr(i, 1)) = d(arr(i, 1)) & "|" & arr(i, 2)
dd(arr(i, 1)) = dd(arr(i, 1)) + 1
Next
t = d.items
tt = Application.Max(dd.items)
ReDim brr(1 To d.Count, 1 To tt)
For i = 0 To UBound(t)
    n = Split(Mid(t(i), 2), "|")
    For j = 0 To UBound(n)
        brr(i + 1, j + 1) = n(j)
    Next
Next
[h5].Resize(d.Count, tt) = brr
[g5].Resize(d.Count, 1) = Application.Transpose(d.keys)
Set d = Nothing
Set dd = Nothing
End Sub

yeminqiang

1、如果装有powerquery的话，2/3步操作就可以完成了。
首先，在源数据表添加辅助列，对水果进行计数排序，公式 =COUNTIF(A$2:A2,A2)，见图：


2、将数据表添加至powerquery编辑器，操作：将光标放在表格内，在powerquery菜单栏--选择--从表，如下图


3、在pq编辑器进行操作，将辅助列放在第1列，如下图（也可以在数据源表就将辅助列放在第1列，此处操作就节省）


4、在pq编辑器透视“辅助列”，选中辅助列--转换--透视列


5、得出结果，退出保存。


想来1000多条数据的话，用powerquery转换速度也是蛮快的。

小新和小葵

谢谢wangjguo44，尝试了你的方法，是可行的，可是有个问题，就是出来的结果每个最多只能显示2个属性，如附件截图。第一次发帖有点不知道怎么放图片回复。由于文档是加密的无法上传原文件。

小新和小葵

Chip_Kenny 发表于 2015-7-8 08:08
可试用字典:
Sub zz()
Dim arr, brr(), d, dd, t, tt

十分感谢Chip_Kenny，但是由于我还不会用VBA，所以暂时用不上你的方法。十分抱歉。

小新和小葵

yeminqiang 发表于 2015-7-8 08:51
1、如果装有powerquery的话，2/3步操作就可以完成了。
首先，在源数据表添加辅助列，对水果进行计数排序， ...

谢谢yeminqiang！看起来很厉害的样子，可是公司的电脑IE只能用IE8，尝试了装powerquery但是装不了。晚上回去在自己电脑上试一下。十分感谢。

yeminqiang

小新和小葵 发表于 2015-7-8 09:35
谢谢yeminqiang！看起来很厉害的样子，可是公司的电脑IE只能用IE8，尝试了装powerquery但是装不了。晚上 ...

这个和ie8也什么关系吧？用2013版的excel就可以用powerquery了。这个工具也是非常不错的。

小新和小葵

TO:yeminqiang，我的是2010版本的excel，装的时候报错了呢~

wangzl88

Chip_Kenny 发表于 2015-7-8 08:08
可试用字典:
Sub zz()
Dim arr, brr(), d, dd, t, tt

特别好用，谢谢！！