2 xeitos de mover por lotes todos os gráficos de todas as follas de traballo existentes a unha nova creada no libro de Excel

Se cada folla de traballo nun libro de Excel contén varios gráficos e agora desexa mover todos os gráficos por lotes a unha nova folla de traballo creada, pode consultar esta post. Aquí presentarémosche 2 xeitos sinxelos.

Despois de crear gráficos para os datos en cada folla de traballo dun libro de Excel, para analizar mellor os datos segundo estes gráficos, pode querer reunir todos estes gráficos nunha mesma folla de traballo. Noutras palabras, pode que esperes movelos todos a unha nova folla de traballo. Se hai poucos gráficos, podes usar o seguinte Método 1 para mover un por un. Non obstante, se hai unha infinidade de gráficos, é mellor que utilices este último.

Método 1: mover manualmente o gráfico un por un

  1. Nun primeiro momento, crea unha nova folla de traballo onde queres mover todos os gráficos.
  2. A continuación, abre unha folla de traballo e presenta un gráfico nela.
  3. A continuación, fai clic co botón dereito sobre o gráfico e selecciona "Mover gráfico" no menú contextual.Mover gráfico
  4. Na caixa de diálogo emerxente "Mover gráfico", seleccione a nova folla na lista "Obxecto en" e faga clic en "Aceptar".Escolla o Destino
  5. Ao mesmo tempo, o gráfico seleccionado moverase.O gráfico móvese á nova folla
  6. Agora, pode usar este xeito para procesar todos os gráficos de todas as follas de traballo un por un.

Método 2: Mover por lotes con Excel VBA

  1. Para comezar, inicie o editor de Excel VBA segundo "Como executar o código VBA no teu Excel".
  2. A continuación, coloque o seguinte código nun módulo ou proxecto.
Sub MoveAllCharts() Dim strNewSheet As String Dim objTargetWorksheet As Worksheet Dim objWorksheet As Worksheet Dim objChart As Object 'Crear unha nova folla strNewSheet = "Gráficos" ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1)).Name = strNewSheet Conxunto objTargetWorksheet = Application.Worksheets(strNewSheet) Para cada objWorksheet en Application.ActiveWorkbook.Worksheets Se objWorksheet.Name <> strNewSheet Then 'Move cada gráfico á nova folla un por un Para cada objChart en objWorksheet.ChartChartObjects.LocationObjects.Objects. strNewSheet Seguinte objChart End If Next objTargetWorksheet.Activar End Sub

Código VBA - Mover por lotes todos os gráficos de todas as follas de traballo que saen a unha nova creada

  1. Despois, preme directamente "F5" para executar esta macro agora mesmo.
  2. Cando remate a macro, saia do editor VBA.
  3. Na xanela principal de Excel, podes ver unha nova folla de traballo, na que podes ver todos os gráficos.Gráficos movidos por lotes na nova folla de traballo de Excel

comparación

  vantaxes Desvantaxes
Método 1 Doado de operar Tes que moverte un por un
Método 2 Pode procesar todos os gráficos en masa Os usuarios teñen que ter coidado coas macros externas

Reparar o ficheiro Excel danado

O ficheiro de Excel é propenso á corrupción xa que Excel pode fallar de cando en vez. En tal circunstancia, é mellor preparar un poderoso e de confianza recuperación xlsx ferramenta, como DataNumen Excel Repair. Será útil cando o teu ficheiro de Excel se corrompa e a función de recuperación automática de Excel non funcione.

Introdución do autor:

Shirley Zhang é unha experta en recuperación de datos DataNumen, Inc., que é o líder mundial en tecnoloxías de recuperación de datos, incluíndo reparar sql e produtos de software de reparación de Outlook. Para máis información visite www.datanumen.com

Deixe unha resposta

Enderezo de correo electrónico non será publicado. Os campos obrigatorios están marcados *