2 Cara Cepat Mendapatkan Ukuran Data Setiap Lembar Kerja di Buku Kerja Excel

Jika Anda ingin dengan cepat mendapatkan ukuran data dari setiap lembar kerja di buku kerja Excel, Anda bisa merujuk ke artikel ini. Di sini kami akan membagikan 2 metode praktis dengan Anda.

Terkadang, saat berurusan dengan buku kerja Excel yang terdiri dari sejumlah besar lembar kerja, Anda mungkin ingin mendapatkan ukuran data dari setiap lembar kerja. Namun, tidak ada fitur asli untuk persyaratan ini. Jadi, Anda perlu menggunakan beberapa solusi, seperti Metode 1 berikut ini. Atau Anda dapat menggunakan Metode 2 yang jauh lebih cerdas untuk mendapatkan semua ukuran data lembar kerja secara massal.

Metode 1: Dapatkan Ukuran Data Lembar Kerja Satu Per Satu Secara Manual

1. Pertama, buka buku kerja Excel tertentu.
2. Kemudian, salin konten lembar kerja Excel.
3. Selanjutnya, buat buku kerja baru dan tempel lembar kerja yang disalin ke dalam Lembar 1.
4. Nanti, simpan buku kerja baru ke folder Windows.
5. Terakhir, Anda dapat memeriksa ukuran data buku kerja baru, sama dengan ukuran data lembar kerja, di Windows Explorer, seperti yang diperlihatkan dalam tangkapan layar berikut.
6. Sekarang, Anda dapat menggunakan cara ini untuk mendapatkan ukuran data lembar kerja lain satu per satu.

Metode 2: Batch Dapatkan Ukuran Data Semua Lembar Kerja melalui VBA

1. Untuk memulai, buka editor VBA Excel sesuai dengan "Cara Menjalankan Kode VBA di Excel Anda".
2. Kemudian, masukkan kode berikut ke dalam proyek 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. Setelah itu, tekan "F5" untuk langsung menjalankan makro ini.
4. Akhirnya, setelah makro selesai, kembali ke buku kerja.
5. Anda akan melihat lembar kerja baru di awal, yang berisi ukuran setiap lembar kerja, seperti gambar berikut.

Perbandingan

Perbaiki Masalah PST yang Menjengkelkan

Pengguna dapat mengalami semua jenis masalah yang mengganggu di MS Excel, mulai dari shutdown atau res yang tidak terdugatart terlalu parah xlsx korupsi. Tidak diragukan lagi, most Masalah rumit adalah file Excel yang rusak karena tidak dapat diselesaikan dengan mudah. Ini menuntut Anda untuk menerapkan alat perbaikan Excel eksternal, seperti DataNumen Excel Repair.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk korup SQL Server dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com