2 viisi kõigi diagrammide pakkimiseks teisaldamiseks kõigilt olemasolevatelt töölehtedelt Exceli töövihikus uuele loodud töölehtedele

Kui iga Exceli töövihiku töölehel on mitu diagrammi ja soovite nüüd kõik diagrammid partiidena uuele loodud töölehele teisaldada, saate vaadata seda postitust. Siin tutvustame teile kahte lihtsat viisi.

Pärast Exceli töövihiku iga töölehe andmete diagrammide loomist, et nende diagrammide alusel andmeid paremini analüüsida, võiksite kõik need diagrammid koondada samale tööle. Teisisõnu võite loota need kõik uuele töölehele teisaldada. Kui diagramme on vähe, saate ükshaaval liikumiseks kasutada järgmist 1. meetodit. Siiski, kui graafikuid on palju, on parem kasutada viimast.

1. meetod: liigutage diagrammi käsitsi ükshaaval

1. Kõigepealt looge uus tööleht, kuhu soovite kõik diagrammid teisaldada.
2. Seejärel avage tööleht ja asetage sellele diagramm.
3. Järgmisena paremklõpsake diagrammil ja valige kontekstimenüüst "Teisalda diagramm".
4. Valige hüpikaknas "Teisalda diagramm" loendist "Objekt" uus leht ja klõpsake "OK".
5. Valitud diagramm teisaldatakse korraga.
6. Nüüd saate seda meetodit kasutada kõigi töölehtede kõigi diagrammide ükshaaval töötlemiseks.

2. meetod: partii teisaldamine Excel VBA-ga

1. Alustuseks käivitage Exceli VBA redaktor vastavalt "Kuidas Excelis VBA koodi käivitada".
2. Seejärel sisestage järgmine kood moodulisse või projekti.

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. Seejärel vajutage selle makro kohe käivitamiseks otse klahvi F5.
4. Kui makro on lõppenud, väljuge VBA redaktorist.
5. Exceli peaaknas näete uut töölehte, millel näete kõiki diagramme.

võrdlus

Parandage kahjustatud Exceli fail

Exceli fail on altid korruptsioonile, kuna Excel võib aeg-ajalt kokkujooksda. Sellises olukorras on parem ette valmistada võimas ja usaldusväärne xlsx taastamine tööriist, näiteks DataNumen Excel Repair. See on kasulik, kui teie Exceli fail saab rikutud ja Exceli automaatse taastamise funktsioon ei tööta.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas remont sql ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom