求助将Excel表中的横表转换为竖表，感激不尽

zhymsj

遇到一些困难，请各位大神指点，想把下图中的横表转换为竖表

做了个Excel的表已经上传，由于手头数据比较多，经常要做表一中及万行的转为表二的竖表，奈何本人计算机知识有限，学习了十多天的VBA还是没有思路结觉这个问题，请各位大神看到了指点一下，感激不尽

wang93915066

选择性粘贴---转置？是这个效果吗？

zhymsj

wang93915066 发表于 2019-2-28 10:12
选择性粘贴---转置？是这个效果吗？

转置不是这个效果呀

zhymsj

求大神帮忙给看看啊

王佩鸣

1. Sub zz()
   
2. Dim co As Integer
   
3. Dim i As Integer
   
4. co = Sheet1.Range("a1").End(xlToRight).Column
   
5. For i = 1 To co / 2
   
6. Sheet2.Cells(i, 1) = Sheet1.Cells(2, 2 * i - 1)
   
7. Sheet2.Cells(co / 2 + i, 1) = Sheet1.Cells(3, 2 * i - 1)
   
8. Sheet2.Cells(co + i, 1) = Sheet1.Cells(4, 2 * i - 1)
   
9. Sheet2.Cells(i, 2) = Sheet1.Cells(2, 2 * i)
   
10. Sheet2.Cells(co / 2 + i, 2) = Sheet1.Cells(3, 2 * i)
    
11. Sheet2.Cells(co + i, 2) = Sheet1.Cells(4, 2 * i)
    
12. Next
    
13. End Sub

复制代码