Если каждый рабочий лист в рабочей книге Excel содержит несколько диаграмм, и теперь вы хотите пакетно переместить все диаграммы на новый созданный рабочий лист, вы можете обратиться к этому post. Здесь мы представим вам 2 простых способа.
После создания диаграмм для данных на каждом рабочем листе книги Excel, чтобы лучше анализировать данные в соответствии с этими диаграммами, вы можете собрать все эти диаграммы на одном рабочем листе. Другими словами, вы можете надеяться переместить их все на новый рабочий лист. Если диаграмм мало, вы можете просто использовать следующий метод 1 для перемещения по одной. Тем не менее, если есть множество графиков, вам лучше использовать последний.
Способ 1: вручную переместить диаграмму одну за другой
- Сначала создайте новый рабочий лист, на который вы хотите переместить все диаграммы.
- Затем откройте рабочий лист и разместите на нем диаграмму.
- Затем щелкните правой кнопкой мыши график и выберите «Переместить график» в контекстном меню.
- Во всплывающем диалоговом окне «Переместить диаграмму» выберите новый лист в списке «Объект в» и нажмите «ОК».
- Сразу выбранный график будет перемещен.
- Теперь вы можете использовать этот способ для обработки всех диаграмм на всех листах по одной.
Способ 2: пакетное перемещение с помощью Excel VBA
- Для начала запустите редактор Excel VBA в соответствии с «Как запустить код VBA в вашем Excel».
- Затем поместите следующий код в модуль или проект.
Sub MoveAllCharts() Dim strNewSheet As String Dim objTargetWorksheet As Worksheet Dim objWorksheet As Worksheet Dim objChart As Object 'Создать новый лист strNewSheet = "Charts" ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1)).Name = strNewSheet Set objTargetWorksheet = Application.Worksheets(strNewSheet) Для каждого objWorksheet в Application.ActiveWorkbook.Worksheets Если objWorksheet.Name <> strNewSheet Then 'Переместите каждую диаграмму на новый лист одну за другой Для каждого objChart в objWorksheet.ChartObjects objChart.Chart.Location xlLocationAsObject, strNewSheet Next objChart End If Next objTargetWorksheet.Activate End Sub
- После этого напрямую нажмите «F5», чтобы запустить этот макрос прямо сейчас.
- Когда макрос завершится, выйдите из редактора VBA.
- В главном окне Excel вы можете увидеть новый рабочий лист, в котором вы можете увидеть все диаграммы.
сравнение
| Преимущества | Недостатки бонуса без депозита | |
| Метод 1 | Простота в эксплуатации | Вы должны двигаться один за другим |
| Метод 2 | Может обрабатывать все графики в пакетном режиме | Пользователи должны остерегаться внешних макросов |
Восстановить поврежденный файл Excel
Файл Excel подвержен повреждению, так как Excel может время от времени давать сбой. При таких обстоятельствах вам лучше подготовить мощный и надежный xlsx восстановление инструмент, такой как DataNumen Excel Repair. Это пригодится, когда ваш файл Excel будет поврежден, а функция автоматического восстановления Excel не работает.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановить sql и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com
Оставьте комментарий