2 Cara Pantas untuk Mendapatkan Ukuran Data Setiap Lembaran Kerja dalam Buku Kerja Excel

Sekiranya anda ingin mendapatkan ukuran data setiap lembaran kerja dengan cepat dalam buku kerja Excel, anda boleh merujuk artikel ini. Di sini kami akan berkongsi 2 kaedah berguna dengan anda.

Kadang-kadang, ketika berurusan dengan buku kerja Excel yang terdiri daripada sejumlah besar lembaran kerja, anda mungkin ingin mendapatkan ukuran data setiap lembaran kerja. Walau bagaimanapun, tidak ada ciri asli untuk keperluan ini. Oleh itu, anda perlu menggunakan beberapa kaedah penyelesaian, seperti Kaedah 1. berikut atau anda boleh menggunakan Kaedah 2 yang lebih pintar untuk mendapatkan ukuran data semua lembaran kerja secara pukal.

Kaedah 1: Dapatkan Ukuran Lembaran Kerja Satu persatu Secara Manual

1. Pada mulanya, buka buku kerja Excel khusus.
2. Kemudian, salin kandungan lembaran kerja Excel.
3. Seterusnya, buat buku kerja baru dan tampal lembaran kerja yang disalin ke Lembaran 1.
4. Kemudian, simpan buku kerja baru ke folder Windows.
5. Terakhir, anda dapat memeriksa ukuran data buku kerja baru, sama dengan ukuran data lembaran kerja, di Windows Explorer, seperti yang ditunjukkan pada tangkapan layar berikut.
6. Sekarang, anda boleh menggunakan cara ini untuk mendapatkan ukuran data lembaran kerja lain satu persatu.

Kaedah 2: Kumpulan Dapatkan Ukuran Data Semua Lembaran Kerja melalui VBA

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

Sub GetEachWorksheetSize()
    Dim strTargetSheetName As String
    Dim strTempWorkbook As String
    Dim objTargetWorksheet As Worksheet
    Dim objWorksheet As Worksheet
    Dim objRange As Range
    Dim i As Long
    Dim nLastEmptyRow As Integer

    strTargetSheetName = "Sheet Sizes"
    strTempWorkbook = ThisWorkbook.Path & "\Temp Workbook.xls"

    With ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1))
         .Name = strTargetSheetName
         .Cells(1, 1) = "Sheet"
         .Cells(1, 1).Font.Size = 14
         .Cells(1, 1).Font.Bold = True
         .Cells(1, 2) = "Size"
         .Cells(1, 2).Font.Size = 14
         .Cells(1, 2).Font.Bold = True
    End With

    Set objTargetWorksheet = Application.Worksheets(strTargetSheetName)

    For Each objWorksheet In Application.ActiveWorkbook.Worksheets
        If objWorksheet.Name <> strTargetSheetName Then
           objWorksheet.Copy

           Application.ActiveWorkbook.SaveAs strTempWorkbook
           Application.ActiveWorkbook.Close SaveChanges:=False

           nLastEmptyRow = objTargetWorksheet.Range("A" & objTargetWorksheet.Rows.Count).End(xlUp).Row + 1

           With objTargetWorksheet
                .Cells(nLastEmptyRow, 1) = objWorksheet.Name
                .Cells(nLastEmptyRow, 2) = FileLen(strTempWorkbook)
           End With

           Kill strTempWorkbook
         End If
    Next
End Sub

3. Selepas itu, tekan "F5" untuk menjalankan makro ini dengan segera.
4. Akhirnya, setelah makro selesai, kembali ke buku kerja.
5. Anda akan melihat lembaran kerja baru pada awalnya, yang mengandungi ukuran setiap lembaran kerja, seperti gambar berikut.

perbandingan

Selesaikan Masalah PST yang Menjengkelkan

Pengguna boleh menghadapi pelbagai jenis masalah yang mengganggu dalam MS Excel, daripada penutupan atau permulaan semula yang tidak dijangka hinggalah masalah yang serius. rasuah xlsxTidak dinafikan, masalah yang paling rumit ialah fail Excel yang rosak kerana ia tidak dapat diselesaikan dengan mudah. ​​Ia memerlukan anda menggunakan alat pembaikan Excel luaran, seperti DataNumen Excel Repair.

Pengenalan Pengarang:

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