请教数据汇总问题

zorow · 发表于 2012-12-7 15:00

本帖最后由 zorow 于 2012-12-7 15:01 编辑

各位老师，我有一个基础产品选购表供各公司选购，各公司勾选了想购买的产品数量后返回，就有多个客户反馈回的表，所有表格式都是一样的，只是在采购数量栏不一样，如何自动生成汇总表？谢谢未命名11111.jpg

niuhui2009 · 发表于 2012-12-7 15:09

插入数据透视表

nkgsm · 发表于 2012-12-7 15:17

这是一个涉及数据库设计的问题，如果返回的是纸质表，就很好办，设计一个录入界面，每录入一个单位的单位名称和各产品数量，自动转入数据库（要使用VBA代码实现），数据库再用透视汇总即可。如果是电子文档，就比较麻烦，每一个电子文档都必须增加一列为单位名称（要填充下去），再通过VBA将其集中在一个工作表，再透视即可。

zorow · 发表于 2012-12-7 15:30

谢谢各位解答，能否有直接能解决办法的现成的VBA能用呢？

dsmch · 发表于 2012-12-7 15:49

Dim arr, brr, crr, drr, d As Object, i&, j&, x
Set d = CreateObject("scripting.dictionary")
arr = [a15:b22]
brr = [d15:e22]
crr = [g15:h22]
For i = 1 To UBound(arr)
d(arr(i, 1)) = arr(i, 2)
Next
For i = 1 To UBound(brr)
d(brr(i, 1)) = d(brr(i, 1)) & "," & brr(i, 2)
Next
For i = 1 To UBound(crr)
d(crr(i, 1)) = d(crr(i, 1)) & "," & crr(i, 2)
Next
ReDim drr(1 To d.Count, 1 To 4)
a = d.keys: b = d.items
For i = 0 To d.Count - 1
drr(i + 1, 1) = a(i)
x = Split(b(i), ",")
For j = 0 To UBound(x)
drr(i + 1, j + 2) = x(j)
Next
Next
Range("a27").Resize(UBound(drr), UBound(drr, 2)) = drr

复制代码

840205910 · 发表于 2012-12-7 15:52

有的，用字典或数组。
如3楼所说，你的数据不规范，直接给你写VBA代码，就解决这三个表，是杀鸡用牛刀！

如果是电子文档，可以一个工作表对应一家公司，然后汇总；也可以在同一个工作表里按同一个攻规律排版各公司的表。

dsmch · 发表于 2012-12-7 15:52

附件…………

840205910 · 发表于 2012-12-7 16:40

Sub 汇总()
Set d = CreateObject("Scripting.Dictionary")
arr = Range("a13:h22")
For j = 3 To UBound(arr)
  For i = 1 To 7 Step 3
  d(Cells(13, i) & arr(j, i)) = arr(j, i + 1)
  Next
Next
For m = 2 To 4
For n = 27 To 34
Cells(n, m) = d(Cells(26, m) & Cells(n, 1))
Next
Next
End Sub

840205910 · 发表于 2012-12-7 16:42

数据汇总问题.zip (13.22 KB, 下载次数: 18)

zorow · 发表于 2012-12-7 16:49

十分感谢各位的解答

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