需求：使用VBA删除非空值少于5个的Excel列（共1000列）

以下是针对需求编写的VBA代码，核心逻辑是统计每列的非空单元格数量，批量删除非空值≤5的列：

Sub RemoveLowNonEmptyColumns()
    Dim ws As Worksheet
    Dim lastCol As Long
    Dim col As Long
    Dim deleteCols As Collection
    
    ' 指定目标工作表，可替换为具体表名如"ThisWorkbook.Worksheets("Data")"
    Set ws = ActiveSheet
    ' 获取数据区域的最后一列
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    ' 用于存储待删除的列号
    Set deleteCols = New Collection
    
    ' 遍历所有列统计非空值数量
    For col = 1 To lastCol
        ' CountA统计所有非空单元格（含文本、数值、非空公式结果）
        Dim nonEmptyCount As Long
        nonEmptyCount = Application.WorksheetFunction.CountA(ws.Columns(col))
        
        ' 非空值≤5则标记为待删除
        If nonEmptyCount <= 5 Then
            deleteCols.Add col
        End If
    Next col
    
    ' 倒序删除列，避免删除前列后列索引偏移导致错误
    Dim i As Long
    For i = deleteCols.Count To 1 Step -1
        ws.Columns(deleteCols(i)).Delete
    Next i
    
    MsgBox "处理完成！已删除所有非空值少于5个的列。"
End Sub

关键说明： #

• CountA函数完全匹配你对“非空值”的定义，不会把数值5作为判断标准，而是统计所有非空单元格的数量
• 先收集待删除列再倒序删除的方式，能避免直接遍历删除时列号错乱的问题，适配1000列的规模
• 若要处理固定工作表，把ActiveSheet替换为具体工作表对象即可

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