利用Ureport2定义如下交叉报表：

现在希望在第一行的4和5之间以及7和51之间做分段汇总。

希望形式如下：

步骤一：

按要求做如上报表，其中D列和F列公式与B列一致。

步骤二：

B1列定义如上过滤条件

同理D1和F1分别定义过滤条件为：

步骤三：

D2格子设置左父格为A2。

同理：F2的左父格也设为A2

步骤四：

C2填入表达式sum(B2),并设置左父格为A2

同理E2设置如下：

G2设置如下：

步骤五：

C列、E列、G列分别选择指定底色。

预览后效果为：

按上述处理即完成了交叉表的分段汇总展示。

1.选择插入-数据透视表，点击确定

则会出现如下的数据透视表的初始状况。

    如果一开始创建透视图跟透视表的时候选择新表格，那直接删掉这个新表格就可以删除了

    如果一开始创建透视图跟透视表的时候选择使用现有表格，删除透视表的时候记得不要点中透视表的单元格，而是从透视表外点一个单元格，左键拉取包含透视表的区域。选中区域后右键删除，选第一项 “右键单元格上移”即可。

目录

示例

代码

交叉汇总表

建立交叉汇总表的步骤

建立交叉汇总表的优化

示例

    如图所示，该表为某公司的销售数据表。现希望建立一个汇总表，按月份和商品名汇总收入，并将月份作为列标题而商品名作为行标题。该如何用VBA实现？

代码

    建立商品名的不重复列表，将其存入汇总数据表首列。获取月份列的不重复值，将其存入汇总数据表的首行。循环遍历原始数据，根据商品名获取其汇总数据表所在的行号，根据月份获取其汇总行所在的列号，根据行号和列号将原始数据中的收入值累加至汇总表的相应单元格中。

Option Explicit

Sub 创建交叉查询表()
    Dim shtData As Worksheet
    Dim shtSum As Worksheet
    Dim rowSumNew As Long
    Dim colSumNew As Long
    Dim rowSum As Long
    Dim colSum As Long
    Dim rowData As Long
    Dim i As Long
    Dim sMonth As String
    Dim sProd As String
    Dim bln As String
    
    Set shtData = Sheets("sheet1")
    Set shtSum = Sheets("sheet2")
    
    rowSumNew = 2
    colSumNew = 2
    
    shtSum.Cells.Clear
    
    For rowData = 2 To shtData.Range("A1").CurrentRegion.Rows.Count
        sMonth = Month(shtData.Cells(rowData, "A").Value)
        sProd = shtData.Cells(rowData, "C").Value
        
        bln = True
        
        For i = 2 To rowSumNew
            If sProd = shtSum.Cells(i, 1).Value Then
                bln = False
                rowSum = i
                Exit For
            End If
        Next i
        
        If bln Then
            shtSum.Cells(rowSumNew, 1).Value = sProd
            rowSum = rowSumNew
            rowSumNew = rowSumNew + 1
        End If
        bln = True
        For i = 2 To colSumNew
            If sMonth = shtSum.Cells(1, i).Value Then
                bln = False
                colSum = i
                Exit For
            End If
        Next i
            If bln Then
                shtSum.Cells(1, colSumNew).Value = sMonth
                colSum = colSumNew
                colSumNew = colSumNew + 1
            End If
            shtSum.Cells(rowSum, colSum).Value = shtSum.Cells(rowSum, colSum).Value + shtData.Cells(rowData, "E").Value
    Next rowData
    
    With shtSum
        .Range("A1").CurrentRegion.Rows(1).Style = "着色 2"
        .Range("A2:A" & .Range("A1").CurrentRegion.Rows.Count).Font.Bold = True
    End With
End Sub

交叉汇总表

    所谓交叉汇总表（也称为二维表），即由标题行和标题列组成，所有的数据具有相同的属性，且其位置由行标题及列标题所决定，如图所示。

    交叉汇总表不同于标准的数据格式，其最重要的特征是标题行所有的内容具备相同的属性，也即标题行来自同一个字段，各个标题是该字段中的值。而标准数据表中各个不同列的数据具有不同的属性。

建立交叉汇总表的步骤

    建立交叉汇总表与按列汇总数据有相似之处，首先需要根据数据建立汇总表的标题行和标题列，然后将标题行和标题列作为数据汇总的两个条件进行数据汇总。由于汇总数据所在的位置由行标题和列标题共同决定，因而在正式汇总时，应首先根据当前数据中与行标题和列标题相对应的字段位置，来确定实际汇总所在的位置。

建立交叉汇总表的优化

    可以发现，本例所提供的代码存在许多循环步骤，而循环结构基本类似。因而本例可以将几个循环步骤合并。实际上，在获取标题行或者标题列的过程中，程序对原始数据进行两次循环遍历，而这两次遍历已经可以确定汇总数据所在的位置。若将两次循环遍历过程合并，可以在循环中直接确定数据行所在的位置。因而，可以使用以下步骤来优化本例程序。

•     (1)从原始数据中取出1条数据，提取该数据的商品名以及月份。
•     (2)根据商品名在汇总表的第1列标题中查找，若找到，则记录该标题所在的行号，若找不到则添加一个标题，并记录新标题所在的行号。使用相同的方法找到月份所在的列。
•     (3)将原始数据的“收入”字段累加至汇总表中查找到的行号和列号所表示的单元格。
•     (4)重复以上步骤，直到原始数据区域所有的记录被访问。