使用Excel VBA批量删除行数不足指定数量的列

以下是可实现需求的完整VBA代码，解决了原代码中的语法错误与逻辑问题：

Sub DeleteIncompleteColumns()
    Dim ws As Worksheet
    Dim lastCol As Long
    Dim targetRowCount As Long
    Dim currentCol As Long
    Dim lastRowInCol As Long
    
    ' 指定要操作的工作表，替换为你的表名（比如原代码中的"Graphs"）
    Set ws = ThisWorkbook.Worksheets("Graphs")
    ' 设置最小有效行数要求，可按需修改
    targetRowCount = 50
    
    ' 获取最后一列的列号
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    ' 从右往左循环列（避免删除列后后续列索引左移导致漏处理）
    For currentCol = lastCol To 2 Step -1
        ' 获取当前列最后一个非空单元格的行号
        lastRowInCol = ws.Cells(ws.Rows.Count, currentCol).End(xlUp).Row
        
        ' 有效行数小于目标值则删除列
        If lastRowInCol < targetRowCount Then
            ws.Columns(currentCol).Delete
        End If
    Next currentCol
End Sub

• 循环方向调整：从最后一列往B列（第2列）倒序循环，正序删除列会导致后续列索引左移，出现漏删或误删问题。
• 有效行数统计：用ws.Cells(ws.Rows.Count, currentCol).End(xlUp).Row准确获取列内最后一个非空单元格的行号，直接得到有效行数，避免原代码的范围引用错误。
• 逻辑修正：原代码判断条件颠倒，现在改为有效行数小于目标值时删除列，匹配需求。
• 移除冗余转换：直接用列号操作，无需GetColumnLetter函数，减少额外依赖和潜在错误。
• 明确工作表对象：通过Set ws = ...指定操作的工作表，避免默认工作表切换引发的错误。

• 范围引用语法错误：Range("B1: LastCol")无法正确识别列范围。
• 循环方向错误：正序循环删除列会导致索引混乱，跳过部分列。
• 判断逻辑颠倒：原代码要删除行数不足的列，却写成行数超过时删除。
• 行数统计方法错误：原代码的范围引用方式无法正确获取列的有效行数。
• 删除语句不明确：Column.Delete未指定具体列，易引发错误操作。

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