請問 excel 資料庫問題

TC_Wang

TC_Wang
個人積分：0分
文章編號：20554491

0分

樓主

2010-06-28 13:54

請問這樣的資料如何在excel中轉換?

原始資料為左邊表格, 想要用自動的方式(非選擇上貼上,轉置)產生右邊的表格.

請問 excel 資料庫問題

感謝大大

2010-06-28 13:54 發佈

文章關鍵字 excel 資料庫問題

c.gary

c.gary
個人積分：20分
文章編號：20556283

20分

2樓

2010-06-28 15:13

TC_Wang wrote:
請問這樣的資料如何在excel中轉換?
原始資料為左邊表格, 想要用自動的方式(非選擇上貼上,轉置)產生右邊的表格.

作業？

TC_Wang

TC_Wang
個人積分：0分
文章編號：20561762

0分

樓主

2010-06-28 19:06

並不是呢...工作上需要的.
想了很久,想不出來..臨時用選擇性貼上做了. 但以後還會有這樣的情況. 這樣下去不是辨法, 所以想看看各位有沒有好辨法.

ptx

ptx
個人積分：1221分
文章編號：20573190

1221分

4樓

2010-06-29 7:47

範例麻煩清楚一點，要怎麼樣產生右邊表格？有什麼規則嗎？
如果想用函數，可以用transpose，不過輸入完範圍之後要加上ctrl+shift+ENTER

一個中文，各自表述

bluesystem

bluesystem
個人積分：2058分
文章編號：20573818

2058分

5樓

2010-06-29 8:48

剛剛試完transpose才發現, 這不能用transpose做.
樓主你不講規則是要大家從很小張的圖裏去猜嗎....

我看不出規則來....

與失敗為伍者，天天靠盃都是別人的錯。與成功為伍者，天天跟失敗切磋直到不再出錯。

TC_Wang

TC_Wang
個人積分：0分
文章編號：20577815

0分

樓主

2010-06-29 11:42

Sorry, 之前說明不清楚. 我用下面一個簡單的例子來說明.

左邊的表格中"1" 有A, B, D, E. "2" 有B, C, D, G, H. 但是縱向. 我要變成棤向.這樣的資料很多, 所以要用自動的轉.

謝謝.

kokoppd

kokoppd
個人積分：0分
文章編號：20659790

0分

7樓

2010-07-02 16:29

問題解決了嗎?
試試看這樣做

Sub test1()
Set D = CreateObject("Scripting.Dictionary")

With ThisWorkbook.Worksheets("Sheet5")
.[D5].CurrentRegion.ClearContents

For Each a In .Range(.[a2], .[A65536].End(xlUp))
If IsEmpty(D(a.Value)) Then
D(a.Value) = a.Offset(, 1)
Else
D(a.Value) = D(a.Value) & "," & a.Offset(, 1)
End If
Next

.[D5].Resize(, 2) = Array("AAA", "BBB")
.[D6].Resize(D.Count, 1) = Application.transpose(D.keyS)

For Each b In Range(.[D6], .[D65536].End(xlUp))
b(1, 2).Resize(, UBound(Split(D(b.Value), ",")) + 1) = Split(D(b.Value), ",")
Next

End With

End Sub