已发布图表Filter与Slicer失效，求自动生成可发布图表方案

问题核心 #

默认图表会绑定全表数据源，切片器筛选仅隐藏行，图表仍读取全量数据。必须提取可见单元格数据作为图表的独立数据源，才能让发布后的图表展示筛选结果。

一、VBA宏方案（支持每小时自动执行） #

1. 前期准备 #

• 假设你的数据库在Sheet1，表头在第1行，数据从A1开始；
• 新建两个工作表：筛选后数据（存提取的可见数据）、发布图表（放最终要发布的图表）。

2. 编写提取+生成图表的宏 #

按Alt+F11打开VBA编辑器，插入模块，粘贴以下代码：

Sub 提取筛选数据并生成图表()
    ' 清除旧数据和旧图表
    Sheets("筛选后数据").Cells.Clear
    Sheets("发布图表").ChartObjects.Delete
    
    ' 复制原表筛选后的可见数据到新表
    Sheets("Sheet1").UsedRange.SpecialCells(xlCellTypeVisible).Copy
    Sheets("筛选后数据").Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
    
    ' 创建图表（可按需修改图表类型）
    Dim newChart As ChartObject
    Set newChart = Sheets("发布图表").ChartObjects.Add(Left:=10, Width:=600, Top:=10, Height:=400)
    newChart.Chart.SetSourceData Source:=Sheets("筛选后数据").UsedRange
    newChart.Chart.ChartType = xlColumnClustered ' 替换为xlLine/xlPie等你需要的类型
    newChart.Chart.ChartTitle.Text = "筛选后数据图表"
End Sub

3. 设置每小时自动触发 #

在VBA编辑器的ThisWorkbook中粘贴以下代码：

Private Sub Workbook_Open()
    ' 打开工作簿后立即执行一次，之后每小时触发
    Application.OnTime Now + TimeValue("01:00:00"), "定时刷新"
End Sub

Sub 定时刷新()
    提取筛选数据并生成图表
    ' 循环设置下一次定时
    Application.OnTime Now + TimeValue("01:00:00"), "定时刷新"
End Sub

• 保存工作簿为.xlsm格式（启用宏的工作簿），打开时务必启用宏。

二、Power Query方案（无需宏，更稳定） #

1. 提取筛选后数据 #

• 选中数据库任意单元格，点击数据选项卡→从表格/区域，勾选"我的表格有标题"进入Power Query编辑器；
• 点击开始→保留行→保留可见行；
• 点击关闭并上载，将数据导入新工作表（命名为PQ筛选数据）。

2. 设置自动刷新+生成图表 #

• 基于PQ筛选数据生成图表，放到发布图表工作表；
• 点击数据→全部刷新下拉箭头→连接属性，勾选"刷新频率"并设为60分钟；
• 右键图表→选择数据，确认数据源是PQ筛选数据的表格。

三、发布注意事项 #

• 发布时只发布发布图表工作表，不要包含原数据库和切片器工作表；
• 若用Excel Online发布，确保工作簿开启了"自动刷新"权限；
• 切片器仅在原数据库表中用来筛选，最终发布的图表基于独立的筛选后数据源，无需附带切片器。

内容的提问来源于stack exchange，提问作者Leo07 How to use INT INT