VBA子过程无法正确选取指定工作表单元格区域问题求助

你的代码无法正常取到区域、功能运行异常有5个直接原因：

• 过程调用语法错误：VBA中无Call关键字调用带参数的子过程时，参数不能加括号。ResetChild (children)的写法会强制将Range对象转为值数组传入过程，你在过程里收到的根本不是Range类型的区域对象，自然无法正常遍历。
• 存在性判断逻辑顺序颠倒：你先执行Set childrenSheet = Worksheets(cell.Value)，只要对应名称的工作表不存在，这行直接抛出运行时错误，后续的DoesSheetExist判断根本不会执行。
• 缺少空值校验：A1:A80范围内如果存在空单元格，传入空字符串取工作表会直接触发报错。
• 变量未显式声明：childrenSheet未定义类型，容易触发隐式转换bug。
• 冗余操作：不需要Activate工作表就能直接引用其单元格区域，激活操作多余且会拖慢运行速度。

主逻辑调用部分 #

Dim wks2 As Worksheet
Dim children As Range
Set wks2 = ThisWorkbook.Worksheets("Children")
Set children = wks2.Range("A1:A80")
' 两种正确调用方式二选一即可
ResetChild children
' Call ResetChild(children)

ResetChild子过程 #

Sub ResetChild(children As Range)
    Call DisableCalculations
    Dim cell As Range
    Dim sheetName As String
    
    For Each cell In children
        sheetName = Trim(CStr(cell.Value))
        ' 先判空再判断工作表是否存在，从根源避免运行时错误
        If Len(sheetName) > 0 Then
            If DoesSheetExist(sheetName) Then
                Application.DisplayAlerts = False
                ThisWorkbook.Worksheets(sheetName).Delete
                Application.DisplayAlerts = True
            End If
        End If
    Next cell
    ' 记得在过程末尾恢复Excel的默认设置，避免后续操作异常
    ' 对应你写的DisableCalculations补充恢复逻辑即可
End Sub

配套的DoesSheetExist函数参考 #

如果你原来的函数是接收Worksheet对象作为参数的，需要改成接收工作表名称字符串，参考实现：

Function DoesSheetExist(sheetName As String) As Boolean
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = ThisWorkbook.Worksheets(sheetName)
    DoesSheetExist = Not ws Is Nothing
    On Error GoTo 0
End Function

提示：所有操作工作簿、工作表的代码建议明确绑定ThisWorkbook（代码所在的当前工作簿），不要直接用无前置限定的Worksheets/Sheets，避免活动工作簿切换时出现误删其他文件工作表的问题。

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