2 måter å gruppeflytte alle diagrammer fra alle eksisterende regneark til en ny opprettet i Excel-arbeidsbok

Hvis hvert regneark i en Excel-arbeidsbok inneholder flere diagrammer, og du nå vil flytte alle diagrammer til et nytt opprettet regneark, kan du se dette innlegget. Her vil vi introdusere deg to enkle måter.

Etter å ha opprettet diagrammer for dataene i hvert regneark i en Excel-arbeidsbok, for å bedre analysere data i henhold til disse diagrammene, kan det være lurt å samle alle disse diagrammene til et samme regneark. Med andre ord, du håper kanskje å flytte dem alle til et nytt regneark. Hvis det er få diagrammer, kan du bare bruke følgende metode 1 for å flytte en etter en. Likevel, hvis det er en myriade av diagrammer, er det bedre å bruke den sistnevnte.

Metode 1: Flytt diagram én etter én manuelt

1. Opprett først et nytt regneark der du vil flytte alle diagrammer.
2. Åpne deretter et regneark og pitch på et diagram i det.
3. Deretter høyreklikker du på diagrammet og velger "Flytt diagram" fra hurtigmenyen.
4. I popup-dialogboksen "Flytt diagram", velg det nye arket i "Objekt inn"-listen og klikk "OK".
5. Med en gang vil det valgte diagrammet bli flyttet.
6. Nå kan du bruke denne måten til å behandle alle diagrammene i alle regnearkene én etter én.

Metode 2: Batch Move med Excel VBA

1. Til å begynne med, start Excel VBA editor i henhold til "Hvordan kjøre VBA-kode i Excel".
2. Deretter legger du følgende kode inn i en modul eller et prosjekt.

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. Etterpå, trykk direkte på "F5" for å kjøre denne makroen akkurat nå.
4. Når makroen er ferdig, avslutter du VBA-redigering.
5. I Excel-hovedvinduet kan du se et nytt regneark, der du kan se alle diagrammene.

Sammenligning

Reparer skadet Excel-fil

Excel-fil er utsatt for korrupsjon siden Excel kan krasje nå og da. Under slike omstendigheter bør du forberede en kraftig og pålitelig xlsx gjenoppretting verktøy, for eksempel DataNumen Excel Repair. Det vil komme godt med når Excel-filen din blir ødelagt og Excels automatiske gjenopprettingsfunksjon ikke fungerer.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparere sql og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med