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

网友投稿 740 2023-12-15

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

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

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

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

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

惊人的！在 Excel 中使用高效的选项卡，如 Chrome、Firefox 和 Safari！ 每天节省50％的时间，并减少数千次鼠标单击！

使用以下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

Copy

3. 然后按 F5 执行此代码的键，以及名为 Kutools对于Excel 将插入到包含每个工作表名称和文件大小的当前工作簿中，单位为“位”。看截图：

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

如果你有 Kutools for Excel，其 拆分工作簿 实用程序，您可以将整个工作簿拆分为单独的文件，然后转到特定的文件夹以检查每个文件的大小。

Kutools for Excel 包括300多个便捷的Excel工具。 30天免费试用，不受限制。 立即获取.

安装后 Kutools for Excel, 做以下步骤：

1。打开您要检查其每个工作表的大小的工作簿，然后单击企业 > 工作簿工具 > 拆分工作簿，请参见屏幕截图：

2。在 拆分工作簿 对话框，检查所有工作表，然后单击分裂按钮，然后指定一个文件夹来放置新的工作簿文件。查看屏幕截图：

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

要了解有关此拆分工作簿功能的更多信息。

相关文章：

如何在Excel中拆分工作簿以分隔Excel文件？

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

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel

🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。