2 sätt att gruppera Flytta alla diagram från alla befintliga kalkylblad till en ny skapad i Excel-arbetsbok

Om varje kalkylblad i en Excel-arbetsbok innehåller flera diagram och du nu vill flytta alla diagram till ett nytt skapat kalkylblad, kan du hänvisa till det här inlägget. Här presenterar vi två enkla sätt.

När du har skapat diagram för data i varje kalkylblad i en Excel-arbetsbok för att bättre analysera data enligt dessa diagram kanske du vill samla alla dessa diagram till samma kalkylblad. Med andra ord kanske du hoppas kunna flytta dem alla till ett nytt kalkylblad. Om det finns få diagram kan du bara använda följande metod 1 för att flytta en efter en. Ändå, om det finns en myriad av diagram, är du bättre att använda den senare.

Metod 1: Flytta diagram manuellt en efter en

1. Skapa först ett nytt kalkylblad där du vill flytta alla diagram.
2. Öppna sedan ett kalkylblad och tonhöjd på ett diagram i det.
3. Högerklicka sedan på diagrammet och välj ”Flytta diagram” från snabbmenyn.
4. I popup-fönstret "Flytta diagram", välj det nya arket i listan "Objekt i" och klicka på "OK".
5. Omedelbart flyttas det valda diagrammet.
6. Nu kan du använda detta sätt för att bearbeta alla diagram i alla kalkylblad en efter en.

Metod 2: Batch Move med Excel VBA

1. Till att börja med startar du Excel VBA-redigeraren enligt “Så här kör du VBA-kod i din Excel".
2. Lägg sedan in följande kod i en modul eller ett 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. Därefter trycker du direkt på “F5” för att köra detta makro just nu.
4. När makrot är klart avslutar du VBA-redigeraren.
5. I huvudfönstret i Excel kan du se ett nytt kalkylblad där du kan se alla diagram.

Jämförelse

Reparera skadad Excel-fil

Excel-fil är utsatt för korruption eftersom Excel kan krascha då och då. Under en sådan omständighet skulle du bättre förbereda en kraftfull och pålitlig xlsx-återhämtning verktyg, såsom DataNumen Excel Repair. Det kommer att vara till nytta när din Excel-fil skadas och Excels funktion för automatisk återställning inte fungerar.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive reparera kvm och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com