我有一个数据表,其中包含人员的姓名和他们每天工作的时间。我需要总结每个人每天和每周工作的数字。工作表看起来像这样
A B
Peter 8.000
Bob 4.000
Jane 3.000
Jane 4.000
每个人都有几个条目,我的老板希望我每周和每月显示它们,这样他就可以跟踪某人最近是否比其他人加班。
我同意 Jmax 和 KingCronus 的观点。您实际上不需要宏。你可以用一个公式来实现它。
非 VBA
我假设值在 Col A 和 Col B 中。
=SUMPRODUCT((A:A="Jane")*(B:B))
VBA
如果您仍然想要 VBA,那么您可以使用它
Sub Sample()
Dim sName As String
sName = "Jane"
Debug.Print Application.Evaluate("=SUMPRODUCT((A:A=" & _
Chr(34) & sName & Chr(34) & ")*(B:B))")
End Sub