Use Sheets对象：

Sub DeleteBlankColumns(curSheet As Object)
    Dim i As Long
    Dim lnglastcolumn As Long
    Dim delrng As Range
    
    With curSheet
        lnglastcolumn = .Cells(1, Columns.Count).End(xlToLeft).Column
        
        For i = 1 To lnglastcolumn
            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
End Sub

Sub Run()
    DeleteBlankColumns Sheets("Sheet1")
    DeleteBlankColumns Sheets("Sheet2")
End Sub

字符串

请尝试下一个代码：

Sub DeleteEmptyColsInAllSheets()
 Dim wb As Workbook, sh As Worksheet, delRng As Range, lnglastcolumn As Long, i As Long
 Set wb = ActiveWorkbook ' use here the workbook you need

 For Each sh In wb.Worksheets
    With sh
        lnglastcolumn = .cells(1, Columns.count).End(xlToLeft).column
        
        For i = 1 To lnglastcolumn
            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: Set delRng = Nothing
    End If
 Next sh
End Sub

字符串