2 moduri de a muta în lot toate diagramele din toate foile de lucru existente într-una nouă creată în registrul de lucru Excel

Dacă fiecare foaie de lucru dintr-un registru de lucru Excel conține mai multe diagrame și acum doriți să mutați toate diagramele într-o foaie de lucru nouă creată, vă puteți referi la această post. Aici vă vom prezenta 2 moduri simple.

După ce ați creat diagrame pentru datele din fiecare foaie de lucru a unui registru de lucru Excel, pentru a analiza mai bine datele în conformitate cu aceste diagrame, este posibil să doriți să adunați toate aceste diagrame într-o singură foaie de lucru. Cu alte cuvinte, ați putea spera să le mutați pe toate într-o nouă foaie de lucru. Dacă există puține diagrame, puteți utiliza următoarea Metodă 1 pentru a muta unul câte unul. Cu toate acestea, dacă există o multitudine de diagrame, este mai bine să îl utilizați pe cel din urmă.

Metoda 1: Mutați manual graficul unul câte unul

1. La început, creați o nouă foaie de lucru în care doriți să mutați toate diagramele.
2. Apoi, deschideți o foaie de lucru și prezentați pe o diagramă din ea.
3. Apoi, faceți clic dreapta pe diagramă și selectați „Mutați diagrama” din meniul contextual.
4. În fereastra de dialog pop-up „Mutare diagramă”, selectați noua foaie din lista „Obiect în” și faceți clic pe „OK”.
5. Imediat, graficul selectat va fi mutat.
6. Acum, puteți utiliza acest mod pentru a procesa toate diagramele din toate foile de lucru una câte una.

Metoda 2: Mutare în lot cu Excel VBA

1. Pentru început, lansați editorul Excel VBA conform „Cum să rulați codul VBA în Excel".
2. Apoi, introduceți următorul cod într-un modul sau proiect.

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. Apoi, apăsați direct „F5” pentru a rula această macrocomandă chiar acum.
4. Când macro-ul se termină, părăsiți editorul VBA.
5. În fereastra principală Excel, puteți vedea o nouă foaie de lucru, în care puteți vedea toate diagramele.

Comparaţie

Reparați fișierul Excel deteriorat

Fișierul Excel este predispus la corupție, deoarece Excel se poate prăbuși din când în când. Într-o astfel de circumstanță, ar fi mai bine să pregătești un puternic și demn de încredere recuperare xlsx instrument, cum ar fi DataNumen Excel Repair. Va fi util atunci când fișierul dvs. Excel este corupt și funcția de recuperare automată a Excel nu funcționează.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv repara sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com