一个关于excel表格转置并去除冗标题的问题

geloly

问题
                                 大约就是下面这个意思，表是个游戏的数据文件，原版每一条单独转置后还需要去除标题，效率太低了，求助有没有更好的方法？         

对格式的需求（有附表格）

                                 原版                                        需要的格式                                                        
                                                                                                        
                Vanilla        S2R v0310                        Name        Cost        Upkeep        Size        Melee Attack        Charge Bonus        Bonus vs Cavalry        Melee Defence
Name        Yari Ashigaru                                        Yari Ashigaru        250        75        200        4        1        20        3
        Cost        250                                                65                        5        6        7
        Upkeep        75        65                        Hattori Yari Ashigaru        250        100        200        4        1        20        3
        Size        200                                                70                        5        6        7
        Melee Attack        4                                Ikko Ikki Yari Ashigaru        250        75        200        3        1        20        2
        Charge Bonus        1        5                                        65                        5        6        7
        Bonus vs Cavalry        20        6                        Oda Yari Ashigaru        250        50        200        5        1        20        4
        Melee Defence        3        7                                                                5        6        7
        Armour        2        5                                                                                
        Morale        5        12                                                                                
Name        Hattori Yari Ashigaru                                                                                                
        Cost        250                                                                                       
        Upkeep        100        70                                                                                
        Size        200                                                                                       
        Melee Attack        4                                                                                       
        Charge Bonus        1        5                                                                                
        Bonus vs Cavalry        20        6                                                                                
        Melee Defence        3        7                                                                                
        Armour        2        5                                                                                
        Morale        5

感谢

honggexjq

代码写的，试试：

1. Sub my_test()
   
2. Dim i&, k&, Pno&, darr, dic As Object, rarr()
   
3. Set dic = CreateObject("scripting.dictionary")
   
4. darr = Range("a4").CurrentRegion
   
5. ReDim rarr(1 To UBound(darr), 1 To UBound(darr))
   
6. rarr(1, 1) = "Name": Pno = 1
   
7. For i = 2 To UBound(darr)
   
8.     If darr(i, 1) <> "" Then
   
9.         k = k + 2: rarr(k, 1) = darr(i, 2)
   
10.     Else
    
11.         If Not dic.exists(darr(i, 2)) Then Pno = Pno + 1: rarr(1, Pno) = darr(i, 2): dic.Add darr(i, 2), Pno
    
12.         rarr(k, dic(darr(i, 2))) = darr(i, 3)
    
13.         rarr(k + 1, dic(darr(i, 2))) = darr(i, 4)
    
14.     End If
    
15. Next
    
16. [g15].CurrentRegion.Clear
    
17. [g15].Resize(k + 2, Pno) = rarr
    
18. Range("g16:g" & [g65536].End(xlUp).Row).Font.Bold = True
    
19. End Sub
    

复制代码

geloly

帮得那么认真，我都有点不好意思了 呵呵
马上试试看