2 Möglichkeiten zum Stapeln Verschieben aller Diagramme aus allen vorhandenen Arbeitsblättern in ein neu erstelltes Diagramm in der Excel-Arbeitsmappe

Wenn jedes Arbeitsblatt in einer Excel-Arbeitsmappe mehrere Diagramme enthält und Sie nun alle Diagramme in ein neu erstelltes Arbeitsblatt verschieben möchten, können Sie diesen Beitrag konsultieren. Hier stellen wir Ihnen zwei einfache Methoden vor.

Nach dem Erstellen von Diagrammen für die Daten in jedem Arbeitsblatt einer Excel-Arbeitsmappe möchten Sie möglicherweise alle diese Diagramme in einem Arbeitsblatt zusammenfassen, um die Daten anhand dieser Diagramme besser analysieren zu können. Mit anderen Worten, Sie können hoffen, alle in ein neues Arbeitsblatt zu verschieben. Wenn nur wenige Diagramme vorhanden sind, können Sie einfach die folgende Methode 1 verwenden, um eine nach der anderen zu verschieben. Wenn es jedoch unzählige Diagramme gibt, ist es besser, das letztere zu verwenden.

Methode 1: Manuelles Verschieben des Diagramms nacheinander

1. Erstellen Sie zunächst ein neues Arbeitsblatt, in das Sie alle Diagramme verschieben möchten.
2. Öffnen Sie dann ein Arbeitsblatt und platzieren Sie es in einem Diagramm.
3. Klicken Sie anschließend mit der rechten Maustaste auf das Diagramm und wählen Sie im Kontextmenü die Option „Diagramm verschieben“.
4. Wählen Sie im Popup-Dialogfeld "Diagramm verschieben" das neue Blatt in der Liste "Objekt in" aus und klicken Sie auf "OK".
5. Das ausgewählte Diagramm wird sofort verschoben.
6. Auf diese Weise können Sie jetzt alle Diagramme in allen Arbeitsblättern einzeln verarbeiten.

Methode 2: Stapelverschiebung mit Excel VBA

1. Starten Sie zunächst den Excel VBA-Editor gemäß „So führen Sie VBA-Code in Ihrem Excel aus".
2. Fügen Sie dann den folgenden Code in ein Modul oder Projekt ein.

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

3. Drücken Sie anschließend direkt „F5“, um dieses Makro sofort auszuführen.
4. Wenn das Makro beendet ist, beenden Sie den VBA-Editor.
5. Im Excel-Hauptfenster sehen Sie ein neues Arbeitsblatt, in dem Sie alle Diagramme sehen können.

Vergleich

Reparieren Sie beschädigte Excel-Dateien

Excel-Dateien sind anfällig für Beschädigungen, da Excel ab und zu abstürzen kann. Unter solchen Umständen sollten Sie besser eine mächtige und vertrauenswürdige vorbereiten xlsx-Wiederherstellung Werkzeug, wie z DataNumen Excel Repair. Dies ist praktisch, wenn Ihre Excel-Datei beschädigt wird und die automatische Wiederherstellungsfunktion von Excel nicht funktioniert.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich Reparatur SQL und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX