2 Mga paraan upang Batch Ilipat ang Lahat ng Mga Tsart mula sa Lahat ng Umiiral na Mga Worksheet sa isang Bagong Nilikha Isa sa Excel Workbook

Kung ang bawat worksheet sa isang workbook sa Excel ay naglalaman ng ilang mga tsart at ngayon ay gusto mong ilipat ang lahat ng mga tsart nang sabay-sabay sa isang bagong nilikhang worksheet, maaari kang sumangguni sa post na ito. Dito ay ipapakilala namin sa iyo ang 2 madaling paraan.

Matapos lumikha ng mga tsart para sa data sa bawat worksheet ng isang workbook ng Excel, upang mas mahusay na pag-aralan ang data ayon sa mga tsart na ito, baka gusto mong kolektahin ang lahat ng mga tsart na ito sa isang parehong worksheet. Sa madaling salita, maaari kang umasa na ilipat ang lahat ng mga ito sa isang bagong worksheet. Kung may ilang mga tsart, maaari mo lamang gamitin ang sumusunod na Paraan 1 upang ilipat isa-isa. Gayunpaman, kung mayroong isang napakaraming mga tsart, mas mahusay kang gumamit ng huli.

Paraan 1: Manu-manong Ilipat ang Tsart ng Isa-isa

1. Sa una, lumikha ng isang bagong worksheet kung saan mo nais ilipat ang lahat ng mga tsart.
2. Pagkatapos, buksan ang isang worksheet at i-pitch sa isang tsart dito.
3. Susunod, mag-right click sa tsart at piliin ang "Ilipat ang Tsart" mula sa menu ng konteksto.
4. Sa popup dialog box na "Ilipat ang Tsart", piliin ang bagong sheet sa listahan ng "Bagay sa" at i-click ang "OK".
5. Kaagad, ilipat ang napiling tsart.
6. Ngayon, maaari mong gamitin ang ganitong paraan upang iproseso ang lahat ng mga tsart sa lahat ng mga worksheet nang paisa-isa.

Paraan 2: Lumipat ng Batch gamit ang Excel VBA

1. Upang magsimula, ilunsad ang Excel VBA editor ayon sa “Paano Patakbuhin ang VBA Code sa Iyong Excel".
2. Pagkatapos, ilagay ang sumusunod na code sa isang module o proyekto.

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. Pagkatapos, direktang pindutin ang "F5" upang patakbuhin ang macro na ito ngayon.
4. Kapag natapos ang macro, lumabas sa VBA editor.
5. Sa pangunahing window ng Excel, maaari kang makakita ng isang bagong worksheet, kung saan maaari mong makita ang lahat ng mga tsart.

paghahambing

Pag-ayos ng Napinsalang File ng Excel

Ang Excel file ay madaling kapitan ng katiwalian dahil maaaring mag-crash ang Excel ngayon at pagkatapos. Sa ilalim ng ganoong pangyayari, mas mabuti na maghanda ka ng isang malakas at mapagkakatiwalaan xlsx pagbawi tool, tulad ng DataNumen Excel Repair. Magagamit ito kapag nasira ang iyong file sa Excel at hindi gumagana ang tampok na awtomatikong pagbawi ng Excel.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang ayusin ang sql at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa