从单独的工作表中循环遍历名称和每个名称的总销售额
Loop through names and total sales for each name from a separate worksheet
我正在尝试查看销售人员列表,获取每个名称并循环遍历销售列表,并获得每个销售人员的总销售额。我可以选择任何销售人员并循环浏览列表以获得该个人的总销售额,我遇到的问题是选择每个销售人员,然后转到下一个销售人员。
在我的电子表格中,range(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
本机工作表 SUMIF
公式应该可以为您提供所需的结果。
with sheets("Sheet1")
.range("i1:i525").offset(0, 1).formula = "=SUMIF(A:A, I1, C:C)"
end with
我不太确定 D 列的位置。
我正在尝试查看销售人员列表,获取每个名称并循环遍历销售列表,并获得每个销售人员的总销售额。我可以选择任何销售人员并循环浏览列表以获得该个人的总销售额,我遇到的问题是选择每个销售人员,然后转到下一个销售人员。
在我的电子表格中,range(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
本机工作表 SUMIF
公式应该可以为您提供所需的结果。
with sheets("Sheet1")
.range("i1:i525").offset(0, 1).formula = "=SUMIF(A:A, I1, C:C)"
end with
我不太确定 D 列的位置。