☰

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。

相关内容