如何检查工作簿中每个工作表的大小？

假设您有一个包含多个工作表的大型工作簿，现在，您想找出每个工作表的大小，以确定哪些工作表需要缩小。有没有快速的方法来处理这个任务呢？

使用VBA代码检查每个工作表的大小

使用Kutools for Excel检查每个工作表的大小

使用VBA代码检查每个工作表的大小

使用以下VBA代码，您可以快速获取工作簿中每个工作表的大小。请按照以下步骤操作：

1. 按住“ALT” + “F11”键，打开“Microsoft Visual Basic for Applications窗口”。

2. 点击“插入”>“模块”，并将以下代码粘贴到“模块窗口”中。

VBA代码：检查工作簿中每个工作表的大小

Sub WorksheetSizes()
'Update 20140526
Dim xWs As Worksheet
Dim Rng As Range
Dim xOutWs As Worksheet
Dim xOutFile As String
Dim xOutName As String
xOutName = "KutoolsforExcel"
xOutFile = ThisWorkbook.Path & "\TempWb.xls"
On Error Resume Next
Application.DisplayAlerts = False
Err = 0
Set xOutWs = Application.Worksheets(xOutName)
If Err = 0 Then
    xOutWs.Delete
    Err = 0
End If
With Application.ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1))
    .Name = xOutName
    .Range("A1").Resize(1, 2).Value = Array("Worksheet Name", "Size")
End With
Set xOutWs = Application.Worksheets(xOutName)
Application.ScreenUpdating = False
xIndex = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
    If xWs.Name <> xOutName Then
        xWs.Copy
        Application.ActiveWorkbook.SaveAs xOutFile
        Application.ActiveWorkbook.Close SaveChanges:=False
        Set Rng = xOutWs.Range("A1").Offset(xIndex, 0)
        Rng.Resize(1, 2).Value = Array(xWs.Name, VBA.FileLen(xOutFile))
        Kill xOutFile
        xIndex = xIndex + 1
    End If
Next
Application.ScreenUpdating = True
Application.Application.DisplayAlerts = True
End Sub

3. 然后按“F5”键执行此代码，一个名为“KutoolsforExcel”的新工作表将被插入到当前工作簿中，其中包含每个工作表名称和文件大小，单位为位。请参见截图：

使用Kutools for Excel检查每个工作表的大小

如果您有“Kutools for Excel”，使用其“分割工作簿”功能，您可以将整个工作簿拆分为单独的文件，然后进入特定文件夹检查每个文件的大小。

“Kutools for Excel”包括300多种便捷的Excel工具。免费试用30天无限制。立即获取。

安装Kutools for Excel后，请按照以下步骤操作：

1. 打开要检查其每个工作表大小的工作簿，并点击“Kutools Plus”>“工作簿”>“分割工作簿”。

2. 在“分割工作簿”对话框中，选中所有工作表并点击“分割”按钮，然后指定一个文件夹来存放新的工作簿文件。请参见截图：

3. 然后，您当前工作簿中的每个工作表都将保存为单独的Excel文件，您可以前往特定文件夹检查每个工作簿的大小。

了解更多关于此分割工作簿功能的信息。

相关文章：

如何在Excel中将工作簿拆分为单独的Excel文件？

如何在Excel中导出并保存工作表为新的工作簿？