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 eräajoin siirtää kaikki kaaviot uuteen luotuun laskentataulukkoon, voit viitata tähän post. Tässä esitellään sinulle 2 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”.Siirrä kaavio
  4. Valitse ponnahdusikkunassa "Siirrä kaavio" -valintaikkunassa uusi taulukko Kohde-luettelosta ja napsauta "OK".Valitse Sijainti
  5. Valittua kaaviota siirretään kerralla.Kaavio on siirretty uudelle arkille
  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 'Luo uusi taulukko strNewSheet = "Kaaviot" ActiveWorkbook.Worksheets.Add (Ennen: = Application.Worksheets (1)). Nimi = strNewSheet Aseta objTargetWorksheet = Application.Worksheets (strNewSheet) jokaiselle objWorksheet-sovellukselle Application.ActiveWorkbook.Worksheets If objWorksheet.Name <> strNewSheet Sitten 'Siirrä kukin kaavio uuteen taulukkoon yksitellen Jokaiselle objChart In objWorksheet.ChartObjects objChart.Chart.Location x, strNewSheet Seuraava objChart End Jos Seuraava objTargetWorksheet.Activate End Sub

VBA-koodi - Erä siirtää kaikki kaaviot kaikista poistuvista laskentataulukoista uuteen luotuun

  1. Suorita tämä makro painamalla tämän jälkeen suoraan “F5”.
  2. Kun makro on valmis, sulje VBA-editori.
  3. Excelin pääikkunassa näet uuden laskentataulukon, jossa näet kaikki kaaviot.Eräsiirretyt kaaviot uudessa Excel-laskentataulukossa

Vertailu

  edut Haitat
Menetelmä 1 Helppo käyttää Sinun täytyy liikkua yksi kerrallaan
Menetelmä 2 Voi käsitellä kaikkia kaavioita irtotavarana Käyttäjien on varottava ulkoisista makroista

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

Jätä vastaus

Sähköpostiosoitettasi ei julkaista. Pakolliset kentät on merkitty *