删除Data Entry工作表为何导致VBA代码中断？

嘿，我来帮你拆解下代码中断的原因，顺便给你调整下逻辑：

首先，你的代码核心问题出在循环过程中修改了Worksheets集合——当你执行Worksheets("Data Entry").Delete时，工作表总数直接减少了1，但你的循环还是基于最初的Worksheets.Count来迭代，这就会导致后续的循环索引找不到对应的工作表，直接触发错误中断。而且你找到目标工作表后没有退出循环，还在继续遍历，这更是雪上加霜。

另外还有个小问题：你关闭了Application.DisplayAlerts但没恢复，这会导致后续所有Excel操作都没有警告提示，容易误操作。

给你调整后的代码，逻辑更清晰也更稳定：

Private Sub CommandButton1_Click()
    Dim DataEntryWs As Worksheet
    Dim sheetFound As Boolean
    Dim i As Integer ' 最好显式声明变量类型
    
    ' 先遍历查找是否存在"Data Entry"工作表
    sheetFound = False
    For i = Worksheets.Count To 1 Step -1
        If Worksheets(i).Name = "Data Entry" Then
            sheetFound = True
            Exit For ' 找到就立刻退出循环，避免无效遍历
        End If
    Next i
    
    Application.DisplayAlerts = False ' 关闭删除时的确认提示
    If sheetFound Then
        Worksheets("Data Entry").Delete
        MsgBox "Sheet Deleted"
    Else
        MsgBox "Adding new sheet now"
    End If
    
    ' 统一新建并命名工作表
    Set DataEntryWs = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    DataEntryWs.Name = "Data Entry"
    
    Application.DisplayAlerts = True ' 一定要恢复提示，避免后续操作风险
    
    Call Data_Entry_Calcs
End Sub

关键修正点： #

• 把「查找工作表」和「删除/新建」逻辑拆分，先确认是否存在目标表，找到后立刻退出循环，避免集合变化影响循环
• 删除工作表后立刻恢复DisplayAlerts，保证后续操作的安全性
• 统一新建工作表的逻辑，不管原表是否存在，都在最后新建，简化代码结构
• 显式声明变量类型（比如i As Integer），这是VBA的好习惯，避免隐式类型转换的问题

这样调整后，代码就不会在删除那步中断了，逻辑也更易维护～

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