Barcha jadvallarni barcha mavjud ishchi varaqlardan Excel ish kitobida yaratilgan yangisiga o'tkazishning 2 usuli

Agar Excel ish daftaridagi har bir ish varag'ida bir nechta diagrammalar mavjud bo'lsa va endi siz barcha diagrammalarni yangi yaratilgan ish varag'iga ommaviy ravishda ko'chirmoqchi bo'lsangiz, ushbu postga murojaat qilishingiz mumkin. Bu yerda biz sizga 2 ta oson usulni taqdim etamiz.

Excel ish kitobining har bir ish varag'idagi ma'lumotlar uchun diagrammalarni yaratgandan so'ng, ushbu diagrammalarga muvofiq ma'lumotlarni yaxshiroq tahlil qilish uchun siz ushbu jadvallarning barchasini bitta ish varag'iga to'plashni xohlashingiz mumkin. Boshqacha qilib aytganda, siz ularning barchasini yangi ish varag'iga ko'chirishga umid qilishingiz mumkin. Agar bir nechta diagramma bo'lsa, birma-bir siljitish uchun quyidagi 1-usuldan foydalanishingiz mumkin. Shunga qaramay, son-sanoqsiz jadvallar mavjud bo'lsa, ikkinchisidan foydalanganingiz ma'qul.

1-usul: Grafikni birma-bir qo'lda ko'chirish

1. Dastlab, barcha diagrammalarni ko'chirmoqchi bo'lgan yangi ish varag'ini yarating.
2. Keyin, ish varag'ini oching va undagi diagramma ustiga qo'ying.
3. Keyin diagrammani o'ng tugmasini bosing va kontekst menyusidan "Diagrammani ko'chirish" -ni tanlang.
4. Qalqib chiquvchi "Diagrammani ko'chirish" dialog oynasida "Ob'ekt" ro'yxatida yangi varaqni tanlang va "OK" tugmasini bosing.
5. Bir vaqtning o'zida tanlangan diagramma ko'chiriladi.
6. Endi siz barcha ish varaqlaridagi barcha diagrammalarni birma-bir qayta ishlash uchun ushbu usuldan foydalanishingiz mumkin.

2-usul: Excel VBA yordamida to'plamli ko'chirish

1. Boshlash uchun "Excel VBA muharriri" ga muvofiq ishga tushiring.Excel-da VBA kodini qanday ishlatish kerak".
2. Keyin quyidagi kodni modul yoki loyihaga qo'ying.

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. Shundan so'ng, ushbu makrosni hozir ishga tushirish uchun to'g'ridan-to'g'ri "F5" tugmasini bosing.
4. Makros tugagach, VBA muharriridan chiqing.
5. Excelning asosiy oynasida siz barcha diagrammalarni ko'rishingiz mumkin bo'lgan yangi ish varag'ini ko'rishingiz mumkin.

qiyoslash

Buzilgan Excel faylini tiklang

Excel fayli buzilishlarga moyil, chunki Excel vaqti-vaqti bilan ishdan chiqishi mumkin. Bunday vaziyatda siz kuchli va ishonchli tayyorlaganingiz ma'qul xlsx tiklash kabi vosita DataNumen Excel Repair. Bu sizning Excel faylingiz buzilganda va Excelning avtomatik tiklash funksiyasi ishlamasa foydali bo'ladi.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sql-ni ta'mirlash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com