2 schnelle Möglichkeiten zum Abrufen der Datengröße jedes Arbeitsblatts in einer Excel-Arbeitsmappe

Wenn Sie schnell die Datengröße jedes Arbeitsblatts in einer Excel-Arbeitsmappe ermitteln möchten, lesen Sie diesen Artikel. Hier werden wir 2 praktische Methoden mit Ihnen teilen.

Wenn Sie mit einer Excel-Arbeitsmappe arbeiten, die aus einer großen Anzahl von Arbeitsblättern besteht, möchten Sie manchmal die Datengröße jedes Arbeitsblatts ermitteln. Es gibt jedoch keine native Funktion für diese Anforderung. Daher müssen Sie einige Problemumgehungen verwenden, z. B. die folgende Methode 1. Oder Sie können die viel intelligentere Methode 2 verwenden, um die Datengrößen aller Arbeitsblätter in großen Mengen abzurufen.

Methode 1: Manuelles Abrufen der Arbeitsblattdatengröße

1. Öffnen Sie zunächst die spezifische Excel-Arbeitsmappe.
2. Kopieren Sie dann den Inhalt eines Excel-Arbeitsblatts.
3. Erstellen Sie als Nächstes eine neue Arbeitsmappe und fügen Sie das kopierte Arbeitsblatt in Blatt 1 ein.
4. Speichern Sie die neue Arbeitsmappe später in einem Windows-Ordner.
5. Zuletzt können Sie im Windows Explorer die Datengröße der neuen Arbeitsmappe überprüfen, die der Datengröße des Arbeitsblatts entspricht (siehe folgenden Screenshot).
6. Jetzt können Sie auf diese Weise die Datengrößen anderer Arbeitsblätter einzeln abrufen.

Methode 2: Batch Abrufen der Datengrößen aller Arbeitsblätter über VBA

1. Öffnen Sie zunächst den Excel VBA-Editor gemäß „So führen Sie VBA-Code in Ihrem Excel aus".
2. Fügen Sie dann den folgenden Code in ein Projekt oder Modul ein.

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. Drücken Sie danach „F5“, um dieses Makro sofort auszuführen.
4. Nach Abschluss des Makros kehren Sie schließlich zur Arbeitsmappe zurück.
5. Ganz am Anfang sehen Sie ein neues Arbeitsblatt, das die Größe jedes Arbeitsblatts enthält, wie im folgenden Bild.

Vergleich

Beheben Sie ärgerliche PST-Probleme

Benutzer können in MS Excel auf alle möglichen Probleme stoßen, von unerwartetem Herunterfahren oder Neustarten bis hin zu schwerwiegenden Fehlern. xlsx KorruptionDas kniffligste Problem ist zweifellos eine beschädigte Excel-Datei, da sie sich nicht einfach beheben lässt. Dafür ist ein externes Excel-Reparaturtool erforderlich, wie zum Beispiel DataNumen Excel Repair.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich korrupt SQL Server und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX