excel - Excel Sum 和 Group By 就地？

Question

基本上我很想使用数据透视表，但它不能正确显示。

说我有

    +---------+---+-----+
    |    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|
  +-+---------+---+-----+

而且因为这是被导入到脚本中，我无法控制，由于各种原因使用每一行，我需要所有行都包含所有信息。

Answer 1

Pivot设置中应该有一个选项Repeat Item labels

从 Excel 2010 （我没有 2007，不能确定它也在那里）

Answer 2

我想出了这个

    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

它有效，但似乎不安全和肮脏。有人有更好的吗？