excel中对数据进行分类求和的几种方法

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、点击如果所示的代码运行按钮，可以看到，在所指定的区域已经将结果统计出来了。需要注意的是，在运行代码的时候，我们的数据源所在的工作表必须处在激活的状态，否则会运行错误。