2 tapaa erä siirtää kaikki kaaviot kaikista olemassa olevista laskentataulukoista uusiin luotuihin Excel-työkirjassa

Jos jokainen Excel-työkirjan laskentataulukko sisältää useita kaavioita ja haluat nyt siirtää kaikki kaaviot eränä uuteen luotuun laskentataulukkoon, voit katsoa tätä viestiä. Tässä esittelemme sinulle kaksi helppoa tapaa.

Kun olet luonut kaavioita Excel-työkirjan jokaisen laskentataulukon tiedoille, jotta voit paremmin analysoida tietoja näiden kaavioiden mukaan, saatat haluta koota kaikki nämä kaaviot samaan laskentataulukkoon. Toisin sanoen saatat toivoa, että siirrät ne kaikki uuteen laskentataulukkoon. Jos kaavioita on vähän, voit käyttää seuraavaa tapaa 1 siirtyäksesi yksitellen. Silti, jos on olemassa lukemattomia kaavioita, sinun on parempi käyttää jälkimmäistä.

Tapa 1: Siirrä kaaviota manuaalisesti yksi kerrallaan

1. Luo aluksi uusi laskentataulukko, johon haluat siirtää kaikki kaaviot.
2. Avaa sitten laskentataulukko ja kohota siinä olevaan kaavioon.
3. Napsauta sitten hiiren kakkospainikkeella kaaviota ja valitse pikavalikosta ”Siirrä kaavio”.
4. Valitse ponnahdusikkunassa "Siirrä kaavio" -valintaikkunassa uusi taulukko Kohde-luettelosta ja napsauta "OK".
5. Valittua kaaviota siirretään kerralla.
6. Nyt voit käyttää tätä tapaa käsitellä kaikkien taulukoiden kaikki kaaviot yksi kerrallaan.

Tapa 2: Eräsiirto Excel VBA: lla

1. Aloita käynnistämällä Excel VBA -editori kohdan ”Kuinka suorittaa VBA-koodi Excelissä".
2. Laita sitten seuraava koodi moduuliin tai projektiin.

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. Suorita tämä makro painamalla tämän jälkeen suoraan “F5”.
4. Kun makro on valmis, sulje VBA-editori.
5. Excelin pääikkunassa näet uuden laskentataulukon, jossa näet kaikki kaaviot.

Vertailu

Korjaa vioittunut Excel-tiedosto

Excel-tiedosto on altis korruptiolle, koska Excel voi kaatua silloin tällöin. Tällaisissa olosuhteissa sinun on parasta valmistaa voimakas ja luotettava xlsx-palautus työkalu, kuten DataNumen Excel Repair. Se on kätevä, kun Excel-tiedosto vioittuu eikä Excelin automaattinen palautustoiminto toimi.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjaus sql ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com