資料結構
網路
關係資料庫管理系統 (RDBMS)
作業系統
Java
MS Excel
iOS
HTML
CSS
Android
Python
C語言程式設計
C++
C#
MongoDB
MySQL
Javascript
PHP
物理學
化學
生物學
數學
英語
經濟學
心理學
社會學
服裝設計
法學如何從工作簿中刪除空工作表？
如果您曾經處理過包含多個工作表Excel檔案，那麼處理那些無用的空工作表可能會讓人感到沮喪。這些空工作表可能會使您的資料雜亂無章，從而難以瀏覽，並給與該檔案互動的其他使用者帶來困惑。無論您是Excel新手還是高階使用者，它都能滿足您的需求。
在我們開始之前，請確保您熟悉Microsoft Excel的基礎知識以及如何在工作表之間移動。為了練習，我們建議您除了本教程外，還準備一個包含一些空工作表的示例工作簿。現在讓我們開始，有效地從您的Excel工作簿中刪除這些空工作表以清理它們。如果您仔細遵循每個步驟，您會驚訝於您可以多快清理資料並改進您的Excel工作流程！現在就開始吧！
從工作簿中刪除空工作表
在這裡，我們將首先插入一個VBA模組，然後執行它來完成任務。讓我們來看一個簡單的過程，學習如何在Excel中從工作簿中刪除空工作表。
步驟1
考慮一個Excel工作簿，其中包含多個工作表，其中一些是空的。
首先，右鍵單擊工作表名稱，然後選擇“檢視程式碼”以開啟VBA應用程式。
右鍵單擊 > 檢視程式碼。
步驟2
然後單擊“插入”，選擇“模組”，然後將下面的程式碼複製到文字框中。
插入 > 模組 > 複製。
程式碼
Sub DeletEmptySheets()
Dim xWs As Worksheet
Dim xAlert As Boolean
Dim xCount As Long
xAlert = Application.DisplayAlerts
Application.DisplayAlerts = False
If MsgBox("Are you sure to remove all empty sheets?", vbYesNo, "Remove Empty Sheets") = vbNo Then Exit Sub
For Each xWs In ActiveWorkbook.Worksheets
If (Application.CountA(xWs.Cells) = 0) And _
(xWs.Shapes.Count = 0) Then
xWs.Delete
xCount = xCount + 1
End If
Next
MsgBox "You have removed " & xCount & " empty sheet(s)", , "Remove Empty Sheets"
Application.DisplayAlerts = xAlert
End Sub
步驟3
然後單擊F5執行模組。然後在確認框中單擊“確定”。然後您將看到空工作表已被刪除。
F5 > 確定。
這就是如何在Excel中從工作簿中刪除空工作表的方法。
結論
在本教程中，我們使用了一個簡單的示例來演示如何從Excel工作簿中刪除空工作表以突出顯示特定資料集。
更新於：2023年9月7日
84 次瀏覽
廣告