2 Cara Batch Pindahkan Semua Carta dari Semua Lembaran Kerja Sedia Ada ke Yang Baru Dibuat di Buku Kerja Excel

Jika setiap lembaran kerja dalam buku kerja Excel mengandungi beberapa carta dan kini anda ingin memindahkan semua carta secara berkumpulan ke lembaran kerja baharu yang dibuat, anda boleh merujuk siaran ini. Di sini kami akan memperkenalkan anda 2 cara mudah.

Setelah membuat carta untuk data di setiap lembaran kerja buku kerja Excel, untuk menganalisis data dengan lebih baik mengikut carta ini, anda mungkin ingin mengumpulkan semua carta ini ke lembaran kerja yang sama. Dengan kata lain, anda mungkin berharap dapat memindahkan semuanya ke lembaran kerja baru. Sekiranya terdapat sedikit carta, anda boleh menggunakan Kaedah 1 berikut untuk memindahkan satu persatu. Namun, jika terdapat banyak carta, anda lebih baik menggunakan yang terakhir.

Kaedah 1: Gerakkan Carta Secara Manual satu demi satu

1. Pada mulanya, buat lembaran kerja baru di mana anda mahu memindahkan semua carta.
2. Kemudian, buka lembaran kerja dan letakkan pada carta di dalamnya.
3. Seterusnya, klik kanan pada carta dan pilih "Pindahkan Carta" dari menu konteks.
4. Dalam kotak dialog "Pindahkan Carta" pop timbul, pilih helaian baru dalam senarai "Objek dalam" dan klik "OK".
5. Sekaligus, carta yang dipilih akan dipindahkan.
6. Sekarang, anda boleh menggunakan cara ini untuk memproses semua carta di semua lembaran kerja satu persatu.

Kaedah 2: Batch Move dengan Excel VBA

1. Sebagai permulaan, lancarkan editor Excel VBA mengikut “Cara Menjalankan Kod VBA di Excel Anda".
2. Kemudian, masukkan kod berikut ke dalam modul atau projek.

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

3. Selepas itu, tekan terus "F5" untuk menjalankan makro ini sekarang.
4. Apabila makro selesai, keluar dari editor VBA.
5. Di tetingkap utama Excel, anda dapat melihat lembaran kerja baru, di mana anda dapat melihat semua carta.

perbandingan

Membaiki Fail Excel yang Rosak

Fail Excel terdedah kepada kerosakan kerana Excel boleh berlaku sekarang dan kemudian. Dalam keadaan seperti itu, lebih baik anda mempersiapkan yang kuat dan boleh dipercayai pemulihan xlsx alat, seperti DataNumen Excel Repair. Ia akan sangat berguna apabila fail Excel anda rosak dan ciri pemulihan automatik Excel tidak berfungsi.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk baiki sql dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com