VBA-EXCEL统计数据

考点1：行号获取
考点2：三目运算符

Sub ffll()

ret0 = 0
ret1 = 0
Row = ActiveSheet.UsedRange.Rows.Count
For i = 2 To Row Step 1
  k = Range("AJ" & i).Value
  If k > 0 Then
    k1 = IIf(Range("AL" & i).Value = 0, 1, 0)
    k2 = IIf(Range("AO" & i).Value = 0, 1, 0)
    k3 = IIf(Range("AR" & i).Value = 0, 1, 0)
    k4 = IIf(Range("AU" & i).Value = 0, 1, 0)
    ret0 = ret0 + k1 + k2 + k3 + k4
    ret1 = ret1 + k
  End If
Next i
Range("BI1").Value = ret0
Range("BI2").Value = ret1
Range("BI3").Value = ret0 / ret1
Range("BI4").Value = Row
End Sub