求各位大神，如何将多列数据转换为一列数据？？？

ynztljm

求各位大神，如何将多列多行数据转换为同一列数据

ynztljm

鄂龙蒙

1. Sub 转置()
   
2.     Dim i, j, ar, br(), m%
   
3.    [K1:K10000] = Empty
   
4.     ar = Range("A1").CurrentRegion
   
5.     For j = 1 To UBound(ar, 2)
   
6.         For i = 1 To UBound(ar)
   
7.             m = m + 1
   
8.             ReDim Preserve br(1 To m)
   
9.             br(m) = ar(i, j)
   
10.         Next
    
11.     Next
    
12.     [K1].Resize(m) = Application.Transpose(br)
    
13. End Sub

复制代码

micch

A11 公式：=b1   又拉下拉，然后A列复制，粘贴数值。删除BCD列

ynztljm

micch 发表于 2019-10-14 19:46
A11 公式：=b1   又拉下拉，然后A列复制，粘贴数值。删除BCD列

BCD列数据均要转换到同一列，不行啊！

ynztljm

鄂龙蒙 发表于 2019-10-14 19:44

大神，有函数公式吗？这对我太难了，不懂怎么用啊！谢谢啊！非常感谢帮助！！！

micch

ynztljm 发表于 2019-10-14 19:59
BCD列数据均要转换到同一列，不行啊！

为什么不行，我这里是可以的。这是论坛老师们分享过的小技巧，论坛好多帖子呢。

LWQ张无忌

ynztljm 发表于 2019-10-14 20:01
大神，有函数公式吗？这对我太难了，不懂怎么用啊！谢谢啊！非常感谢帮助！！！

E1，下拉
=OFFSET($A$1,RIGHT(ROW(1:1)-1,1),INT(ROW()/10-0.1))只对你目前数据量有用

LWQ张无忌

ynztljm 发表于 2019-10-14 20:01
大神，有函数公式吗？这对我太难了，不懂怎么用啊！谢谢啊！非常感谢帮助！！！

=OFFSET($A$1,RIGHT(ROW(1:1)-1,1),INT(ROW()/ROWS(A$1:A$10)-1%%%))
或者你数据行数增加，你看看这样。但每列数据都一样整齐才有用

nwsyang

micch 发表于 2019-10-14 19:46
A11 公式：=b1   又拉下拉，然后A列复制，粘贴数值。删除BCD列

确实方便，学了一个小技巧