2 начина за групово преместване на всички диаграми от всички съществуващи работни листове в нова създадена в работната книга на Excel

Споделете сега:

Ако всеки работен лист в работна книга на Excel съдържа няколко диаграми и сега искате да преместите всички диаграми в нов създаден работен лист, можете да се обърнете към този post. Тук ще ви представим 2 лесни начина.

След като създадете диаграми за данните във всеки работен лист на работна книга на Excel, за да анализирате по-добре данните според тези диаграми, може да искате да съберете всички тези диаграми на един и същ работен лист. С други думи, може да се надявате да ги преместите в нов работен лист. Ако диаграмите са малко, можете просто да използвате следния метод 1, за да се движите един по един. И все пак, ако има безброй диаграми, по-добре е да използвате последната.

Метод 1: Преместете ръчно диаграма едно по едно

  1. Отначало създайте нов работен лист, където искате да преместите всички диаграми.
  2. След това отворете работен лист и поставете върху него диаграма.
  3. След това щракнете с десния бутон върху диаграмата и изберете „Move Chart“ от контекстното меню.Преместване на диаграмата
  4. В изскачащия диалогов прозорец „Преместване на диаграма“ изберете новия лист в списъка „Обект в“ и щракнете върху „OK“.Select Location
  5. Веднага избраната диаграма ще бъде преместена.Диаграмата е преместена в нов лист
  6. Сега можете да използвате този начин, за да обработите една по една всички диаграми във всички работни листове.

Метод 2: Пакетно преместване с Excel VBA

  1. Като начало стартирайте редактора на Excel VBA според „Как да стартирате VBA код във вашия Excel".
  2. След това поставете следния код в модул или проект.
Sub MoveAllCharts () Dim strNewSheet As String Dim objTargetWorksheet As Worksheet Dim objWorksheet As Worksheet Dim objChart As Object 'Създаване на нов лист strNewSheet = "Charts" ActiveWorkbook.Worksheets.Add (Преди: = Application.Worksheets (1)). Name = strNewSheet Set objTargetWorksheet = Application.Worksheets (strNewSheet) За всеки objWorksheet в Application.ActiveWorkbook.Worksheets Ако objWorksheet.Name <> strNewSheet Тогава 'Преместете всяка диаграма на новия лист един по един strNewSheet Next objChart End If Next objTargetWorksheet.Активирайте End Sub

VBA код - Пакетно преместване на всички диаграми от всички излизащи работни листове в нов създаден

  1. След това натиснете директно „F5“, за да стартирате този макрос точно сега.
  2. Когато макросът завърши, излезте от редактора на VBA.
  3. В главния прозорец на Excel можете да видите нов работен лист, в който можете да видите всички диаграми.Групово преместени диаграми в новия работен лист на Excel

сравнение

  Предимства Недостатъци
Метод 1 Лесен за работа Трябва да се движите един по един
Метод 2 Може грубо да обработва всички диаграми Потребителите трябва да се пазят от външни макроси

Поправете повредения файл на Excel

Файлът на Excel е склонен към повреда, тъй като Excel може да се срине от време на време. При такива обстоятелства по-добре подгответе мощен и надежден xlsx възстановяване инструмент, като DataNumen Excel Repair. Ще бъде полезен, когато файлът ви в Excel се повреди и функцията за автоматично възстановяване на Excel не работи.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително ремонт sql и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com

Споделете сега:

Коментарите са забранени.