如何檢查活頁簿中每個工作表的大小？

作者曉陽修改日期2025-04-17

假設您有一個包含多個工作表的大型活頁簿，現在想快速找出每個工作表的大小，以確定哪些需要精簡——有沒有高效的方法能完成這項任務？

使用 VBA 程式碼檢查每個工作表的大小

使用 Kutools for Excel 檢查每個工作表的大小

使用 VBA 程式碼檢查每個工作表的大小

太神奇了！在 Excel 中使用高效 Tabs，就像 Chrome、Edge、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

3. 接著按下「F5」鍵執行此程式碼，系統便會在目前的工作簿中插入一個名為「KutoolsforExcel」的新工作表，其中列出各工作表的名稱及其大小（單位：位元）。請參閱截圖：

使用 VBA 程式碼檢查工作表大小以取得結果

使用 Kutools for Excel 檢查每個工作表的大小

若您已安裝「Kutools for Excel」，即可使用其「分割工作簿」功能，將整個活頁簿拆分為獨立檔案，並前往指定資料夾逐一檢查各檔案的大小。

「Kutools for Excel」內含超過 300 項實用的 Excel 工具，30 天內免費試用且無任何限制。立即取得。

安裝 Kutools for Excel 後，請依照下列步驟操作：

1. 開啟您要檢查各工作表大小的活頁簿，然後點選「KUTOOLS PLUS」>「活頁簿」>「分割工作簿」。

2. 在「分割工作簿」對話方塊中，勾選所有工作表，點擊「分割」按鈕，並指定一個資料夾來儲存新工作簿檔案。請參閱截圖：

3. 接著，您目前工作簿中的每個工作表都會儲存為獨立的 Excel 檔案，歡迎前往指定資料夾查看各活頁簿的檔案大小。

使用 Kutools 分割每個工作表來檢查工作表大小的結果

深入了解這項分割工作簿功能。

如何在 Excel 中將活頁簿分割成多個獨立的 Excel 檔案？

如何在 Excel 中將工作表匯出並儲存為全新的工作簿？

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多