2 būdai, kaip paketiniu būdu perkelti visas diagramas iš visų esamų darbalapių į naują sukurtą „Excel“ darbaknygėje

Jei kiekviename „Excel“ darbaknygės darbalapyje yra kelios diagramos ir dabar norėtumėte perkelti visas diagramas į naujai sukurtą darbalapį, galite peržiūrėti šį įrašą. Čia pristatysime 2 paprastus būdus.

Sukūrę duomenų diagramas kiekviename „Excel“ darbaknygės darbalapyje, kad galėtumėte geriau analizuoti duomenis pagal šias diagramas, galbūt norėsite visas šias diagramas surinkti į tą patį darbalapį. Kitaip tariant, galite tikėtis perkelti juos visus į naują darbalapį. Jei diagramų yra nedaug, galite tiesiog naudoti šį 1 metodą, kad pereitumėte po vieną. Tačiau, jei yra daugybė diagramų, geriau naudoti pastarąją.

1 būdas: rankiniu būdu perkelkite diagramą po vieną

1. Pirmiausia sukurkite naują darbalapį, į kurį norite perkelti visas diagramas.
2. Tada atidarykite darbalapį ir padėkite jame diagramą.
3. Tada dešiniuoju pelės mygtuku spustelėkite diagramą ir kontekstiniame meniu pasirinkite „Perkelti diagramą“.
4. Iššokančiajame dialogo lange „Perkelti diagramą“ pasirinkite naują lapą sąraše „Objektas“ ir spustelėkite „Gerai“.
5. Iš karto pasirinkta diagrama bus perkelta.
6. Dabar galite naudoti šį būdą, kad po vieną apdorotumėte visas diagramas visuose darbalapiuose.

2 būdas: paketinis perkėlimas naudojant Excel VBA

1. Pirmiausia paleiskite „Excel VBA“ redaktorių pagal „Kaip paleisti VBA kodą „Excel“.".
2. Tada į modulį arba projektą įdėkite šį kodą.

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. Po to tiesiogiai paspauskite „F5“, kad paleistumėte šią makrokomandą dabar.
4. Baigę makrokomandą, išeikite iš VBA redaktoriaus.
5. Pagrindiniame Excel lange galite pamatyti naują darbalapį, kuriame galite matyti visas diagramas.

Palyginimas

Pataisykite sugadintą Excel failą

„Excel“ failas yra linkęs sugadinti, nes „Excel“ kartais gali sugesti. Esant tokioms aplinkybėms, geriau pasiruoškite galingą ir patikimą xlsx atkūrimas įrankis, pvz DataNumen Excel Repair. Tai bus naudinga, kai „Excel“ failas bus sugadintas ir „Excel“ automatinio atkūrimo funkcija neveikia.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant remontas sql ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com