2 szybkie sposoby uzyskania rozmiaru danych każdego arkusza w skoroszycie programu Excel

Jeśli chcesz szybko uzyskać rozmiar danych każdego arkusza w skoroszycie programu Excel, możesz zapoznać się z tym artykułem. Tutaj podzielimy się z tobą 2 przydatnymi metodami.

Czasami, gdy masz do czynienia ze skoroszytem programu Excel, który składa się z dużej liczby arkuszy, możesz chcieć uzyskać rozmiar danych każdego arkusza. Jednak nie ma funkcji natywnej dla tego wymagania. Musisz więc zastosować pewne obejścia, na przykład następującą metodę 1. Lub możesz użyć znacznie inteligentniejszej metody 2, aby zbiorczo uzyskać rozmiary danych wszystkich arkuszy.

Metoda 1: Ręczne pobieranie rozmiaru danych arkusza po kolei

1. Najpierw otwórz określony skoroszyt programu Excel.
2. Następnie skopiuj zawartość arkusza programu Excel.
3. Następnie utwórz nowy skoroszyt i wklej skopiowany arkusz do arkusza 1.
4. Później zapisz nowy skoroszyt w folderze systemu Windows.
5. Na koniec możesz sprawdzić rozmiar danych nowego skoroszytu, równy rozmiarowi danych arkusza roboczego, w Eksploratorze Windows, jak pokazano na poniższym zrzucie ekranu.
6. Teraz możesz użyć tego sposobu, aby po kolei uzyskać rozmiary danych z innych arkuszy.

Metoda 2: Batch Pobierz rozmiary danych wszystkich arkuszy roboczych za pośrednictwem VBA

1. Na początek otwórz edytor Excel VBA zgodnie z „Jak uruchomić kod VBA w programie Excel".
2. Następnie umieść następujący kod w projekcie lub module.

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. Następnie naciśnij „F5”, aby natychmiast uruchomić to makro.
4. W końcu, po zakończeniu działania makra, wróć do skoroszytu.
5. Na samym początku zobaczysz nowy arkusz, który zawiera rozmiar każdego arkusza, jak na poniższym obrazku.

Porównanie

Napraw irytujące problemy z plikami PST

Użytkownicy mogą napotkać wszelkiego rodzaju niepokojące problemy w programie MS Excel, począwszy od nieoczekiwanego wyłączenia lub ponownego uruchomienia, aż po poważne xlsx korupcjaNiewątpliwie najtrudniejszym problemem jest uszkodzony plik Excela, którego nie da się łatwo rozwiązać. Wymaga to zastosowania zewnętrznego narzędzia do naprawy Excela, takiego jak DataNumen Excel Repair.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym skorumpowany SQL Server i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com