VBA多工作表中的条件求和

Question

附件工作表中的代码只能求出姓名为“一”的人在所有工作表中的数量总和，或者只能求出姓名为“二”的人在所有工作表中的数量总和，或者只能求出姓名为“三”的人在所有工作表中的数量总和…… 怎样才能一次性把所有人在所有工作表中的数量总和都求出来呢？ 谢谢了！

Answer 1

原过程增加几句即可：
Sub
在单元格中对多表进行条件求和()
For
j
=
2
To
5
xm
=
Cells(j,
3)
X
=
0
For
sht
=
1
To
Sheets.Count
With
Sheets(sht)
For
H
=
2
To
7
If
.Cells(H,
1)
=
xm
Then
X
=
X
+
.Cells(H,
2)
Next
H
End
With
Next
sht
Sheets(1).Cells(j,
4)
=
X
MsgBox
"两表中姓名为"
&
xm
&
"的总和是"
&
X
Next
j
End
Sub