[已解决]根据省市区求和

zuo8250 · 发表于 2014-5-16 09:40

请教各位一下
如附件，在第二个sheet中统计在第一个sheet中相同省市区的求和
自己的思路是在两个表中各增加一个辅助列，将省市区连接起来，然后在第二个sheet中用sumif函数求和，但是想应该有更简单的办法
另外，第二个sheet中的省市区数据能不能根据第一个sheet中的省市区去重得出唯一值？
谢谢！！

最佳答案

月排行榜 / 总排行榜

zhp3

2014-5-16 10:14

建议用数据透视表做：数据源增加或减少时，在透视表刷新一下，数据自动更新，并且数据量很大时，结果又快又准。
做了一个动态图看看。

求和.zip (14.68 KB, 下载次数: 4)

baksy · 发表于 2014-5-16 09:47

本帖最后由 baksy 于 2014-5-16 09:48 编辑

D2=SUMPRODUCT((工作表1!A:A=A2)*(工作表1!B:B=B2)*(工作表1!C:C=C2),(工作表1!D:D))
三键回车（公式复制后,点一下公式编辑栏的任意位置,先按住 shift、ctrl 两个键,然后敲enter键）、公式下拉。

zuo8250 · 发表于 2014-5-16 09:50

另外，第二个sheet中的省市区数据能不能根据第一个sheet中的省市区去重得出唯一值？
这样就不用每次都改了
谢谢

zhp3 · 发表于 2014-5-16 10:04

zuo8250 发表于 2014-5-16 09:50
另外，第二个sheet中的省市区数据能不能根据第一个sheet中的省市区去重得出唯一值？
这样就不用每次都改了 ...

用数据透视表解决又快又准、还去重。

求和.zip (14.25 KB, 下载次数: 0)

qh8600 · 发表于 2014-5-16 10:05

Private Sub CommandButton1_Click()
Dim ar, br, str As String, d As Object, i, j, r As String
Set d = CreateObject("Scripting.Dictionary")
ar = Sheet1.Range("A1").CurrentRegion
ReDim br(1 To UBound(ar), 1 To 4)
For i = 2 To UBound(ar)
str = ar(i, 1) & "|" & ar(i, 2) & "|" & ar(i, 3)
If Not d.Exists(str) Then
Cnt = Cnt + 1
d(str) = Cnt
For j = 1 To 3
br(Cnt, j) = ar(i, j)
Next j
End If
r = d(str)
If ar(i, 4) <> "" Then br(r, 4) = Round(br(r, 4) + ar(i, 4))
Next i
With Sheet2
.Rows("2:1048576").Delete Shift:=xlUp
.Cells(2, 1).Resize(Cnt, 4) = br
End With
End Sub

复制代码

求和.rar (21.78 KB, 下载次数: 2)

蓝粆 · 发表于 2014-5-16 10:06

公式可以达到去重效果但是计算量太大所以不建议公式也不建议引用整列

如果数据多会假死~~

suye1010 · 发表于 2014-5-16 10:09

这个问题，个人认为最简单的解决方式是运用数据透视表来汇总，又方便，又快捷。

zhp3 · 发表于 2014-5-16 10:14

建议用数据透视表做：数据源增加或减少时，在透视表刷新一下，数据自动更新，并且数据量很大时，结果又快又准。
做了一个动态图看看。

求和.zip (14.68 KB, 下载次数: 4)

		自动登录	找回密码
密码			注册

[已解决]根据省市区求和

相关帖子

点评

评分