0

我有一个数据表,其中包含人员的姓名和他们每天工作的时间。我需要总结每个人每天和每周工作的数字。工作表看起来像这样

  A      B  
Peter  8.000  
Bob    4.000  
Jane   3.000  
Jane   4.000  

每个人都有几个条目,我的老板希望我每周和每月显示它们,这样他就可以跟踪某人最近是否比其他人加班。

4

1 回答 1

1

我同意 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
于 2012-08-03T10:17:15.833 回答