如何修改VBA代码实现工作簿多工作表删除含表头的空白列

原代码仅处理当前活动工作表，要实现批量处理所有工作表，只需添加工作表遍历循环，并为每个工作表单独收集待删除列，同时补充空范围判断避免无空白列时触发错误。

修改后的完整代码：

Sub DeleteBlankColumnsAllSheets()
    Dim ws As Worksheet
    Dim i As Long
    Dim lnglastcolumn As Long
    Dim delrng As Range
    
    ' 遍历工作簿中所有工作表
    For Each ws In ThisWorkbook.Worksheets
        Set delrng = Nothing ' 处理新表前重置待删除范围
        With ws
            lnglastcolumn = .Cells(1, .Columns.Count).End(xlToLeft).Column
            
            ' 从左到右检查每一列
            For i = 1 To lnglastcolumn
                ' 判断列中除表头外无数据（仅第1行有内容）
                If .Cells(.Rows.Count, i).End(xlUp).Row = 1 Then
                    If delrng Is Nothing Then
                        Set delrng = .Columns(i)
                    Else
                        Set delrng = Union(delrng, .Columns(i))
                    End If
                End If
            Next i
        End With
        
        ' 仅当存在待删除列时执行删除
        If Not delrng Is Nothing Then
            delrng.Delete
        End If
    Next ws
End Sub

关键改动说明： #

• 新增For Each ws In ThisWorkbook.Worksheets循环，遍历当前工作簿的所有工作表
• 每次切换工作表时重置delrng为Nothing，避免跨表累积无效范围
• 增加If Not delrng Is Nothing Then判断，防止无空白列时因delrng为空触发运行时错误
• 将原代码中ActiveSheet替换为循环变量ws，确保操作对象为当前遍历的工作表

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