如何使用Visual Basic删除包含指定数值范围外内容的电子表格行

你要的需求可以通过VBA快速实现，以下是完整的操作指引和代码：

你提到的要删除指定区间外数值所在行的需求，代码已经适配你给出的「60101-60501、74132-74532」两个区间，你提到的示例表格如下：

Sub 删除区间外数值行()
    Dim ws As Worksheet
    Dim 最后行号 As Long
    Dim 遍历行号 As Long
    Dim 当前单元格数值 As Long
    
    ' 如需仅处理第一张表，注释掉下一行和末尾的Next，放开下下行注释
    For Each ws In ThisWorkbook.Worksheets
    ' Set ws = ThisWorkbook.Sheets(1)
    
        ' 获取当前表A列最后一个有数据的行号，如需换判断列修改"A"为对应列标即可
        最后行号 = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
        
        ' 倒序遍历，从最后一行到第2行（默认第1行是表头，无需判断）
        For 遍历行号 = 最后行号 To 2 Step -1
            ' 转成数值格式避免文本格式导致判断错误
            当前单元格数值 = Val(ws.Cells(遍历行号, "A").Value)
            
            ' 判断数值是否在指定区间外，是则删除整行
            If Not ((当前单元格数值 >= 60101 And 当前单元格数值 <= 60501) Or (当前单元格数值 >= 74132 And 当前单元格数值 <= 74532)) Then
                ws.Rows(遍历行号).Delete
            End If
        Next 遍历行号
    Next ws
    
    MsgBox "处理完成"
End Sub

• 打开需要处理的Excel文件，按下Alt + F11调出VBA编辑器
• 在左侧工程面板右键点击当前工作簿名称，选择「插入」→「模块」
• 将上述代码粘贴到弹出的代码编辑窗口
• 按下F5即可运行，运行结束会弹出完成提示

• 如需只处理单张表，按照代码里的注释修改工作表指定部分即可
• 如需修改判断列，把代码中两处"A"替换为你要判断的列的列标即可
• 如需调整数值区间，直接修改判断条件里的对应数值即可

• 运行前请备份原文件，避免误删数据无法恢复
• 如果待判断列里有非数值内容，代码会将其识别为0，自动删除

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