如何通过Dashboard按钮复制工作簿（不含Dashboard及Module 1并修正图表数据源）

嘿，这个需求完全可以通过VBA搞定，我给你捋清楚怎么做，从添加按钮到写代码一步到位：

第一步：在Dashboard上添加按钮 #

• 切换到Dashboard工作表，先确保你能看到「开发工具」选项卡（如果没显示，去「文件」→「选项」→「自定义功能区」，勾选「开发工具」就行）
• 点击「开发工具」里的「插入」，选择表单控件下的「按钮（窗体控件）」，在Dashboard上拖出一个合适大小的按钮
• 弹出「指定宏」窗口时，点击「新建」，会自动打开VBA编辑器并创建一个空的宏，我们接下来就在这里写代码

第二步：编写核心VBA代码 #

把下面的代码替换掉编辑器里的空宏内容，代码里的注释会帮你理解每一步的作用：

Sub CopySheetsAndFixCharts()
    Dim wbOriginal As Workbook
    Dim wbNew As Workbook
    Dim ws As Worksheet
    Dim cht As ChartObject
    Dim srs As Series
    
    ' 绑定当前的原始工作簿和新建的默认工作簿（Book1）
    Set wbOriginal = ThisWorkbook
    Set wbNew = Workbooks.Add
    
    ' 循环复制除Dashboard外的所有工作表到新工作簿
    ' 注：Module1是VBA模块，不属于工作表集合，所以不用额外判断跳过它
    For Each ws In wbOriginal.Worksheets
        If ws.Name <> "Dashboard" Then
            ws.Copy After:=wbNew.Sheets(wbNew.Sheets.Count)
        End If
    Next ws
    
    ' 删除新工作簿自带的默认Sheet1（避免多余工作表）
    Application.DisplayAlerts = False
    wbNew.Sheets("Sheet1").Delete
    Application.DisplayAlerts = True
    
    ' 修复图表数据源：把指向原始工作簿的引用改成新工作簿
    For Each ws In wbNew.Worksheets
        For Each cht In ws.ChartObjects
            For Each srs In cht.Chart.SeriesCollection
                ' 替换公式里的原始工作簿名称为新工作簿名称
                srs.Formula = Replace(srs.Formula, wbOriginal.Name, wbNew.Name)
            Next srs
        Next cht
    Next ws
    
    ' 自动激活新工作簿，方便你直接查看结果
    wbNew.Activate
End Sub

第三步：测试功能 #

回到Excel界面，点击你刚创建的按钮，就能看到自动生成的Book1，里面包含了除Dashboard外的所有工作表，而且图表的数据源已经自动指向这个新工作簿了！

一些注意事项 #

• 如果你的图表用了定义名称作为数据源，可能需要额外添加代码来更新定义名称的引用，不过如果是直接引用单元格区域的话，上面的代码就足够了
• 运行宏前建议先保存原始工作簿，避免意外情况导致数据丢失
• 如果你的工作表名称有特殊字符，代码依然能正常工作，因为我们是直接匹配工作簿名称替换

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