2 modi per spostare in batch tutti i grafici da tutti i fogli di lavoro esistenti a uno nuovo creato nella cartella di lavoro di Excel

Se ogni foglio di lavoro in una cartella di lavoro di Excel contiene diversi grafici e ora desideri spostare in batch tutti i grafici in un nuovo foglio di lavoro creato, puoi fare riferimento a questo post. Qui ti presenteremo 2 semplici modi.

Dopo aver creato grafici per i dati in ogni foglio di lavoro di una cartella di lavoro di Excel, in modo da analizzare meglio i dati in base a questi grafici, potresti voler riunire tutti questi grafici in uno stesso foglio di lavoro. In altre parole, potresti sperare di spostarli tutti in un nuovo foglio di lavoro. Se ci sono pochi grafici, puoi semplicemente usare il seguente Metodo 1 per spostarti uno per uno. Tuttavia, se ci sono una miriade di grafici, è meglio utilizzare quest'ultimo.

Metodo 1: sposta manualmente il grafico uno per uno

  1. Inizialmente, crea un nuovo foglio di lavoro in cui desideri spostare tutti i grafici.
  2. Quindi, apri un foglio di lavoro e presenta un grafico al suo interno.
  3. Successivamente, fai clic con il pulsante destro del mouse sul grafico e seleziona "Sposta grafico" dal menu contestuale.Sposta grafico
  4. Nella finestra di dialogo popup "Sposta grafico", seleziona il nuovo foglio nell'elenco "Oggetto in" e fai clic su "OK".Scegliere il paese
  5. Immediatamente, il grafico selezionato verrà spostato.Il grafico viene spostato in un nuovo foglio
  6. Ora puoi usare questo modo per elaborare tutti i grafici in tutti i fogli di lavoro uno per uno.

Metodo 2: spostamento in batch con Excel VBA

  1. Per cominciare, avvia l'editor VBA di Excel in base a "Come eseguire il codice VBA nel tuo Excel".
  2. Quindi inserire il codice seguente in un modulo o progetto.
Sub MoveAllCharts() Dim strNewSheet As String Dim objTargetWorksheet As Worksheet Dim objWorksheet As Worksheet Dim objChart As Object 'Crea un nuovo foglio 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 'Sposta ciascun grafico nel nuovo foglio uno per uno For Each objChart In objWorksheet.ChartObjects objChart.Chart.Location xlLocationAsObject, strNewSheet Next objChart End If Next objTargetWorksheet.Attiva End Sub

Codice VBA - Batch Sposta tutti i grafici da tutti i fogli di lavoro in uscita a uno nuovo creato

  1. Successivamente, premi direttamente "F5" per eseguire questa macro in questo momento.
  2. Al termine della macro, uscire dall'editor VBA.
  3. Nella finestra principale di Excel, puoi vedere un nuovo foglio di lavoro, in cui puoi vedere tutti i grafici.Grafici spostati in batch nel nuovo foglio di lavoro di Excel

Confronto

  Vantaggi Svantaggi
Metodo 1 Facile da usare Devi muoverti uno per uno
Metodo 2 Può elaborare tutti i grafici in blocco Gli utenti devono fare attenzione alle macro esterne

Ripara file Excel danneggiato

Il file Excel è soggetto a corruzione poiché Excel può bloccarsi di tanto in tanto. In una tale circostanza, faresti meglio a preparare un potente e affidabile recupero xlsx strumento, come DataNumen Excel Repair. Sarà utile quando il tuo file Excel viene danneggiato e la funzione di ripristino automatico di Excel non funziona.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui riparare sql e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com

Lascia un Commento

L'indirizzo email non verrà pubblicato. I campi obbligatori sono contrassegnati con *