A表：登记姓名、性别，以及这些人在不同时候对某一问题的多个回答；
B表：回答与得分的关系；
C表：分别统计不同人所对应的a、b、c的个数，并算出总得分
请教高手，怎么直接用VBA程序直接算出C表中“总得分”列的数据（不需要增加a个数、b个数、c个数这样的辅助列）？谢谢!
附：
A表：
姓名 性别 不同回答
张 男 a;b;c
张 女 a;b
李 男 c
张 男 b
张 女 a
李 男 b;c
B表：回答与得分关系表：
回答 对应得分
a 1
b 2
c 3
C表：分别统计不同人所对应的a、b、c的个数，并算出总得分
姓名 性别 总得分 a个数 b个数 c个数
张 男 8 1 2 1
张 女 4 2 1 0
李 男 8 0 1 2
------解决方案--------------------------------------------------------
Sheet1为A表，Sheet2为B表，Sheet3内写代码（C表）
- VB code
Private Sub Worksheet_Activate() Dim i As Long, k As Long Dim s As String, n As Long Dim c k = 2: Rows("2:65530").ClearContents With Sheet1 .Rows("2:65530").Sort Key1:=.Range("A2"), Order1:=xlAscending, Key2:=.Range("B2"), Order2:=xlAscending '按姓名、性别排序 s = .[C2] '如果当前行和上一行姓名性别一样，就组合s，否则求总得分和abc的个数 For i = 3 To .[A65530].End(xlUp).Row + 1 If .Range("A" & i) = .Range("A" & i - 1) And .Range("B" & i) = .Range("B" & i - 1) Then s = s & ";" & .Range("C" & i) '组合成绩字符串 Else Cells(k, 1) = .Range("A" & i - 1) '姓名 Cells(k, 2) = .Range("B" & i - 1) '性别 s = LCase(s) For Each c In Split(s, ";") n = Asc(c) - Asc("a") + 1 '对应:a->1 b->2 c->3 Cells(k, n + 3) = Cells(k, n + 3) + 1 ' a b c 的个数 Cells(k, 3) = Cells(k, 3) + Sheet2.Cells(n + 1, 2) '求和 Next c k = k + 1: s = .Range("C" & i) End If Next i End WithEnd Sub结果：姓名 性别 总得分 a个数 b个数 c个数李 男 8 1 2张 男 8 1 2 1张 女 4 2 1