Jeśli każdy arkusz w skoroszycie programu Excel zawiera kilka wykresów i chcesz zbiorczo przenieść wszystkie wykresy do nowo utworzonego arkusza, zapoznaj się z tym artykułem. Przedstawimy Ci 2 proste sposoby.
Po utworzeniu wykresów dla danych w każdym arkuszu skoroszytu programu Excel, aby lepiej analizować dane zgodnie z tymi wykresami, możesz chcieć zebrać wszystkie te wykresy w jednym arkuszu. Innymi słowy, możesz mieć nadzieję na przeniesienie ich wszystkich do nowego arkusza. Jeśli jest kilka wykresów, możesz po prostu użyć następującej metody 1, aby przejść jeden po drugim. Jeśli jednak istnieje mnóstwo wykresów, lepiej jest skorzystać z tego drugiego.
Metoda 1: Ręczne przesuwanie wykresu jeden po drugim
- Najpierw utwórz nowy arkusz roboczy, w którym chcesz przenieść wszystkie wykresy.
- Następnie otwórz arkusz roboczy i umieść na nim wykres.
- Następnie kliknij prawym przyciskiem myszy wykres i wybierz „Przenieś wykres” z menu kontekstowego.
- W wyskakującym oknie dialogowym „Przenieś wykres” wybierz nowy arkusz z listy „Obiekt w” i kliknij „OK”.
- Zaznaczony wykres zostanie natychmiast przeniesiony.
- Teraz możesz użyć tego sposobu do przetwarzania wszystkich wykresów we wszystkich arkuszach po kolei.
Metoda 2: Przeniesienie wsadowe za pomocą Excel VBA
- Na początek uruchom edytor Excel VBA zgodnie z „Jak uruchomić kod VBA w programie Excel".
- Następnie umieść następujący kod w module lub projekcie.
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
- Następnie bezpośrednio naciśnij „F5”, aby uruchomić to makro teraz.
- Po zakończeniu działania makra zamknij edytor VBA.
- W głównym oknie programu Excel możesz zobaczyć nowy arkusz, w którym możesz zobaczyć wszystkie wykresy.
Porównanie
| Zalety | Wady | |
| Metoda 1 | Łatwy w obsłudze | Musisz poruszać się jeden po drugim |
| Metoda 2 | Może zbiorczo przetwarzać wszystkie wykresy | Użytkownicy muszą uważać na zewnętrzne makra |
Napraw uszkodzony plik Excel
Plik programu Excel jest podatny na uszkodzenie, ponieważ od czasu do czasu program Excel może ulec awarii. W takich okolicznościach lepiej przygotuj potężnego i godnego zaufania odzyskiwanie xlsx narzędzie, takie jak DataNumen Excel Repair. Przyda się, gdy plik Excel zostanie uszkodzony, a funkcja automatycznego odzyskiwania programu Excel nie działa.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawa sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com