从单独的工作表中循环显示每个名称的名称和总销售额

Question

我正在尝试浏览销售人员列表，并将每个名称并将其循环到销售列表中，并获得每个销售人员的总销售额。我可以接受任何销售人员并在列表中循环以获得该个人的总销售额，我遇到的问题是每个销售人员，然后转到下一个销售人员。

在我的电子表格中，范围（i1：i525）是所有525名销售人员的列表。 a栏有10,000个销售额。

这是我到目前为止所拥有的......

Sub find_tot()
Dim i As Integer
Dim x As Integer

x = 0
For Each t In Range("i1:i525")

    For i = 1 To 10000:
        If Cells(i, 1).Value Like t Then
            x = x + (Cells(i, 3).Value)
    Else:
        Cells(i, 4).Value = ""

        End If
        Range(i, 10).Value = x
    Next

Next t

End Sub

Answer 1

原生工作表SUMIF公式应该为您提供所需的结果。

with sheets("Sheet1")
    .range("i1:i525").offset(0, 1).formula = "=SUMIF(A:A, I1, C:C)"
end with

我不完全确定D列的位置。