A列为日期（区域），B列为名字（条件1），C列为成绩（条件2）.要求在一定日期区域内，统计每一个人成绩优良次数。必须用excelvba函数（宏）完成。... A 列为 日期（区域），B列为　名字（条件1），C列为成绩（条件2）.
要求在一定日期区域内，统计每一个人成绩优良次数。
必须用excel vba 函数（宏）完成。 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim d1, d2 As Date
d1 = Cells(2, 5).Value '日期1
d2 = Cells(2, 6).Value'日期2,要求日期1=<日期2
Dim rm, cj
rm = Cells(2, 7)'条件人名
cj = Cells(2, 8)'条件成绩
i = Sheet1.Range("a65536").End(xlUp).Row '行数
b = 0
For k = 2 To i
If Range("A" & k).Value >= d1 And Range("A" & k).Value <= d2 And Range("B" & k) = rm And Range("C" & k) = cj Then
b = b + 1
End If
Next
Cells(2, 9) = b
End Sub