全部显示在分级显示中对一个区域进行升级（即降低其分级显示的级别）。指定区域必须是行或列，或者行区域或列区域。如果指定区域在数据透视表中，本方法将对该区域内的项取消分组。
expression.Ungroup
expression 必需。该表达式返回一个 Range 对象。
如果当前单元格在父字段的字段标题中，则该字段中的所有分组将被取消，并且该字段从数据透视表中删除。当父字段中的最后一个分组被取消后，整个字段将从数据透视表中删除。
应用于 Shape 和 ShapeRange 对象的 Ungroup 方法。
将组合到指定的图形或图形区域中的图形取消组合。在指定的图形或图形区域内分解图片和 OLE 对象。将取消组合的图形当作单个 ShapeRange 对象返回。
expression.Ungroup
expression 必需。该表达式返回上面的对象之一。
因为把图形组合当作单个对象对待，所以对图形进行组合或取消组合操作时，将会更改 Shapes 集合中项的数目，并更改集合中受影响的项之后的项的索引号。
本示例取消 ORDER_DATE 字段的分组。
Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable
Set groupRange = pvtTable.PivotFields("ORDER_DATE").DataRange
groupRange.Cells(1).Ungroup本示例取消 myDocument 中的所有图形组合，并分解所有的图片和 OLE 对象。
Set myDocument = Worksheets(1)
For Each s In myDocument.Shapes
s.Ungroup
Next本示例取消 myDocument 中的所有图形组合，但不分解文档中的图片和 OLE 对象。
Set myDocument = Worksheets(1)
For Each s In myDocument.Shapes
If s.Type = msoGroup Then s.Ungroup