如何在Excel 中将图表移动到新工作表– 2 种简单方法

默认情况下，当您在Excel 中插入图表时，它会在您拥有源数据集的同一个工作表中创建。

但在许多情况下，您可能希望将图表从创建它的工作表移动到另一个工作表（或图表工作表– 只有图表）。

这在您创建仪表板时很有用，其中数据可以分散在整个工作簿中，但您可以在具有仪表板的工作表中获取所有重要图表。

将图表移动到另一个工作表时，您可以：

• 将其作为图表对像从一张工作表移动到另一张工作表
• 将图表移动到图表工作表，您只有图表

在本教程中，我将展示将图表移动到Excel 中的新工作表的分步过程。

所以让我们开始吧！

图表对象与图表工作表

在我进入将图表移动到Excel 中的新工作表的步骤之前，让我快速解释一下图表对象和图表工作表之间的区别。

当您在已经包含数据的工作表中创建图表时，您会得到一个图表对象（它是位于工作表上方的图表，您可以像对像一样移动它）。

相反，图表工作表是专用于单个图表的完全不同的工作表。因此，当您将现有的excel 图表移动到新的图表工作表中时，您只会在该工作表中拥有图表（并且不会像常规工作表那样有任何单元格或表格）。

在本教程中，我将向您展示如何将现有图表移动到新工作表（作为对象）或新图表工作表中。

将图表移动到新工作表（或另一个现有工作表）

假设您有如下所示的数据集，并且您已经使用它创建了一个图表。

现在，我想将此图表移动到同一工作簿中的不同工作表（此工作表——我要将图表移动到其中——应该已经存在于工作簿中）。

以下是执行此操作的步骤：

1. 单击要移动的图表对象
2. 单击图表设计选项卡（这是一个上下文选项卡，仅在您选择任何图表时才会出现）

3. 在位置组中，单击“移动图表”图标

4. 在“移动图表”对话框中，确保选中“对像在”选项。

5. 从下拉列表中，选择要将所选图表移动到的工作表。在此示例中，我将图表移动到名为“摘要”的工作表中

6. 点击确定

上述步骤会将所选图表从现有工作表移动到您在步骤5 中选择的工作表。

如果您想将此图表移动到一个全新的空白工作表，您首先必须添加该新工作表，然后重复该过程（以便此新工作表的名称显示在步骤5 中）

请注意，上述步骤将从源工作表中删除图表并将其移动到目标工作表。

如果您想将图表保留在源工作表中并在新工作表中获取它的副本，您需要首先创建图表的副本（使用简单的Control C 和Control V），然后移动其中一个图表到目标工作表。

通过复制粘贴移动图表

将图表移动到新工作表的另一种非常快速的方法是简单地复制图表并将其粘贴到新工作表中。

这样做会在新工作表中创建图表的副本。因此，如果您想完全移动图表而不将其放在您拥有数据的位置，您可以简单地保留副本并删除原始图表（或使用剪切粘贴而不是复制粘贴）。

以下是使用简单复制粘贴移动图表的步骤：

1. 在要移动图表的位置创建一个新工作表（如果您还没有）
2. 激活您要移动的图表所在的工作表
3. 右键单击图表并选择复制（或选择图表并使用Control + C）

4. 转到要获取图表副本的工作表
5. 右键单击并在选择性粘贴选项中，单击“使用目标主题”图标（或使用键盘快捷键Control + V 进行粘贴）

上述步骤将在当前工作表中创建图表的副本。

将图表移动到新图表表

如果要将特定图表移动到其自己的图表表中（这意味着只包含图表），您可以使用以下步骤：

1. 单击要移动到新图表工作表的图表对象
2. 单击图表设计选项卡

3. 在位置组中，单击“移动图表”图标

4. 在“移动图表”对话框中，选择“新工作表”

5. 为要移动此图表的工作表命名（或保留默认的Chart1 名称）

6. 点击确定

上述步骤将从当前工作表中删除图表，创建一个新的图表工作表，并将图表移动到这个新的图表工作表。

您可以对图表对象执行的所有自定义操作也可以使用图表工作表中的图表完成（调整大小和在图表周围移动除外）。

请注意，您也可以将其他图表移动到这个新插入的图表表中，但您首先插入的图表将保留在背景中，并且所有其他图表将被视为浮动在该图表上的对象。

将工作簿中的所有图表移动到新工作表

虽然将图表移动到另一个工作表或图表工作表的手动方式非常简单，但如果您有很多要移动的图表，它可能会变得非常乏味。

想像一下20 个工作表，每个工作表中有一个图表，您希望将其移动到摘要或仪表板工作表。

在这种情况下，您可以使用一个简单的VBA 代码来遍历工作簿中的所有图表并将这两个图表移动到指定的工作表中。

下面是将所有图表从所有工作表移动到一个目标工作表的VBA 代码（在此示例中，它是带有“仪表板”的工作表）

Sub MoveCharts() Dim chartObject As Object Dim SheetwithCharts As Worksheet For Each SheetwithCharts In Application.ActiveWorkbook.Worksheets If SheetwithCharts.Name <> "Dashboard" Then For Each chartObject In SheetwithCharts.ChartObjects chartObject.Chart.Location xlLocationAsObject, "Dashboard" Next chartObject End If Next SheetwithCharts End Sub

在上面的代码中，我硬编码了要移动图表的目标工作表的名称（使用的目标工作表名称是“仪表板”）。

如果您想将这些图表移动到任何其他工作表，只需将Dashboard 一词替换为该工作表的名称。

以下是在Excel 中运行此VBA 宏代码的步骤：

1. 单击功能区中的“开发人员”选项卡（如果您看不到“开发人员”选项卡，请阅读本指南以启用它）

2. 单击Visual Basic 图标。这将打开VB 编辑器

3. 在项目资源管理器中，选择具有图表的工作簿的任何对象（如果您没有看到项目资源管理器，请单击菜单中的“查看”选项，然后单击项目资源管理器）

4. 单击菜单中的“插入”选项，然后单击“模块”。这将为工作簿插入一个新模块

5. 将上述代码复制粘贴到模块代码窗口中（您可以随时在项目资源管理器中双击模块名称打开模块代码窗口）
6. 选择代码中的任意行
7. 按F5 键（或单击工具栏中的绿色播放按钮）

上述步骤会将工作簿中所有工作表中的所有图表移动到名为“仪表板”的工作表中。

代码是如何工作的——一个简单的解释

上面的代码使用For Next 循环遍历工作簿中的所有工作表。然后它使用if 条件检查工作表的名称是否为“仪表板”。

如果工作表的名称是“仪表板”，则不会发生任何事情，如果不是，则代码将遍历该工作表中的每个图表（这再次使用For Next 循环完成）。

然后将工作表中的每个图表移动到仪表板工作表（并从最初存在的工作表中删除）。

专业提示：我强烈建议您在运行此代码之前创建原始文件的副本（因为VBA 代码所做的更改无法撤消）

因此，您可以使用这些简单的方法将图表移动到工作簿中的任何特定工作表（或新的图表工作表）。

我希望您发现本教程很有用。