VBA通过查找和平均删除行

Sub DeleteAverageRows()
    Dim lastRow As Long
    Dim i As Long
    Dim total As Double
    Dim count As Long
    Dim average As Double
    
    ' 获取最后一行的行号
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 初始化总和和计数变量
    total = 0
    count = 0
    
    ' 循环遍历每一行
    For i = lastRow To 1 Step -1
        ' 判断行是否符合条件（这里以第1列的值不为空为例）
        If Not IsEmpty(Cells(i, 1).Value) Then
            ' 累加总和
            total = total + Cells(i, 1).Value
            ' 增加计数
            count = count + 1
        Else
            ' 计算平均值
            If count > 0 Then
                average = total / count
            Else
                average = 0
            End If
            
            ' 如果平均值为0，则删除这些行
            If average = 0 Then
                Rows(i + 1 & ":" & lastRow).Delete
            End If
            
            ' 重置总和和计数变量
            total = 0
            count = 0
        End If
    Next i
    
    ' 最后一个区域的平均值处理
    If count > 0 Then
        average = total / count
    Else
        average = 0
    End If
    
    ' 如果平均值为0，则删除这些行
    If average = 0 Then
        Rows(1 & ":" & lastRow).Delete
    End If
End Sub