[已解决]哪位高手能给写个代码

freefly0518 · 发表于 2013-12-31 11:27

本帖最后由 freefly0518 于 2014-1-2 14:27 编辑

有格式完全一样的20多个工作表，分别是序号，时间，商品名称，数量、单价、金额，备注。
如何在汇总工作表中把前面20个表按商品名称把数量和金额汇总出来，用条件求和表做出来太大，希望能用宏代码写出来。
先谢谢了。
附件已上传，希望高手来解答。

最佳答案

月排行榜 / 总排行榜

爱疯

2014-1-2 15:30

Sub Test()
Dim i, A(1 To 12), x
For i = 1 To UBound(A)
      A(i) = "'F:\Downloads\汇总表\[汇总表.xls]" & i & "月'!R1C3:R6C6"
Next i
'对第1到12个工作表合并计算，C1:F6求和
With Range("c1")
      x = .Value
      Range("c:f").ClearContents
      .Consolidate Sources:=A, Function:=xlSum, TopRow:=True, LeftColumn:=True
      .Value = x
End With
End Sub

汇总表2.rar (11.79 KB, 下载次数: 20)

爱疯 · 发表于 2013-12-31 11:38

建议
1）上传附件
2）在附件中，给出部分结果
3）可能数据透视表或函数，也方便实现

jio1ye · 发表于 2013-12-31 12:34

恩，同意楼上。你必须给个测试附件。

这种情况，建议用数据透视表做会很方便哦。

zjdh · 发表于 2013-12-31 13:33

没有附件，无法帮你！

freefly0518 · 发表于 2014-1-2 14:27

高手们，快帮帮忙吧。

爱疯 · 发表于 2014-1-2 15:30

Sub Test()
Dim i, A(1 To 12), x
For i = 1 To UBound(A)
      A(i) = "'F:\Downloads\汇总表\[汇总表.xls]" & i & "月'!R1C3:R6C6"
Next i
'对第1到12个工作表合并计算，C1:F6求和
With Range("c1")
      x = .Value
      Range("c:f").ClearContents
      .Consolidate Sources:=A, Function:=xlSum, TopRow:=True, LeftColumn:=True
      .Value = x
End With
End Sub

汇总表2.rar (11.79 KB, 下载次数: 20)

freefly0518 · 发表于 2014-1-2 22:10

爱疯发表于 2014-1-2 15:30
Sub Test()
Dim i, A(1 To 12), x
For i = 1 To UBound(A)

首先感谢老师的回复。我试了下，在我的电脑上，只要把盘符改了，基本上可以达到我的要求。但还是有几个疑问：
1，因为在实际工作中用的是供货商的名做工作表名，所以如果工作表的名称不是“1月、2月……12月”要是换成供货商的名，那就不好使了吧；
2，在汇总里，单价是把数量和金额合计后平均计算的，但现在也累加在一起了。就是怎么做到不算单价？
3，因为我一点也不懂计算机语言，所以不明白那个取值范围该如何更改。
再次表示感谢。

爱疯 · 发表于 2015-6-5 16:21

freefly0518 发表于 2014-1-2 22:10
首先感谢老师的回复。我试了下，在我的电脑上，只要把盘符改了，基本上可以达到我的要求。但还是有几个疑 ...

汇总表3.rar (13.34 KB, 下载次数: 5)

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

[已解决]哪位高手能给写个代码

相关帖子