在Excel工作簿中獲取每個工作表的數據大小的2種快速方法

如果要快速獲取Excel工作簿中每個工作表的數據大小，可以參考本文。 在這裡，我們將與您分享2種便捷的方法。

有時，當處理包含大量工作表的Excel工作簿時，您可能需要獲取每個工作表的數據大小。 但是，此要求沒有本機功能。 因此，您需要使用一些解決方法，例如以下方法1。或者，可以使用更加智能的方法2來批量獲取所有工作表的數據大小。

方法1：手動一對一獲取工作表數據大小

1. 首先，打開特定的Excel工作簿。
2. 然後，複製Excel工作表的內容。
3. 接下來，創建一個新的工作簿並將復制的工作表粘貼到工作表1中。
4. 以後，將新工作簿保存到Windows文件夾中。
5. 最後，您可以在Windows資源管理器中檢查新工作簿的數據大小，該數據大小等於工作表的數據大小，如以下屏幕快照所示。
6. 現在，您可以使用這種方式一個接一個地獲取其他工作表的數據大小。

方法2：通過VBA批量獲取所有工作表的數據大小

1. 首先，請根據“打開Excel VBA編輯器如何在Excel中運行VBA代碼“。
2. 然後，將以下代碼放入項目或模塊中。

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. 之後，按“ F5”立即運行該宏。
4. 最終，宏完成後，回到工作簿。
5. 您將在開始時看到一個新的工作表，其中包含每個工作表的大小，如下圖所示。

競品對比

修復惱人的PST問題

用戶在使用微軟Excel時可能會遇到各種各樣的問題，從意外關機或重新啟動到嚴重的 xlsx損壞毫無疑問，最棘手的問題是Excel檔案損壞，因為它不容易自行解決。這需要使用外部Excel修復工具，例如… DataNumen Excel Repair.

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 腐敗 SQL Server 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM