標題:
[發問]
資料整理求解
[打印本頁]
作者:
eghost
時間:
2015-8-2 16:51
標題:
資料整理求解
本帖最後由 eghost 於 2015-8-2 16:56 編輯
請教各位先進，我有一堆資料，如下簡示：
[attach]21625[/attach]
現需要把它整理成如下圖示：
[attach]21626[/attach]
因為資料有很多筆，如果一筆一筆插入空白列再複製，要花很多時間，
不知道有沒有其他的方法可以快速整理我的資料?
作者:
ML089
時間:
2015-8-2 18:57
回復
1#
eghost
=OFFSET($A$1,(ROW(A1)-1)/2,MOD(ROW(A1)-1,2))
下拉
在複製/選擇性貼上/取值
作者:
eghost
時間:
2015-8-3 21:23
本帖最後由 eghost 於 2015-8-3 21:26 編輯
回復
2#
ML089
感謝版主解惑∼^0^
另外想請教，這是否也可以用VBA表達？
可以請版主賜教嗎？
純綷好奇啦~^.^
作者:
lpk187
時間:
2015-8-3 21:47
回復
3#
eghost
Option Base 1
Public Sub Ex()
Dim ar()
n = 1
For Each Rng In [a1:b10]
ReDim Preserve ar(n)
ar(n) = Rng
n = n + 1
Next
[a1:b10].ClearContents
[a1].Resize(UBound(ar)) = Application.Transpose(ar)
End Sub
複製代碼
作者:
eghost
時間:
2015-8-4 13:46
回復
4#
lpk187
感謝板主滿足了我的好奇心..^^
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
