VB操作execl，excel列内容为姓名，年龄，数学，语文，英语，用vb统计男女人数，及各科平均成绩并显示出来

性别在哪里？
VBA写更简单，vb稍微复杂一点还得创建一个excel对象，VBA代码：
假设A-F列分别为 姓名、性别、年龄、数学、语文、英语，数据从第二行开始
Sub test()
Dim arr, i As Long, brr(1 To 6), j As Long
arr = Range("a2:f" & [a65536].End(xlUp).Row)
For i = 1 To UBound(arr, 1)
If arr(i, 2) = "男" Then brr(2) = Val(brr(2)) + 1
For j = 4 To 6
brr(j) = Val(brr(j)) + Val(arr(i, j))
Next
Next
MsgBox "男：" & brr(2) & vbNewLine & _
"女：" & UBound(arr, 1) - brr(2) & vbNewLine & _
"数学平均分数：" & brr(4) / UBound(arr, 1) & vbNewLine & _
"语文平均分数：" & brr(5) / UBound(arr, 1) & vbNewLine & _
"英语平均分数：" & brr(6) / UBound(arr, 1)
End Sub

ya..