从单独的工作表中遍历每个名​​称的名称和总销售额

我试图通过一个销售人员名单，并采取每个名称，并通过销售名单循环，并获得每个销售人员的总销售额。 我可以带任何销售人员，并通过名单循环，让我的个人总销售额，我有问题是每个销售人员，然后移动到下一个销售人员。

在我的电子表格中，范围（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列在哪里。