2 mënyra për të zhvendosur në grup të gjitha grafikët nga të gjitha fletët e punës ekzistuese në një të re të krijuar në librin e punës Excel

Nëse çdo fletë pune në një libër pune në Excel përmban disa grafikë dhe tani dëshironi t'i zhvendosni të gjithë grafikët në një fletë pune të sapokrijuar, mund t'i referoheni këtij postimi. Këtu do t'ju prezantojmë 2 mënyra të lehta.

Pas krijimit të grafikëve për të dhënat në secilën fletë pune të një libri pune në Excel, në mënyrë që të analizohen më mirë të dhënat sipas këtyre grafikëve, mund të dëshironi t'i grumbulloni të gjitha këto grafikë në të njëjtën fletë pune. Me fjalë të tjera, mund të shpresoni t'i zhvendosni të gjitha në një fletë pune të re. Nëse ka pak tabela, thjesht mund të përdorni metodën 1 të mëposhtme për të lëvizur një nga një. Megjithatë, nëse ka një mori tabelash, është më mirë të përdorni këtë të fundit.

Metoda 1: Zhvendosni manualisht grafikun një nga një

1. Në fillim, krijoni një fletë të re pune ku dëshironi të zhvendosni të gjitha grafikët.
2. Pastaj, hapni një fletë pune dhe vendosni një tabelë në të.
3. Tjetra, klikoni me të djathtën në grafik dhe zgjidhni "Lëviz grafikun" nga menyja e kontekstit.
4. Në kutinë e dialogut "Lëviz grafikun", zgjidhni fletën e re në listën "Object in" dhe klikoni "OK".
5. Menjëherë, grafiku i zgjedhur do të zhvendoset.
6. Tani, mund ta përdorni këtë mënyrë për të përpunuar të gjitha grafikët në të gjitha fletët e punës një nga një.

Metoda 2: Lëvizja e grupit me Excel VBA

1. Për të filluar, hapni redaktorin Excel VBA sipas "Si të ekzekutoni kodin VBA në Excel".
2. Më pas, vendosni kodin e mëposhtëm në një modul ose projekt.

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. Më pas, shtypni drejtpërdrejt "F5" për të ekzekutuar këtë makro tani.
4. Kur makro përfundon, dilni nga redaktori VBA.
5. Në dritaren kryesore të Excel, mund të shihni një fletë të re pune, në të cilën mund të shihni të gjitha grafikët.

Krahasim

Riparoni skedarin e dëmtuar të Excel

Skedari Excel është i prirur për korrupsion pasi Excel mund të rrëzohet herë pas here. Në një rrethanë të tillë, është më mirë të përgatisni një të fuqishëm dhe të besueshëm rikuperimi xlsx mjet, si p.sh DataNumen Excel Repair. Do të jetë e dobishme kur skedari juaj Excel të korruptohet dhe funksioni i rikuperimit automatik të Excel nuk funksionon.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparimi sql dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com