多工作簿多工作表批量删除指定列的VBA代码问题求助

原代码的核心问题 #

• 工作表范围未绑定：Cells(1, i)和Columns(i)没有指定所属工作表，导致始终操作当前活动表，而非循环中的目标工作表，这就是需要多次运行才能覆盖所有表的原因。
• 冗余判断逻辑：四个独立的Like判断可以合并，同时原代码的删除操作本身逻辑正确，但因为范围错误，导致用户误以为仅清除了数据。

修正后的代码 #

Sub RemoveOldDateColumns()
    Dim wsIndex As Long, colIndex As Long
    Dim headerText As String
    
    With ThisWorkbook
        ' 遍历当前工作簿的所有工作表
        For wsIndex = 1 To .Worksheets.Count
            With .Worksheets(wsIndex)
                ' 从第50列倒序遍历，避免删除列后索引错位
                For colIndex = 50 To 1 Step -1
                    headerText = CStr(.Cells(1, colIndex).Value)
                    ' 匹配1980-2019年开头的表头文本
                    If headerText Like "198?-*" Or headerText Like "199?-*" Or _
                       headerText Like "200?-*" Or headerText Like "201?-*" Then
                        ' 删除当前工作表的目标列
                        .Columns(colIndex).EntireColumn.Delete
                    End If
                Next colIndex
            End With
        Next wsIndex
    End With
End Sub

关键修正点 #

1. 绑定工作表对象：所有单元格和列操作前添加.，确保操作的是当前循环的工作表，彻底解决“需多次运行”的问题。
2. 简化判断逻辑：合并多个Like条件，让代码结构更简洁，执行效率不变。
3. 明确删除整列：.Columns(colIndex).EntireColumn.Delete明确针对当前工作表的列执行删除操作，不会出现仅清除数据的情况。

补充：针对日期格式表头的版本 #

如果表头是实际的日期值（不是文本格式），用日期判断会更精准：

Sub RemoveOldDateColumns_ForDates()
    Dim wsIndex As Long, colIndex As Long
    Dim headerDate As Date
    
    With ThisWorkbook
        For wsIndex = 1 To .Worksheets.Count
            With .Worksheets(wsIndex)
                For colIndex = 50 To 1 Step -1
                    If IsDate(.Cells(1, colIndex).Value) Then
                        headerDate = .Cells(1, colIndex).Value
                        If Year(headerDate) <= 2019 Then
                            .Columns(colIndex).EntireColumn.Delete
                        End If
                    End If
                Next colIndex
            End With
        Next wsIndex
    End With
End Sub

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