不同条数的列数据转置成行数据问题。。。

碧水惊澜

请教大神 ，数据表中有不同行数的记录若干，有一列字段可以标志区分，需要转置成单行排列的，麻烦哪位给想个办法。。。
   示例 见附件。。。。

谢谢啦。。。


关于转置的问题.rar (8.48 KB, 下载次数: 109)

2016-2-25 09:52 上传

点击文件名下载附件
xlsx文件

bajifeng

A列起始单元格式从第3行开始的吗？

碧水惊澜

从A2开始就可以，有个表头。。

bajifeng

1. Sub 两列转置() 'bajifeng
   
2. ar = [a3].CurrentRegion
   
3. Set d = CreateObject("scripting.dictionary")
   
4. For i = 1 To UBound(ar)
   
5.     If Not d.exists(ar(i, 1)) Then
   
6.         d(ar(i, 1)) = ar(i, 2)
   
7.     Else
   
8.         d(ar(i, 1)) = d(ar(i, 1)) & "," & ar(i, 2)
   
9.     End If
   
10. Next
    
11. [e3].CurrentRegion.ClearContents
    
12. [e3].Resize(d.Count) = Application.Transpose(d.keys)
    
13. For i = 0 To d.Count - 1
    
14.     br = Split(d.items()(i), ",")
    
15.     [e3].Offset(i, 1).Resize(1, UBound(br) + 1) = br
    
16. Next
    
17. End Sub

复制代码

bajifeng

>>>>>>>>>>>>>>>>>>>>>>>>

碧水惊澜

感谢 bajifeng  简单试了一下，满足 要求，我在试，，万分感谢。。

bajifeng

碧水惊澜 发表于 2016-2-25 10:39
感谢 bajifeng  简单试了一下，满足 要求，我在试，，万分感谢。。

恩，好的
不客气
有问题跟帖回复我接口。