VBA删除个人工作簿模块时报错Error9 'subscript out of range'求助

嘿，这个Error 9的问题我太熟了！你的代码触发下标越界，核心原因是你硬编码了从Module2到Module10的循环，但你的工作簿里根本没有这么多编号的模块——比如如果你的工作簿只有Module2和Module3，当循环到Module4时，vbCom.Item("Module" & i)找不到对应的组件，自然就会抛出下标越界的错误。

另外还有个前提要注意：你得先在Excel的信任中心开启「信任对VBA项目对象模型的访问」，不然操作VBE的代码会直接报错。步骤是：文件→选项→信任中心→信任中心设置→宏设置→勾选「信任对VBA项目对象模型的访问」。

下面给你两个更可靠的解决方案：

方案1：删除所有标准模块（保留工作表/ThisWorkbook模块） #

这个方案会遍历工作簿里所有的VBA组件，只删除标准模块，不会误删工作表背后的模块或者ThisWorkbook：

Sub DeleteAllStandardModules()
    Dim vbProj As VBProject
    Dim vbComp As VBComponent
    Dim i As Integer
    
    ' 引用当前工作簿的VBA项目
    Set vbProj = ThisWorkbook.VBProject
    
    ' 倒序遍历组件（避免正向遍历删除时索引混乱）
    For i = vbProj.VBComponents.Count To 1 Step -1
        Set vbComp = vbProj.VBComponents(i)
        ' 判断是否为标准模块（vbext_ct_StdModule）
        If vbComp.Type = vbext_ct_StdModule Then
            vbProj.VBComponents.Remove vbComp
        End If
    Next i
    
    Set vbComp = Nothing
    Set vbProj = Nothing
End Sub

方案2：只删除名称以「Module」开头的模块 #

如果你只想删除命名为Module1、Module2这类的模块，而保留其他自定义名称的模块，可以用这个版本：

Sub DeleteNamedModules()
    Dim vbProj As VBProject
    Dim vbComp As VBComponent
    Dim i As Integer
    
    Set vbProj = ThisWorkbook.VBProject
    
    ' 同样倒序遍历，防止删除后组件数量变化导致的索引问题
    For i = vbProj.VBComponents.Count To 1 Step -1
        Set vbComp = vbProj.VBComponents(i)
        ' 判断是标准模块，且名称以"Module"开头
        If vbComp.Type = vbext_ct_StdModule And Left(vbComp.Name, 6) = "Module" Then
            vbProj.VBComponents.Remove vbComp
        End If
    Next i
    
    Set vbComp = Nothing
    Set vbProj = Nothing
End Sub

为什么要倒序遍历？ #

因为如果正向遍历（从1到Count），当你删除一个组件后，后面的组件索引会自动前移，导致跳过一些组件。倒序遍历就不会有这个问题，从最后一个组件开始删，前面的索引不会受影响。

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