1、方法一、数据透视表法：
选中图中区域或者将光标放在表格内任何一个单元格，点击【插入】/【数据透视表】，就弹出了【创建数据透视表】的对话框。
在【创建数据透视表】中【选择放置数据透视表的位置】下侧选择【现有工作表】，在【位置】处录入要放置数据透视表的位置，此例中我们选择【Sheet2!$D$1】，点击【确定】。
在【数据透视表字段列表】框内，将【业务员】字段拖到【行标签】区域，将【销售额】拖到【数据】区域。如图所示。用excel中vba代码实现自动统计
7、在代码区填写下列代码：
Sub 分类求和()
Dim arr1(1 To 10, 1 To 2)
last = Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("a2:b" & last)
For i = 1 To last - 1
For j = 1 To UBound(arr1)
x = arr(i, 1): y = arr1(j, 1)
If x = y Then
arr1(j, 2) = arr(i, 2) + arr1(j, 2)
GoTo 100:
End If
Next j
k = k + 1
arr1(k, 1) = arr(i, 1)
arr1(k, 2) = arr(i, 2)
100:
Next i
[c2].Resize(k, 2) = arr1
End Sub
8、点击如果所示的代码运行按钮，可以看到，在所指定的区域已经将结果统计出来了。需要注意的是，在运行代码的时候，我们的数据源所在的工作表必须处在激活的状态，否则会运行错误。
