Excel VBA需求：筛选多列特定值行并统计上一行I列数值正负次数

修复后的完整代码 #

Sub newCode()
    Dim i As Long
    Dim countGreater As Long, countLess As Long
    Dim targetRows As Range
    
    ' 初始化统计计数器
    countGreater = 0
    countLess = 0
    
    ' 遍历第2行到第1000行（第1行无上行，无需检查）
    For i = 2 To 1000
        ' 检查当前行是否满足I列=0且R列=2的条件
        If Range("I" & i).Value = 0 And Range("R" & i).Value = 2 Then
            ' 合并符合条件的行到目标选区
            If targetRows Is Nothing Then
                Set targetRows = Rows(i)
            Else
                Set targetRows = Union(targetRows, Rows(i))
            End If
            
            ' 获取上一行I列的值，先校验是否为数值
            Dim prevIValue As Variant
            prevIValue = Range("I" & i - 1).Value
            
            If IsNumeric(prevIValue) Then
                Select Case prevIValue
                    Case Is > 0
                        countGreater = countGreater + 1
                    Case Is < 0
                        countLess = countLess + 1
                End Select
            End If
        End If
    Next i
    
    ' 选中目标行并展示统计结果
    If Not targetRows Is Nothing Then
        targetRows.Select
        MsgBox "符合条件行的上一行统计：" & vbCrLf & _
               "I列值>0的次数：" & countGreater & vbCrLf & _
               "I列值<0的次数：" & countLess
    Else
        MsgBox "未找到满足I列=0且R列=2的行"
    End If
End Sub

原代码的核心问题 #

1. 变量声明错误：nextValue As Integer 缺少Dim关键字，且Integer类型无法覆盖Excel单元格的所有数值范围，容易溢出或触发类型不匹配
2. 遍历逻辑错误：原Do While只会循环到第一个不满足条件的行，无法遍历所有1000行筛选符合要求的记录
3. Range引用错误：Range("I1:I" And "R1:R" & i - 1) 是无效语法，无法基于两列条件选中目标行
4. 偏移方向错误：要获取上一行数据需用Offset(-1, 0)，原代码用Offset(1, 0)实际是取下一行
5. 代码结构不完整：缺少End If、Set语句，Next无对应For循环，逻辑框架混乱
6. 未处理非数值情况：直接读取单元格值赋值，若单元格为空或非数值会触发类型不匹配错误

代码逻辑说明 #

• 用For循环遍历第2到1000行（跳过第1行，因为它没有上一行）
• 对每行判断是否满足I列=0且R列=2的条件，符合则通过Union将该行合并到targetRows范围
• 读取符合条件行的上一行I列值，先通过IsNumeric校验是否为数值，避免类型不匹配
• 用计数器分别统计上一行I列值大于0和小于0的次数
• 遍历结束后，选中所有符合条件的行，并弹出统计结果；若无符合条件的行，给出提示

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