本文將講述如何在Excel中獲取到當前打開工作簿的每個工作表的數據大小。如何在Excel 2013/2016中獲取工作簿中每個工作表的數據大小。

假設您有一個包含多個工作表的工作簿，并且您想知道當前工作簿中每個工作表的數據大小。本文將向你演示兩種獲取工作數據數據大小的方法。

• 方法1：手動獲取每個工作表的數據大小
• 方法2：通過VBA宏獲取每個工作表的數據大小

方法1：手動獲取每個工作表的數據大小

您可以手動逐個獲取每個工作表的數據大小，只需要在工作簿中復制Excel工作表的內容，然后創建一個新工作簿，并將內容粘貼到新工作簿中的sheet1中，然后將新工作簿保存到Windows文件夾。然后你可以得到這個新工作簿的大小。

您可以重復上述步驟，在工作簿中逐個獲取其他工作表的數據大小。

方法2：通過VBA宏獲取每個工作表的數據大小

如果要快速獲取當前工作簿中每個工作表的數據大小，可以使用Excel VBA宏來完成它。只需執行以下步驟：

步驟1：打開您的Excel工作簿，然后單擊開發工具選項卡下的“Visual Basic”命令，或者只需按“ALT + F11”快捷方式。

步驟2：然后將出現“Visual Basic編輯器”窗口。

步驟3：單擊“插入” – >“模塊”以創建新模塊。

步驟4：將以下VBA代碼粘貼到代碼窗口中。然后單擊“保存”按鈕。

Sub WorksheetSizes()    Dim wks As Worksheet    Dim c As Range    Dim sFullFile As String    Dim sReport As String    Dim sWBName As String    sReport = "Size Report"    sWBName = "Erase Me.xls"    sFullFile = ThisWorkbook.Path & _      Application.PathSeparator & sWBName    ' Add new worksheet to record sizes    On Error Resume Next    Set wks = Worksheets(sReport)    If wks Is Nothing Then        With ThisWorkbook.Worksheets.Add(Before:=Worksheets(1))            .Name = sReport            .Range("A1").Value = "Worksheet Name"            .Range("B1").Value = "Approximate Size"        End With    End If    On Error GoTo 0    With ThisWorkbook.Worksheets(sReport)        .Select        .Range("A1").CurrentRegion.Offset(1, 0).ClearContents        Set c = .Range("A2")    End With    Application.ScreenUpdating = False    ' Loop through worksheets    For Each wks In ActiveWorkbook.Worksheets        If wks.Name <> sReport Then            wks.Copy            Application.DisplayAlerts = False            ActiveWorkbook.SaveAs sFullFile            ActiveWorkbook.Close SaveChanges:=False            Application.DisplayAlerts = True            c.Offset(0, 0).Value = wks.Name            c.Offset(0, 1).Value = FileLen(sFullFile)            Set c = c.Offset(1, 0)            Kill sFullFile        End If    Next wks    Application.ScreenUpdating = TrueEnd Sub

步驟5：返回當前工作表，然后運行上面的excel宏。點擊執行按鈕。

步驟6：讓我們看看最后的結果：