如果Excel工作簿中的每个工作表都包含多个图表,现在您想将所有图表批量移动到新创建的工作表中,您可以参考这篇文章。这里我们将介绍两种简单的方法。
在为Excel工作簿的每个工作表中的数据创建图表后,为了更好地根据这些图表分析数据,您可能希望将所有这些图表收集到同一个工作表中。换句话说,您可能希望将它们全部移动到新的工作表中。如果图表很少,可以使用下面的方法一来逐个移动。然而,如果有无数的图表,你最好使用后一个。
方法一:手动逐个移动图表
- 首先,创建一个要移动所有图表的新工作表。
- 然后,打开一个工作表,在其中的图表上进行演讲。
- 接下来,右键单击图表,从上下文菜单中选择“移动图表”。
- 在弹出的“移动图表”对话框中,在“对象中”列表中选择新表格,单击“确定”。
- 选中的图表将立即被移动。
- 现在,您可以使用这种方式逐一处理所有工作表中的所有图表。
方法二:用Excel VBA批量移动
- 首先,启动Excel VBA编辑器根据“如何在Excel中运行VBA代码”。
- 然后,将以下代码放入模块或项目中。
Sub MoveAllCharts() Dim strNewSheet As String Dim objTargetWorksheet As Worksheet Dim objWorksheet As Worksheet Dim objChart As Object '创建一个新表strNewSheet = "Charts" ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1))。名称= strNewSheet设置objTargetWorksheet = Application.Worksheets(strNewSheet)对于Application.ActiveWorkbook.Worksheets中的每个objWorksheet如果objWorksheet. worksheets。将每个图表一个一个地移动到新的表中,每个objChart在objWorksheet中。ChartObjects objChart. chart . location xlLocationAsObject, strNewSheet Next objChart结束If Next objTargetWorksheet。激活结束子
- 之后,直接按“F5”立即运行这个宏。
- 当宏完成时,退出VBA编辑器。
- 在Excel主窗口中,您可以看到一个新的工作表,其中可以看到所有的图表。
比较
优势 | 缺点 | |
方法1 | 操作简单 | 你必须一个一个地移动 |
方法2 | 能批量处理所有图表吗 | 用户必须小心外部宏 |
修复损坏的Excel文件
Excel文件很容易损坏,因为Excel有时会崩溃。在这样的情况下,你最好准备一个强大的和值得信赖的xlsx复苏工具,如DataNumen Excel Repair。当你的Excel文件被损坏,Excel的自动恢复功能不起作用时,它就会派上用场。
作者简介:
Shirley Zhang是DataN万博ManBetX手机下载umen, Inc.的数据恢复专家,该公司是数据恢复技术的世界领导者,包括修复sql并展望维修软件产品。万博体育app官方网下载欲了解更多信息,请访问www.circareview.com
留下回复