[已解决]求助：以关键转置成行.zip

水木

求助：以关键转置成行.zip (22.45 KB, 下载次数: 11)

2014-12-10 09:40 上传

点击文件名下载附件 并拆分。附件中表3、表4中的拆分，也请设计一下。

最佳答案

月排行榜 / 总排行榜

dsmch

2014-12-10 11:34

………………

跳转到最佳答案楼层

qh8600

1. Sub demo()
   
2.     Dim ar, re(), x, y, a, i, j
   
3.     Dim d As Object
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     ar = Sheet1.Range("h2:i" & Sheet1.Cells(Rows.Count, "h").End(3).Row)
   
6.     For i = 1 To UBound(ar)
   
7.         d(ar(i, 1)) = d(ar(i, 1)) & "-" & ar(i, 2)
   
8.     Next
   
9.     x = d.keys
   
10.     y = d.items
    
11.     ReDim re(1 To d.Count, 1 To 100)
    
12.     For i = 1 To d.Count
    
13.         re(i, 1) = x(i - 1)
    
14.         a = Split(y(i - 1), "-")
    
15.         For j = 1 To UBound(a)
    
16.             re(i, j + 1) = a(j)
    
17.         Next
    
18.     Next
    
19.     Sheet2.Range("h2").Resize(UBound(re), UBound(re, 2)) = re
    
20. End Sub

复制代码

附件楼下

qh8600

求助：以关键转置成行.rar (30.35 KB, 下载次数: 19)

2014-12-10 11:16 上传

点击文件名下载附件
楼主试试

dsmch

………………