Excel数据透视表教程

Excel -- 数据透视表 -- 动态数据 程香宙编译（二○○四年十月二十二日） 获得起点 有许多关于数据透视表信息的 书 关于书的成语关于读书的排比句社区图书漂流公约怎么写关于读书的小报汉书pdf 籍和网站. 相关摘要及内容 请到Jon Peltier的网站查看. 下载 示例文件 数 据 透 视 表 使用一个动态数据 你可能使用一个动态的公式定义数据透视表的数据源. 当一个新的条目添加到表格中 时，数据源自动扩展. 1. 命名一个区域 1. 选择插入>名称>自定义 2. 输入一个范围名称, 例如 Database 3. 在引用位置框中, 输入一个Offset公式定义范围大小, 这样做的前提必须是品名 列不能有空白单元格存在. ,例如: =OFFSET(销售额!$A$1,0,0,COUNTA(销售额!$A:$A),7) 本例中, 列表在一个名称为'销售额'的工作表中, 起始单元格为A1. 公式中使用 的参数是: 1. 引用单元格: 销售额!$A$1 2. 行偏移: 0 3. 列偏移: 0 4. 行数: COUNTA(销售额!$A:$A) 5. 列数: 7   注意: 如果要使用动态的列数,      请将7 替换成: COUNTA(销售额!$1:$1) 4. 点击确定 2. 将定义的名称范围用于数据透视表 1. 选择数据库中的一个单元格 页码，1/2Excel -- 数据透视表 -- 动态数据（程香宙编译） 2005-12-2file://G:\Excel\EXCEL教程\Excel数据透视表讲座\动态数据.html 1. 数据透视表 -- 动态数据 2. 数据透视表 -- 字段 3. 数据透视表 -- 显示和隐藏数据项 4. 数据透视表 -- 清除原有数据项 5. 数据透视表 -- 字段设置 6. 数据透视表 -- 获得透视数据 7. 数据透视表 -- 分组数据 8. 数据透视表 -- 复合范围 9. 数据透视表 -- 打印 2. 选择数据>数据透视表和图表报告 3. 选择'Microsoft Excel数据清单或数据库', 并点击下一步. 4. 在选定区域框内, 输入范围名称, 例如Database 5. 点击下一步 6. 点击算式按钮 7. 放置适当按钮到行,列和数据区域 8. 点击确定, 点击完成 页码，2/2Excel -- 数据透视表 -- 动态数据（程香宙编译） 2005-12-2file://G:\Excel\EXCEL教程\Excel数据透视表讲座\动态数据.html Excel -- 数据透视表 – 字段 （程香宙编译二○○四年十月二十四日） 1.整理复合字段 2. 重命名字段 下载 示例文件 整理复合字段 如果你在数据透视表的数据区域垂直放置了两个字段. 为了便于读取数据，你 可以重新整理表格. 1. 将鼠标指向字段的灰色按钮 2. 按着左键并拖拉数据按钮到有“汇兑”一词的单元格.' 3. 松开鼠标左键 此时两个数据字段成为水平位置排列. 重命名字段 当你向数据区域添加字段后, 它们被重命名, 例如 '数量' 变成了 '求和项数 量'. 有很多改变其名称的途径,但下面的操作是最简便易行的. 1. 选择数据透视表中的标题单元格. 2. 输入新标题. 3. 按回车键. 页码，1/2Excel -- 数据透视表 – 字段(程香宙编译) 2005-12-2file://G:\Excel\EXCEL教程\Excel数据透视表讲座\字段.html 1. 数据透视表 -- 动态数据 2. 数据透视表 -- 字段 3. 数据透视表 -- 显示和隐藏数据项 4. 数据透视表 -- 清除原有数据项 5. 数据透视表 -- 字段设置 6. 数据透视表 -- 获得透视数据 7. 数据透视表 -- 分组数据 8. 数据透视表 -- 复合范围 9. 数据透视表 -- 打印 页码，2/2Excel -- 数据透视表 – 字段(程香宙编译) 2005-12-2file://G:\Excel\EXCEL教程\Excel数据透视表讲座\字段.html Excel -- 数据透视表 -- 显示和隐藏数据项 程香宙编译二○○四年十月二十七日 1. 显示所有数据项 -- Excel 2002 2. 隐藏数据项 -- Excel 2002 3. 显示所有数据项 -- Excel 97/2000 4. 隐藏数据项 -- Excel 97/2000 5. 隐藏页字段数据项 下载 示例文件 显示所有数据项 -- Excel 2002 在数据透视表中，每个字段右侧都有一个小箭头，点击可下拉打开一个数据项 列表. 1. 在Excel 2002中, 除页字段这外其它字段下拉时都有一个包含复选框的 列表，第一个复选框本身就有“显示全部”数据项. 2. 选中此复选框，将显示据有数据项. 隐藏数据项 -- Excel 2002 你可以隐藏一个字段的保留一个之外的其它数据项. 1. 不选中“显示全部”及数据项复选框, 2. 至少选中其中一个数据项的复选框，并点击确定. 显示所有数据项 -- Excel 97/Excel 2000 在较早的Excel版本中, 在下拉框中没有“显示全部”一项, 你可以使用程序显示 右隐藏多个字段. 下面代码可使得可视字段下拉表中有显示所有数据项的功能. Sub PivotShowItemAllVisible() 'sort is set to Manual to prevent errors, e.g. 'unable to set Visible Property of PivotItem class Dim pt As PivotTable Dim pf As PivotField Dim pi As PivotItem Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next For Each pt In ActiveSheet.PivotTables    For Each pf In pt.VisibleFields     pf.AutoSort xlManual, pf.SourceName      For Each pi In pf.PivotItems        If pi.Visible <> True Then          pi.Visible = True        End If      Next pi     pf.AutoSort xlAscending, pf.SourceName    Next pf Next pt Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub       页码，1/4Excel -- 数据透视表 -- 显示和隐藏数据项(程香宙编译) 2005-12-2file://G:\Excel\EXCEL教程\Excel数据透视表讲座\显示和隐藏数据项.html 隐藏数据项 -- Excel 97/Excel 2000 在较早的Excel版本中, 在下拉框中没有“显示全部”一项, 你可以使用程序显示 右隐藏多个字段. 下面代码可使得可视字段下拉表中除最后一条数据项这外的 其它所有的功能. Sub HidePivotItemsVisible() 'hide all pivot items in all tables on sheet 'except last item Dim pt As PivotTable Dim pf As PivotField Dim pi As PivotItem   Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next For Each pt In ActiveSheet.PivotTables   For Each pf In pt.VisibleFields     pf.AutoSort xlManual, pf.SourceName     For Each pi In pf.PivotItems       If pi.Visible = False Then         pi.Visible = True       Else         pi.Visible = False       End If     Next   Next   pf.AutoSort xlAscending, pf.SourceName Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub 隐藏页字段数据项 页字段下拉框列表中不是复选框，你不能同时选中多个数据项. 你可以选择全 部或可视数据项中的一个. 使用下面的技巧可以显示多个数据项. 1. 双击字段按钮调出面字段对话框. 2. 在隐藏数据项列表中, 选择你想隐藏的数据项. 3. 点击确定. 页码，2/4Excel -- 数据透视表 -- 显示和隐藏数据项(程香宙编译) 2005-12-2file://G:\Excel\EXCEL教程\Excel数据透视表讲座\显示和隐藏数据项.html 1. 数据透视表 -- 动态数据 2. 数据透视表 -- 字段 3. 数据透视表 -- 显示和隐藏数据项 4. 数据透视表 -- 清除原有数据项 5. 数据透视表 -- 字段设置 6. 数据透视表 -- 获得透视数据 7. 数据透视表 -- 分组数据 8. 数据透视表 -- 复合范围 或者这样做 1. 将页字段按钮拖到行区域. 2. 使用复选框选择或删除数据项 3. 将页字段按钮拖回原处。   这样，数据透视表中仅显示页数据项中没有隐藏的数据项. 页码，3/4Excel -- 数据透视表 -- 显示和隐藏数据项(程香宙编译) 2005-12-2file://G:\Excel\EXCEL教程\Excel数据透视表讲座\显示和隐藏数据项.html 9. 数据透视表 -- 打印 页码，4/4Excel -- 数据透视表 -- 显示和隐藏数据项(程香宙编译) 2005-12-2file://G:\Excel\EXCEL教程\Excel数据透视表讲座\显示和隐藏数据项.html Excel -- 数据透视表 -- 清除原有数据项 程香宙编译二○○四年十月二十五日 1. 手动清除原有的数据项 2. 编写程序清除原有的数据项 -- Excel 2002 3. 编写程序清除原有的数据项 -- Excel 97/2000 下载 示例文件 原有的数据项仍保留在数据透视字段下拉框中 数据透视表的数据源可能改变, 导致字段下拉列表中有些无用的数据项存在. 例如有些销售人员已经离开公司, 但他们的名字仍然在数据透视表的数据项中 存在. 尽管你每次更新数据透视表后，这些名字仍然与新名字同时显示出来. 在下面 的列表中, 杨建新已经被刘艳代替,但他的名字仍然存在. 手动清除原有的数据项 从列表中手动清除原有的数据项操作方法: 1. 将数据透视字段拖拉到数据透视表以外的区域. 2. 点击数据透视表工具栏上的更新按钮 3. 将数据透视字段拖拉回到数据透视表区域 编写程序清除原有的数据项 -- Excel 2002或更高版本 在Excel 2002或更高版本中, 你可以编写程序改变数据透视表属性,防止遗漏 显示数据项或清除已经显示的数据项. Sub DeleteMissingItems2002All() '防止数据透视表中显示无用的数据项 '在 Excel 2002 或更高版本中 '如果无用的数据项已经存在,   '运行这个宏可以更新 Dim pt As PivotTable 页码，1/2Excel -- 数据透视表 -- 清除原有数据项(程香宙编译) 2005-12-2file://G:\Excel\EXCEL教程\Excel数据透视表讲座\清除原有数据项.html 1. 数据透视表 -- 动态数据 2. 数据透视表 -- 字段 3. 数据透视表 -- 显示和隐藏数据项 4. 数据透视表 -- 清除原有数据项 5. 数据透视表 -- 字段设置 6. 数据透视表 -- 获得透视数据 7. 数据透视表 -- 分组数据 8. 数据透视表 -- 复合范围 9. 数据透视表 -- 打印 Dim ws As Worksheet   For Each ws In ActiveWorkbook.Worksheets   For Each pt In ws.PivotTables     pt.PivotCache.MissingItemsLimit = xlMissingItemsNone   Next pt Next ws   End Sub     编写程序清除原有的数据项-- Excel 97/Excel 2000 在较早的Excel版本中, 运行下列代码可以清除数据透视表下拉表的原有数据 项. Sub DeleteOldItemsWB() '清除数据透视表中无用的数据项 ' 单位MSKB (202232) Dim ws As Worksheet Dim pt As PivotTable Dim pf As PivotField Dim pi As PivotItem On Error Resume Next For Each ws In ActiveWorkbook.Worksheets   For Each pt In ws.PivotTables     pt.RefreshTable     For Each pf In pt.VisibleFields       If pf.Name <> "Data" Then         For Each pi In pf.PivotItems           If pi.RecordCount = 0 And _             Not pi.IsCalculated Then             pi.Delete           End If         Next       End If     Next   Next Next End Sub 页码，2/2Excel -- 数据透视表 -- 清除原有数据项(程香宙编译) 2005-12-2file://G:\Excel\EXCEL教程\Excel数据透视表讲座\清除原有数据项.html Excel -- 数据透视表 – 字段设置 程香宙编译二○○四年十月二十五日 1. 手动隐藏或显示分类汇兑 2. 编写程序隐藏分类汇兑 3. 显示没有数据的项目 4. 仅显示前几个项目 下载 示例文件 手动隐藏或显示分类汇兑 手动隐藏一个字段的分类汇兑: 1. 双击字段按钮, 打开数据透视表字段对话框. 2. 在分类汇兑下选择“无” 3. 点击确定 手动显示一个字段的分类汇兑: 1. 双击字段按钮, 打开数据透视表字段对话框.. 2. 在分类汇兑下选择“自定义” 3. 从列表中选择一种函数, 例如 '平均数' 4. 点击确定 编写程序隐藏分类汇兑 你可以自己编写宏隐藏数据透视表的分类汇兑. 本例是通过设置数据透视表的 属性隐藏据有分类汇兑. 如果仅需行（列）字段的分类汇兑, 请使用行（列）字段属性. Sub NoSubtotals() '关闭数据透视表的分类汇兑 '.PivotFields可以改变成 '.RowFields 或 .ColumnFields Dim pt As PivotTable Dim pf As PivotField For Each pt In ActiveSheet.PivotTables   For Each pf In pt.PivotFields     '设置 index 1 (Automatic) 为True,     '所有其它值均设置为 False 页码，1/3Excel -- 数据透视表 -- 字段设置（程香宙编译） 2005-12-2file://G:\Excel\EXCEL教程\Excel数据透视表讲座\字段设置.html     pf.Subtotals(1) = True     pf.Subtotals(1) = False   Next pf Next pt End Sub  显示没有数据的项目 默认情况下, 数据透视表仅显示有数据的项目. 下面显示的示例中, 并不是每 天都有各种颜色的商品出售. 你也许希望查看每天的各种商品的品名, 尽管其 中有些没有数据. 1. 双击字段按钮, 打开数据透视表字段对话框.. 2. 将“显示没有数据的项目”复选框选中. 3. 点击确定 仅显示前几个项目 通常，数据透视表显示的是据有数据项目,但你可以限制它仅显示前几项（或后几项）数 据. 1. 双击字段按钮, 打开数据透视表字段对话框.. 2. 点击高级按钮 3. 在 '自动显示'下, 选择自动. 4. 在'显示'框中, 选择最大或最小 5. 点击滚动按钮或直接输入一个要显示的数. 6. 点击确定 7. 再次点击确定 页码，2/3Excel -- 数据透视表 -- 字段设置（程香宙编译） 2005-12-2file://G:\Excel\EXCEL教程\Excel数据透视表讲座\字段设置.html 1. 数据透视表 -- 动态数据 2. 数据透视表 -- 字段 3. 数据透视表 -- 显示和隐藏数据项 4. 数据透视表 -- 清除原有数据项 5. 数据透视表 -- 字段设置 6. 数据透视表 -- 获得透视数据 7. 数据透视表 -- 分组数据 8. 数据透视表 -- 复合范围 9. 数据透视表 -- 打印 页码，3/3Excel -- 数据透视表 -- 字段设置（程香宙编译） 2005-12-2file://G:\Excel\EXCEL教程\Excel数据透视表讲座\字段设置.html Excel -- 数据透视表 -- 获得透视数据 程香宙编译二○○四年十月二十八日 下载 示例文件 注解：因本人没有中文版本的excel2002,因此本页中的示例图是英文版本界面 下的截图，请谅解。 产生透视数据 在Excel 2002及以后版本中, 当你输入一个等号并点击数据透视表中的一个单 元格时, 你可以看到一个替代单元格引用的产生透视数据公式. 如果你愿意使用单元格引用，也可以做到: z 输入引用,例如 =$B$5 或者 z 在工具栏添加获得透视数据按钮. 操作方法: 1. 选择工具>自定义 2. 选择命令标签下种类框中的数据 3. 在右侧列表中选择获得数据透视数据命令 4. 手动这个命令到工具栏 5. 点击关闭 页码，1/3Excel -- 数据透视表 -- 获得透视数据 (程香宙编译) 2005-12-2file://G:\Excel\EXCEL教程\Excel数据透视表讲座\获得透视数据.html 获得透视数据公式 从数据透视表中提取数据, 你可以使用获得透视数据函数. 函数参数依据你使 用的EXCEL版本而定. 在Excel 2002及更高版本中, 当你引用数据透视表中单元格时，这个公式是自 动创建的.   在Excel 2000或Excel 97, 你可以手动创建获得透视数据公式, 方法与创建其 它公式一样，输入一个等号、函数名称和必须的参数. 下面的示例是在 Excel 2000 或Excel 97版本中必需使用的参数, 它将返回销 售数量总计. 页码，2/3Excel -- 数据透视表 -- 获得透视数据 (程香宙编译) 2005-12-2file://G:\Excel\EXCEL教程\Excel数据透视表讲座\获得透视数据.html 1. 数据透视表 -- 动态数据 2. 数据透视表 -- 字段 3. 数据透视表 -- 显示和隐藏数据项 4. 数据透视表 -- 清除原有数据项 5. 数据透视表 -- 字段设置 6. 数据透视表 -- 获得透视数据 7. 数据透视表 -- 分组数据 8. 数据透视表 -- 复合范围 9. 数据透视表 -- 打印 在获得透视数据中使用单元格引用  你可以在获得数据透视数据公式参数中使用用工作表的单元格引用替换输入的 数据项或字段名称. 右图示例是在Excel 2002中, 单元格A10 包含一个参数, 并且公式引用了这个单元格. 右图是在Excel 2000中的示例, 单元格A10 包含一个参数, 并且公式引用了这 个单元格.在"Units "后有一个空格. 如果没有它, 公式将返回#N/A错误. 在第二个示例中, 两个参数都来自单元格引用, 且中间有一个空白间隔, 使用 &符号连接。 页码，3/3Excel -- 数据透视表 -- 获得透视数据 (程香宙编译) 2005-12-2file://G:\Excel\EXCEL教程\Excel数据透视表讲座\获得透视数据.html Excel -- 数据透视表 -- 分组数据 程香宙编译二○○四年十月二十九日 下载 示例文件 在数据透视表中, 你可以对行或列字段的数据项进行分组. 例如，日期字段可以以月分组, 年龄字段可以以数字10进行分组. 日期分组 分组日期字段数据项 1. 右键点击日期字段按钮. 2. 选择“组及分级显示” | “组合”   3. 在分级对话框中,从“依据”列表中选择一个或多个选项. 4. 要限制分组的日期范围, 你可以通过在“起始于”和“终止于”框中输入日期 决定起止日期 5. 点击确定 页码，1/3Excel -- 数据透视表 -- 分组数据 (程香宙编译） 2005-12-2file://G:\Excel\EXCEL教程\Excel数据透视表讲座\分组数据.htm   依周对日期进行分组 操作步骤： 1. 右键点击日期字段按钮. 2. 选择“组及分级显示” | “组合” 3. 在分级对话框中,从“依据”列表中选择“日”. 4. 在'天数'是, 选择7 5. 星期的起始范围取决于“起始于”框中的日期，必要时请进行调整.下 图示例中因为2003年12月29日为星期一，因此，请将“起始于”前面自动 自选框清空，并在此框中输入这个日期作为起始日期，这样的分组结果 符合才常规。 6. 点击确定 分组数据时遇到的问题 当你试图对一个日期或字段进行分组时, 你可能会得到一个错误信息警告, 内容为"选定区域不能分组." 页码，2/3Excel -- 数据透视表 -- 分组数据 (程香宙编译） 2005-12-2file://G:\Excel\EXCEL教程\Excel数据透视表讲座\分组数据.htm 1. 数据透视表 -- 动态数据 2. 数据透视表 -- 字段 3. 数据透视表 -- 显示和隐藏数据项 4. 数据透视表 -- 清除原有数据项 5. 数据透视表 -- 字段设置 6. 数据透视表 -- 获得透视数据 7. 数据透视表 -- 分组数据 8. 数据透视表 -- 复合范围 9. 数据透视表 -- 打印 当字段中包含有空白日期/数字字段或是文本日期/数字字段. 解决这个问题 的方法是： z 在空白单元格填充日期/数字 (如有必要填充一个假的日期/数字). z 如果在日期/数字字段存在文本, 移除它. z 如果数字被视为了文本, 请用这个技巧改变它 查看技巧. 统计不重复的数 据项 在数据透视表中, 你可能想知道有 多少不同的顾客 定购某种品名的 产品. 数据透视 表不能统计不重 复的项目. 然而, 你可以在数据库 中添加一列, 并 将这个字段添加 到数据透视表中. 例如, 要统计定 单中客户的不重 复项目, 请在数 据库中添加一列, 标题为'客户数' 在数据库资料第 一行输入一个引 用到顾客和品名 列的公式. 例如:   =IF(SUMPRODUCT(($A$2:$A2=A2)*($D$2:$D2=D2))>1,0,1) 向下复制这个公式到数据库所有行. 然后添加字段到数据区域. 本例中, 你可以看出有7个不同顾客8次定购了订书机.    页码，3/3Excel -- 数据透视表 -- 分组数据 (程香宙编译） 2005-12-2file://G:\Excel\EXCEL教程\Excel数据透视表讲座\分组数据.htm Excel -- 数据透视表 --复合范围 程香宙编译二○○四年十月二十四日 1. 由复合范围创建数据透视表 2. 复合范围限制 下载 示例文件 如果表格列结构相同，在创建数据透视表时，你可以使用来自同一工作簿的不同工 作表或不同工作簿中的数据。但假设你不想得到相同的版式，则需要使用单一区域 的数据. 数据源 1. 选择数据 | 数据透视表和图表报告 2. 选中多重合并计算数据区域, 点击下一步 3. 选择一种页字段选项,点击下一步 4. 选择每个范围, 并点击添加 5. 在第步骤2a中选择的是 '自定义页字段', 你可以逐个选择范围, 并在步 骤2b中指定字段名称 6. 点击下一步 页码，1/3Excel -- 数据透视表 -- 复合范围(程香宙编译） 2005-12-2file://G:\Excel\EXCEL教程\Excel数据透视表讲座\复合范围.htm 7. 为数据透视表选择一个位置并点击完成 8. 在按列下拉框中,隐藏包含无意义数据的列. 复合范围限制 本例中, 品名是数据源区域中的第一列, 并且数据透视表行标题显示品名名称. 保 留的字段将显示在列区域. 你可以改变求值的函数 (例如 SUM,操作的方法是在数据透视表中点击右键，在弹出 的菜单中选择字段设置并从数据字段设置对话框中选择你需要的一种汇兑方式), 但 据有列只能使用同一种函数. 在数据透视表中包含有一些无意义的数据, 比如求和 项时在数据库列包含文本时数据透视表中对应列将以0填充. 页码，2/3Excel -- 数据透视表 -- 复合范围(程香宙编译） 2005-12-2file://G:\Excel\EXCEL教程\Excel数据透视表讲座\复合范围.htm 1. 数据透视表 -- 动态数据 2. 数据透视表 -- 字段 3. 数据透视表 -- 显示和隐藏数据项 4. 数据透视表 -- 清除原有数据项 5. 数据透视表 -- 字段设置 6. 数据透视表 -- 获得透视数据 7. 数据透视表 -- 分组数据 8. 数据透视表 -- 复合范围 9. 数据透视表 -- 打印   为此, 你可以重新整理数据库列, 使得你要加总的数据列仅包含你需要的列. 如果可能, 移动你的资料到另一工作表, 或者贮存到一个数据库中, 例如MS Access, 这样你将更加灵活地创建数据透视表. 页码，3/3Excel -- 数据透视表 -- 复合范围(程香宙编译） 2005-12-2file://G:\Excel\EXCEL教程\Excel数据透视表讲座\复合范围.htm Excel -- 数据透视表 -- 打印 程香宙编译二○○四年十月三十日 下载 示例文件 打印 数据透视表页字段中的每个数据项 下面的代码将能够实现打印页字段中的每个数据项的功能(假定为一个页字 段).请使用打印预览测试. 准备打印时, 请去掉 ActiveSheet.PrintOut代码 前的单引号, 并在代码ActiveSheet.PrintPreview前添加一个单引号. Sub PrintPivotPages() '打印数据透视表一个页字段下的每个数据项 '假设只有一个页字段存在 On Error Resume Next Dim pt As PivotTable Dim pf As PivotField Dim pi As PivotItem Set pt = ActiveSheet.PivotTables.Item(1)   For Each pf In pt.PageFields     For Each pi In pf.PivotItems       pt.PivotFields(pf.Name).CurrentPage = pi.Name '      ActiveSheet.PrintOut  '使用这个代码打印       ActiveSheet.PrintPreview  '使用这个代码预览     Next   Next pf End Sub 打印数据透视表页字段下每个数据项的透视图 下面的代码将能够实现打印页字段中的每个数据项的透视图功能(假定为一个 页字段).请使用打印预览测试. 准备打印时, 请去掉 ActiveSheet.PrintOut 代码前的单引号, 并在代码ActiveSheet.PrintPreview前添加一个单引号. Sub PrintPivotCharts() 'prints a chart for each item in the page field Dim pt As PivotTable Dim pf As PivotField Dim pi As PivotItem Set pt = ActiveChart.PivotLayout.PivotTable   For Each pf In pt.PageFields     For Each pi In pf.PivotItems       pt.PivotFields(pf.Name).CurrentPage = pi.Name '      ActiveSheet.PrintOut       ActiveSheet.PrintPreview  '打印预览测试     Next   Next pf End Sub 打印数据透视表的每个页数据项 – 多个页字段 下面代码将完成打印数据透视表页数据项的每个组合. 如果 PrintFlag 不设置 为 true, 描述信息将被写入PageItemList工作表. Option Compare Text Public mrow As Integer 页码，1/3Excel -- 数据透视表 -- 打印 (程香宙编译） 2005-12-2file://G:\Excel\EXCEL教程\Excel数据透视表讲座\打印.htm Public PrintFlag As Boolean '==================================================================== Sub PrintAllPages() 'from code posted by Tom Ogilvy 'September 5 2004 Dim holdSettings Dim ws As Worksheet Dim wsPT As Worksheet Set ws = Worksheets("PageItemList") 'sheet for page items Set wsPT = Worksheets("Pivot") 'sheet with PivotTable mrow = 0 If MsgBox("Print?", vbYesNo, "Print?") = vbYes Then   PrintFlag = True Else   PrintFlag = False   MsgBox "Page field items will be listed on sheet " & ws.Name End If If Not PrintFlag Then   ws.Cells(1, 1).CurrentRegion.Clear End If Set PvtTbl = wsPT.PivotTables(1) wsPT.Activate If PvtTbl.PageFields.Count = 0 Then   MsgBox "The PivotTable has no Pages"   Exit Sub End If With PvtTbl ReDim holdSettings(1 To .PageFields.Count) I = 1 For Each PgeField In .PageFields   holdSettings(I) = PgeField.CurrentPage.Name   I = I + 1   PgeField.CurrentPage = PgeField.PivotItems(1).Name Next PgeField End With   PvtPage = 1 PvtItem = 1 DrillPvt oTable:=PvtTbl, Ipage:=PvtPage, wksht:=ws I = 1 For Each PgeField In PvtTbl.PageFields PgeField.CurrentPage = holdSettings(I)   I = I + 1 Next PgeField   End Sub '==================================================================== Sub DrillPvt(oTable, Ipage, wksht) 'Debug.Print "in DrillPvt, page:=" & Ipage & " Page Item: " & _ '  oTable.PageFields(Ipage).CurrentPage & " " & mrow If Ipage = oTable.PageFields.Count Then With oTable   For I = 1 To .PageFields(Ipage).PivotItems.Count    .PageFields(Ipage).CurrentPage = _    .PageFields(Ipage).PivotItems(I).Name    mrow = mrow + 1    slist = ""    For j = 1 To .PageFields.Count      slist = slist & .PageFields(j).CurrentPage & " "    Next j 页码，2/3Excel -- 数据透视表 -- 打印 (程香宙编译） 2005-12-2file://G:\Excel\EXCEL教程\Excel数据透视表讲座\打印.htm 1. 数据透视表 -- 动态数据 2. 数据透视表 -- 字段 3. 数据透视表 -- 显示和隐藏数据项 4. 数据透视表 -- 清除原有数据项 5. 数据透视表 -- 字段设置 6. 数据透视表 -- 获得透视数据 7. 数据透视表 -- 分组数据 8. 数据透视表 -- 复合范围 9. 数据透视表 -- 打印 '  Debug.Print slist    If PrintFlag Then ''    ActiveSheet.PrintOut  'print the sheet     ActiveSheet.PrintPreview  'preview -- for testing    Else     For j = 1 To .PageFields.Count      wksht.Cells(mrow, j).Value = _       .PageFields(j).CurrentPage.Name     Next j    End If   Next I End With For I = oTable.PageFields.Count - 1 To 1 Step -1    For j = 1 To oTable.PageFields(I).PivotItems.Count      If oTable.PageFields(I).CurrentPage = _       oTable.PageFields(I).PivotItems(j).Name Then         CurrItem = j         Exit For      End If    Next j    If CurrItem <> oTable.PageFields(I).PivotItems.Count Then       oTable.PageFields(I).CurrentPage = _         oTable.PageFields(I).PivotItems(CurrItem + 1).Name       Ipage = I + 1       DrillPvt oTable, Ipage, wksht    Else      If I <> 1 Then        oTable.PageFields(I).CurrentPage = _         oTable.PageFields(I).PivotItems(1).Name      Else        Exit Sub      End If    End If Next I Else DrillPvt oTable, Ipage + 1, wksht End If End Sub 页码，3/3Excel -- 数据透视表 -- 打印 (程香宙编译） 2005-12-2file://G:\Excel\EXCEL教程\Excel数据透视表讲座\打印.htm 动态数据 字段 显示和隐藏数据项 清除原有数据项 字段设置 获得透视数据 分组数据 复合范围 打印 数据透视表 地区 （全部） 求和项:值 按列 品名 单价 金额 数量 总计 笔记本 41.21 1284.13 287 1612.34 订书机 161.89 5087.35 386 5635.24 钢笔 67.65 1295.53 347 1710.18 铅笔 29.94 950.12 188 1168.06 总计 300.69 8617.13 1208 10125.82 北京 品名 日期 业务员 颜色 数量 单价 金额 钢笔 1/2/04 程香宙 红色 3 ￥19.99 ￥59.97 笔记本 1/2/04 刘冰 黑色 40 ￥1.29 ￥51.60 订书机 1/2/04 程龙 蓝色 9 ￥8.99 ￥80.91 订书机 1/2/04 小虎 蓝色 39 ￥19.99 ￥779.61 钢笔 1/2/04 小虎 黑色 4 ￥1.29 ￥5.16 笔记本 1/2/04 刘冰 红色 49 ￥4.99 ￥244.51 铅笔 1/15/04 刘冰 蓝色 48 ￥1.99 ￥95.52 钢笔 1/15/04 刘冰 红色 13 ￥1.29 ￥16.77 钢笔 1/15/04 刘冰 红色 8 ￥4.99 ￥39.92 铅笔 1/15/04 刘冰 红色 17 ￥1.99 ￥33.83 铅笔 1/15/04 小虎 蓝色 32 ￥19.99 ￥639.68 钢笔 1/15/04 刘冰 红色 40 ￥1.29 ￥51.60 钢笔 1/15/04 小虎 蓝色 41 ￥4.99 ￥204.59 订书机 1/29/04 小虎 红色 23 ￥19.99 ￥459.77 钢笔 1/29/04 刘冰 蓝色 31 ￥1.29 ￥39.99 钢笔 1/29/04 刘冰 黑色 38 ￥4.99 ￥189.62 钢笔 1/29/04 刘冰 黑色 3 $4.99 $14.97 笔记本 1/29/04 刘冰 黑色 9 $4.99 $44.91 订书机 2/20/04 刘冰 蓝色 50 $8.99 $449.50 订书机 2/20/04 刘冰 蓝色 44 $8.99 $395.56 铅笔 2/20/04 小虎 蓝色 37 $1.99 $73.63 订书机 2/20/04 刘冰 蓝色 36 $19.99 $719.64 订书机 2/20/04 刘冰 蓝色 28 $19.99 $559.72 钢笔 2/20/04 小虎 黑色 33 $1.29 $42.57 钢笔 2/28/04 刘冰 红色 22 $4.99 $109.78 笔记本 2/28/04 小虎 黑色 26 $4.99 $129.74 南阳 品名 日期 业务员 颜色 数量 单价 金额 钢笔 1/2/04 程香宙 红色 28 ￥4.99 ￥139.72 笔记本 1/2/04 程香宙 红色 33 ￥4.99 ￥164.67 订书机 1/2/04 程龙 红色 29 ￥1.99 ￥57.71 钢笔 1/2/04 程龙 蓝色 49 ￥4.99 ￥244.51 订书机 1/2/04 程香宙 黑色 21 ￥15.00 ￥315.00 订书机 1/15/04 程香宙 蓝色 28 ￥19.99 ￥559.72 笔记本 1/15/04 程香宙 蓝色 12 ￥4.99 ￥59.88 订书机 1/15/04 程香宙 黑色 37 ￥8.99 ￥332.63 笔记本 1/15/04 程香宙 蓝色 31 ￥4.99 ￥154.69 订书机 1/29/04 程香宙 黑色 42 ￥8.99 ￥377.58 铅笔 1/29/04 程香宙 黑色 49 ￥1.99 ￥97.51 笔记本 1/29/04 程香宙 红色 38 ￥4.99 ￥189.62 铅笔 2/20/04 程龙 蓝色 5 ￥1.99 ￥9.95 钢笔 2/28/04 程香宙 黑色 9 ￥1.29 ￥11.61 钢笔 2/28/04 程龙 蓝色 25 ￥4.99 ￥124.75 笔记本 2/28/04 程龙 黑色 49 ￥4.99 ￥244.51 销售额数据透视表 颜色 （全部） 求和项:单位 品名 汇总 笔记本 247 订书机 392 钢笔 384 铅笔 185 总计 1208 销售额 日期 业务员 品名 颜色 单位 单价 合计 1/2/04 程香宙 订书机 黑色 3 $19.99 $59.97 1/2/04 程香宙 钢笔 黑色 40 $1.29 $51.60 1/2/04 程龙 钢笔 红色 28 $4.99 $139.72 1/2/04 程龙 笔记本 红色 33 $4.99 $164.67 1/2/04 刘冰 订书机 蓝色 9 $8.99 $80.91 1/2/04 刘冰 铅笔 红色 29 $1.99 $57.71 1/2/04 刘冰 订书机 黑色 39 $19.99 $779.61 1/2/04 刘冰 钢笔 红色 4 $1.29 $5.16 1/2/04 刘冰 钢笔 蓝色 49 $4.99 $244.51 1/2/04 程香宙 笔记本 红色 49 $4.99 $244.51 1/2/04 程龙 订书机 黑色 21 $15.00 $315.00 1/15/04 程香宙 铅笔 蓝色 48 $1.99 $95.52 1/15/04 程龙 订书机 蓝色 28 $19.99 $559.72 1/15/04 程香宙 钢笔 红色 13 $1.29 $16.77 1/15/04 程香宙 钢笔 红色 8 $4.99 $39.92 1/15/04 程龙 笔记本 蓝色 12 $4.99 $59.88 1/15/04 程龙 订书机 黑色 37 $8.99 $332.63 1/15/04 程香宙 铅笔 红色 17 $1.99 $33.83 1/15/04 刘冰 订书机 蓝色 32 $19.99 $639.68 1/15/04 程香宙 钢笔 红色 40 $1.29 $51.60 1/15/04 刘冰 钢笔 蓝色 41 $4.99 $204.59 1/15/04 程龙 笔记本 蓝色 31 $4.99 $154