请教转置与换行如何同时完成

linkylone · 发表于 2010-9-21 18:35

对于一列数值（例：48个），想变成按顺序（即直接转置后从左到右的数值顺序）5个数值一行的形式，依次排列下去。

1                      1 2 3 4 5
2                      6 7 。  。。
3                      。。。。。。。。
4                      。。。。。。。。。
5
。
。
48

求教，有没有一次性的方法。不要5个数值进行一次转置，然后重复。或全部转置然后剪切。

zljkd007 · 发表于 2010-9-21 18:42

offset+row+column函数！

一剑惊心 · 发表于 2010-9-21 18:43

虽然公式很简单，但也不能简单到连附件也没有啊

yangrongguan · 发表于 2010-9-21 19:21

...............

李兴德 · 发表于 2010-9-21 19:27

还能上附件啊？

liuyan819 · 发表于 2010-9-21 21:01

Sub transpose()
Dim i%, arr, arr2()
   arr = [a1].CurrentRegion
   ReDim arr2(1 To UBound(arr) , 1 To 5)
   j = 1
   For i = 1 To UBound(arr)
      m = m + 1
      If m > 5 Then m = 1: j = j + 1
      arr2(j, m) = arr(i, 1)
   Next
   [C1].Resize(j, 5).Value = arr2
End Sub

明天中秋,送个礼,楼主不上附件就不计较了

linkylone · 发表于 2010-9-22 19:36

上来一看，哇，几位大大真热情啊，谢谢啦！、
另中秋快乐！！

去试试看

		自动登录	找回密码
密码			免费注册