Excel VBA:如果特定工作表上的特定列为空，则删除空列和整行

Sub DeleteEmptyColumnsAndRows()
    Dim ws As Worksheet
    Dim lastColumn As Long
    Dim lastRow As Long
    Dim i As Long
    Dim j As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为你要操作的工作表名称
    
    ' 获取工作表的最后一列和最后一行
    lastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 从最后一列开始向前遍历
    For i = lastColumn To 1 Step -1
        ' 检查列是否为空
        If WorksheetFunction.CountA(ws.Columns(i)) = 0 Then
            ' 删除空列
            ws.Columns(i).Delete
        End If
    Next i
    
    ' 从最后一行开始向前遍历
    For j = lastRow To 1 Step -1
        ' 检查行是否为空
        If WorksheetFunction.CountA(ws.Rows(j)) = 0 Then
            ' 删除整行
            ws.Rows(j).Delete
        End If
    Next j
End Sub