2 måder at gruppere Flytte alle diagrammer fra alle eksisterende regneark til et nyt oprettet i Excel-projektmappe

Hvis hvert regneark i en Excel-projektmappe indeholder flere diagrammer, og du nu gerne vil flytte alle diagrammer til et nyt oprettet regneark, kan du se dette indlæg. Her vil vi introducere dig til 2 nemme måder.

Efter at du har oprettet diagrammer til dataene i hvert regneark i en Excel-projektmappe, så du bedre kan analysere data i henhold til disse diagrammer, kan du samle alle disse diagrammer til et samme regneark. Med andre ord håber du muligvis at flytte dem alle til et nyt regneark. Hvis der er få diagrammer, kan du bare bruge følgende metode 1 til at flytte en efter en. Alligevel, hvis der er et utal af diagrammer, har du det bedre at bruge den sidstnævnte.

Metode 1: Flyt kort manuelt en efter en

1. Opret først et nyt regneark, hvor du vil flytte alle diagrammer.
2. Åbn derefter et regneark og del et diagram i det.
3. Højreklik derefter på diagrammet, og vælg "Flyt kort" i genvejsmenuen.
4. I popup-dialogboksen "Flyt diagram" skal du vælge det nye ark i "Objekt i" -listen og klikke på "OK".
5. Det valgte diagram flyttes straks.
6. Nu kan du bruge denne måde til at behandle alle diagrammerne i alle regneark en efter en.

Metode 2: Batch Move med Excel VBA

1. Til at begynde med skal du starte Excel VBA-editor i henhold til “Sådan køres VBA-kode i din Excel".
2. Sæt derefter følgende kode i et modul eller projekt.

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. Derefter skal du trykke direkte på "F5" for at køre denne makro lige nu.
4. Når makroen er færdig, skal du afslutte VBA-editoren.
5. I Excel-hovedvinduet kan du se et nyt regneark, hvor du kan se alle diagrammerne.

Sammenligning

Reparer beskadiget Excel-fil

Excel-fil er udsat for korruption, da Excel kan gå ned nu og da. Under en sådan omstændighed er det bedre at forberede en stærk og pålidelig gendannelse af xlsx værktøj, såsom DataNumen Excel Repair. Det vil være praktisk, når din Excel-fil bliver beskadiget, og Excels automatisk gendannelsesfunktion ikke fungerer.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder reparation kvm og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com