使用Union批量删除列时触发VBA运行时错误1004的问题

问题场景 #

• 工作表共709列，第一行包含依赖下方表格数据的公式，需删除第一行单元格值为DELETE的列，保留约100列
• 执行VBA删除操作时触发运行时错误1004：Delete method of range class failed，且其他删除列的VBA代码也出现相同错误

错误原因及解决方案 #

1. 原代码逻辑与需求反向（核心问题） #

原代码实际是删除第一行值不为DELETE/False的列，和你的需求完全相反。同时从左到右循环收集列会导致列号偏移（删除左侧列后，右侧列的位置会变化），建议改为从右往左遍历。

2. 运行时错误1004的常见诱因及解决 #

• 工作表处于保护状态：若工作表被保护，需先解除保护（有密码则补充密码参数）：

  ws.Unprotect Password:="你的密码" '无密码可省略参数
  

• 公式引用冲突：第一行公式依赖下方数据，删除列可能导致引用失效，可先将第一行公式转为值：

  ws.Rows(1).Value = ws.Rows(1).Value
  

• 大范围Union操作异常：处理大量列时，Union批量删除易出问题，逐个删除更稳定。

修正后的VBA代码 #

Sub Delete_DELETE_Cols()
    Dim ws As Worksheet
    Dim LCol As Long
    Dim i As Long
    
    '指定目标工作表，建议替换为具体表名，如ThisWorkbook.Worksheets("Sheet1")
    Set ws = ActiveSheet
    
    '解除工作表保护（如有需要）
    'ws.Unprotect Password:="yourpassword"
    
    '可选：将第一行公式转为值，避免删除时引用错误
    'ws.Rows(1).Value = ws.Rows(1).Value
    
    With ws
        LCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
        
        '从右往左遍历，避免列号偏移
        For i = LCol To 1 Step -1
            If .Cells(1, i).Value = "DELETE" Then
                .Columns(i).Delete
            End If
        Next i
    End With
    
    '重新保护工作表（如有需要）
    'ws.Protect Password:="yourpassword"
End Sub

代码说明 #

• 从右往左遍历列，避免删除左侧列后后续列索引偏移，防止漏删或误删
• 可选择性开启工作表保护解除、公式转值操作，针对性解决1004错误诱因
• 逐个删除目标列，比Union批量删除更稳定，适配大量列的处理场景

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