☰

VBA Excel巨集：根據儲存格中的資料保留和刪除工作表

tag-icon • tag-icon microsoft-excel vba
VBA Excel巨集：根據儲存格中的資料保留和刪除工作表

這可能是一個非常簡單的問題，但我無法弄清楚。我運行一個創建 13 個電子表格的巨集。在這 13 個跨頁中，有幾個跨頁的 A2 欄中沒有任何內容。我希望能夠在 VBA 中建立一個宏，該宏將刪除 A2 中沒有任何內容的所有價差，但保留 A2 中包含資料的價差。我嘗試過使用：

Sub Delete()
Dim ws As Worksheet
  For Each ws In ActiveWorkbook.Worksheets
    Application.DisplayAlerts = False
      If LenB(ActiveSheet.Range("A2")) = 0 Then ActiveSheet.Delete
    Application.DisplayAlerts = True
  Next ws
End Sub

如果 A2 中沒有任何內容，這會刪除活動工作表，因此這對我來說是一些進步，但它不會自動移動到下一張工作表。

答案1

您的程式碼不一致，您應該到處使用ws而不是ActiveSheet.

相關內容