多列变一列~~~~急~~~

yifan0112

怎么把多列不相同的行的数据首尾相连合成一列，急急~~~~[attach]1586474

安全为主

看这个帖子，
多列转换一列 这个办法不错【微积分+1】
http://club.excelhome.net/thread-1040879-1-1.html

1583478094

数据蛮多，个人觉得用VBA处理好。建议用do循环试一下

清风竹-

请看附件。

清风竹-

1. Sub 多列转一列()
   
2. l = [A1].CurrentRegion.Columns.Count
   
3. For i = 2 To l
   
4. m = Cells(65536, 1).End(3).Row + 1
   
5. n = Cells(65536, i).End(3).Row
   
6. Cells(1, i).Resize(n, 1).Copy Cells(m, 1)
   
7. Next
   
8. Columns(2).Resize(, l - 1).Delete Shift:=xlToLeft
   
9. End Sub

复制代码

yifan0112

清风竹- 发表于 2014-5-4 20:57

多谢~~~~~~~但是执行错误。还在努力调试