多工作表批量删指定列VBA报错求助：Object required错误

错误原因 #

你的代码存在两个核心问题：

• Range对象u是基于当前活动工作表创建的，当遍历到其他工作表时，这个跨表的Range引用失效，触发“Object required”错误。
• VarArr的赋值方式错误：Array(Range(...))会把整个Range对象放进数组，而非提取单元格的标题值，导致Match函数无法正确匹配。

修正后的代码 #

Option Explicit
Sub DeleteColumns()
    Dim VarArr As Variant
    Dim targetCols As Range
    Dim cel As Range
    Dim ws As Worksheet
    Dim a As Long
    Dim sourceWs As Worksheet
    
    ' 明确指定读取M1值的工作表（这里假设是第一个工作表，可根据实际修改）
    Set sourceWs = ThisWorkbook.Worksheets(1)
    a = sourceWs.Range("M1").Value
    
    ' 提取保留的列标题值到数组（从第14列开始，共a列）
    VarArr = sourceWs.Range(sourceWs.Cells(1, 14), sourceWs.Cells(1, 14 + a - 1)).Value
    ' 将二维数组转为一维，方便Match匹配
    VarArr = Application.Transpose(Application.Transpose(VarArr))
    
    ' 遍历每个工作表
    For Each ws In ThisWorkbook.Worksheets
        Set targetCols = Nothing
        ' 在当前工作表的前10列中查找需要删除的列
        For Each cel In ws.Range(ws.Cells(1, 1), ws.Cells(1, 10))
            If IsError(Application.Match(cel.Value, VarArr, 0)) Then
                If Not targetCols Is Nothing Then
                    Set targetCols = Union(targetCols, cel)
                Else
                    Set targetCols = cel
                End If
            End If
        Next cel
        
        ' 从右往左删除列，避免列号偏移
        If Not targetCols Is Nothing Then
            Dim col As Range
            For Each col In targetCols.Areas
                Dim i As Long
                For i = col.Columns.Count To 1 Step -1
                    col.Columns(i).EntireColumn.Delete
                Next i
            Next col
        End If
    Next ws
End Sub

关键修改说明 #

1. 绑定工作表对象：所有Range操作都明确指定所属工作表，避免依赖活动表导致的引用失效。
2. 修正数组赋值：提取单元格的标题值到一维数组，确保Match函数能正确匹配。
3. 工作表内重新定位目标列：每个工作表单独遍历查找需要删除的列，而非复用其他工作表的Range引用。
4. 从右往左删除：删除列时如果从左往右，会导致后续列号偏移，从右往左删能避免这个问题。

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