在Excel工作簿中將所有圖表從所有現有工作表批量移動到新創建的2種方法

Excel解決方案 2025 年 9 月 28 日

如果 Excel 工作簿中的每個工作表都包含多個圖表，而您現在想要將所有圖表批次移至新建的工作表中，您可以參考這篇文章。這裡我們將介紹兩種簡單的方法。

為Excel工作簿的每個工作表中的數據創建圖表後，為了更好地根據這些圖表分析數據，您可能希望將所有這些圖表收集到同一工作表中。換句話說，您可能希望將它們全部移動到新的工作表中。如果圖表很少，則可以使用以下方法1逐一移動。但是，如果有大量圖表，則最好使用後者。

方法1：手動一張一張地移動圖表

首先，在要移動所有圖表的地方創建一個新的工作表。
然後，打開工作表並在其中的圖表上進行調整。
接下來，右鍵單擊圖表，然後從上下文菜單中選擇“移動圖表”。
在彈出的“移動圖表”對話框中，在“對象於”列表中選擇新工作表，然後單擊“確定”。
所選圖表將立即移動。
現在，您可以使用這種方式來一張一張地處理所有工作表中的所有圖表。

方法2：使用Excel VBA批量移動

首先，根據“啟動Excel VBA編輯器如何在Excel中運行VBA代碼“。
然後，將以下代碼放入模塊或項目中。

Sub MoveAllCharts()
    Dim strNewSheet As String
    Dim objTargetWorksheet As Worksheet
    Dim objWorksheet As Worksheet
    Dim objChart As Object

    'Create a new sheet
    strNewSheet = "Charts"
    ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1)).Name = strNewSheet
    Set objTargetWorksheet = Application.Worksheets(strNewSheet)

    For Each objWorksheet In Application.ActiveWorkbook.Worksheets
        If objWorksheet.Name <> strNewSheet Then
           'Move each chart to the new sheet one by one
           For Each objChart In objWorksheet.ChartObjects
               objChart.Chart.Location xlLocationAsObject, strNewSheet
           Next objChart
        End If
    Next

    objTargetWorksheet.Activate
End Sub