求助：如何实现宏仅在Autoshape存在时执行删除，否则定位单元格

我来帮你调整这个宏，核心问题是要先判断名为ACCESS的Autoshape是否存在，避免直接操作不存在的形状导致报错。以下是修改后的完整代码，还有关键细节的解释：

修改后的宏代码 #

Sub DeleteRepWT()
    Dim accessShape As Shape
    
    ' 尝试获取工作表中名为"ACCESS"的形状
    On Error Resume Next
    Set accessShape = ActiveSheet.Shapes("ACCESS")
    On Error GoTo 0 ' 恢复默认的错误处理机制
    
    If Not accessShape Is Nothing Then
        ' 形状存在时执行的操作：移动、删除形状，再删除指定列
        With accessShape
            .IncrementLeft 57#
            .IncrementTop -85.5
            .Delete
        End With
        ' 直接删除K到AI列，无需先选中
        Columns("K:AI").Delete
    Else
        ' 形状不存在时，仅选中B2单元格
        Range("B2").Select
    End If
End Sub

关键优化点说明 #

• 避免报错的核心判断：用On Error Resume Next临时跳过错误，尝试获取目标形状；之后用On Error GoTo 0恢复正常错误处理，防止后续代码意外忽略其他错误。如果accessShape不是Nothing，就说明形状存在。
• 去掉冗余的Select操作：原代码里多次用Select再操作对象，这在VBA里既低效又容易出问题，直接通过形状对象和列对象操作更可靠。
• 简化代码结构：用With语句统一处理形状的移动和删除，让代码更简洁易读。

内容的提问来源于stack exchange，提问作者Miles