使用VBA删除具有特定字符串表

Question

目前我正在学习VBA。

我在YouTube上观看这一系列关于如何使用VBA使用循环和if语句来创建我的床单的受骗者，以及如何删除它们的教程视频。

我改变了我的代码如下：

Sub deleteloop()       
    Dim x As Worksheet    
    Dim y As String
    Dim z As String

    Application.DisplayAlerts = False

    For Each x In ActiveWorkbook.Sheets        
        y = x.Name     
        z = VBA.right(y, 3)       
        If z = "(2)" Then
            ActiveSheet.delete           
        End If
    Next x

    Application.DisplayAlerts = True
End Sub

你可以想像，我复制片具有“（2）”在其字符串的结尾，这样的想法是我的代码删除使用此任何重复表。

问题是，它会删除所有重复的表，但最后一个，我必须再次运行删除与最后剩余的片材“（2）”结尾。

我在做什么错在这里？

Answer 1

更改ActiveSheet.delete到x.delete如要删除您检查表，而不是一个是当前活动。