根据其他单元格复制一个单元格中的值并构造数据

Question

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

  A      B  
Peter  8.000  
Bob    4.000  
Jane   3.000  
Jane   4.000  

每个人都有几个参赛作品，而我的老板要我每周和每月展示一次，所以他能够跟踪某人是否比其他人更加加班。

Answer 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