如何计算数据透视表行内TRUE/FALSE占总计的百分比并生成动态图表？

一、计算每行TRUE/FALSE占该行总计的百分比（以Excel为例） #

方法1：利用透视表自带的「值显示方式」 #

• 假设你的透视表已经按目标维度分行，值区域是TRUE/FALSE的计数项：
  1. 选中透视表内任意一个计数单元格（比如TRUE列的数值）
  2. 右键选择 值显示方式 → 行汇总的百分比
  3. 重复上述操作处理FALSE列，此时两列会自动显示对应值占该行总计的百分比

方法2：手动添加辅助列计算 #

如果透视表结构特殊，自带方式不适用，可以在透视表右侧插入辅助列：

• 输入公式 =C2/SUM(B2:C2)（假设TRUE值在B列，FALSE在C列，当前行是第2行）
• 下拉公式到最后一行，Excel会自动适配透视表的动态行数；如果需要更严谨的动态引用，可用结构化引用或OFFSET函数，比如=C2/SUM(OFFSET(C2,0,-1,1,2))

二、根据动态行数生成对应数量的图表 #

方案1：单张动态图表（自动适配行数） #

适合用一张图表展示所有行的完成率：

1. 定义动态名称：
   • 打开「公式」选项卡 → 「定义名称」，分别创建三个名称：
     • Items：公式为 =OFFSET(透视表所在单元格!$A$2,0,0,COUNTA(透视表所在单元格!$A:$A)-1,1)（假设行标签从A2开始，表头在A1）
     • TruePercent：对应TRUE百分比列，公式类似 =OFFSET(透视表所在单元格!$B$2,0,0,COUNTA(透视表所在单元格!$A:$A)-1,1)
     • FalsePercent：对应FALSE百分比列，公式同理
2. 插入动态图表：
   • 插入簇状柱形图（或你需要的图表类型），右键图表 → 「选择数据」，将系列名称和值替换为刚才定义的动态名称，后续透视表行数变化时，图表会自动更新数据范围

方案2：自动生成每行对应图表（VBA实现） #

如果需要每行单独生成一个图表，用VBA宏批量处理：

Sub GenerateRowCharts()
    Dim pt As PivotTable
    Dim rowNum As Integer
    Dim i As Integer
    '替换成你的透视表名称和所在工作表
    Set pt = ThisWorkbook.Sheets("Sheet1").PivotTables("PivotTable1")
    rowNum = pt.RowRange.Rows.Count - 1 '减去表头行，得到实际数据行数
    
    '删除工作表中现有图表
    For Each shp In pt.Parent.Shapes
        If shp.Type = msoChart Then shp.Delete
    Next shp
    
    '遍历每行生成图表
    For i = 2 To rowNum + 1
        Dim dataRng As Range
        '取当前行的TRUE/FALSE百分比数据
        Set dataRng = pt.DataBodyRange.Rows(i - 1)
        '添加柱形图
        Set newChrt = pt.Parent.Shapes.AddChart2(201, xlColumnClustered).Chart
        newChrt.SetSourceData Source:=dataRng
        '设置图表标题为行标签内容
        newChrt.ChartTitle.Text = pt.RowRange.Cells(i, 1).Value
        '调整图表位置与大小，可按需修改参数
        newChrt.Parent.Top = (i - 2) * 180 + 50
        newChrt.Parent.Left = 50
        newChrt.Parent.Width = 320
        newChrt.Parent.Height = 220
    Next i
End Sub

• 使用方法：透视表更新后，按Alt+F11打开VBA编辑器，将代码粘贴到对应模块，运行宏即可生成对应行数的图表

内容的提问来源于stack exchange，提问作者jan benes