2013-04-01 116 views
0

基本上我很樂意使用Pivote Table,但它無法正確顯示。Excel Sum和Group by inplace?

說我有

+---------+---+-----+ 
    | A | B | C | 
    +-+---------+---+-----+ 
    |1| Date |Qty|Title| 
    +-+---------+---+-----+ 
    |2|4/01/2013|10 |Foo | 
    +-+---------+---+-----+ 
    |3|4/01/2013|20 |Foo | 
    +-+---------+---+-----+ 
    |4|4/01/2013|5 |Bar | 
    +-+---------+---+-----+ 
    |5|4/01/2013|5 |Test1| 
    +-+---------+---+-----+ 
    |6|4/01/2013|15 |Test2| 
    +-+---------+---+-----+ 

我需要實現:

+---------+---+-----+ 
    | A | B | C | 
    +-+---------+---+-----+ 
    |1| Date |Qty|Title| 
    +-+---------+---+-----+ 
    |2|4/01/2013|30 |Foo | 
    +-+---------+---+-----+ 
    |3|4/01/2013|5 |Bar | 
    +-+---------+---+-----+ 
    |4|4/01/2013|5 |Test1| 
    +-+---------+---+-----+ 
    |5|4/01/2013|15 |Test2| 
    +-+---------+---+-----+ 

與數據透視表的問題是,我似乎無法修復它想看起來像一個事實:

+---------+---+-----+ 
    | A | B | C | 
    +-+---------+---+-----+ 
    |1| Date |Qty|Title| 
    +-+---------+---+-----+ 
    |2|4/01/2013|30 |Foo | 
    +-+---------+---+-----+ 
    |3|   |5 |Bar | 
    +-+---------+---+-----+ 
    |4|   | |Test1| 
    +-+---------+---+-----+ 
    |5|   |15 |Test2| 
    +-+---------+---+-----+ 

因爲這是被導入到一個腳本,我沒有控制,使用各行各[R easons我需要所有信息。

+1

而不是VBA我會使用我的數據透視表旁邊的公式來重複丟失的數據。所以公式將在D/E/F列中。 – whytheq

回答

0

我想出了這

Sub Sum_And_Group() 

    For Each Title In Range("C2:C20") 
     If Title <> 0 Then 
      Do While Title.Offset(1, 0) = Title 
       Title.Offset(0, -1) = Title.Offset(0, -1) + Title.Offset(1, -1) 
       Title.Offset(1, 0).EntireRow.Delete 
      Loop 
     End If 
    Next 

    End Sub 

它的工作,但似乎是不安全和骯髒。任何人都有更好的?

0

應該有透視設置Repeat Item labels

選項從Excel 2010中(我沒有2007年,不能肯定它在那裏太)

enter image description here

+0

2007年,該複選框不存在。 – user2140261