求汇总网点名

柔子

新建 Microsoft Excel 工作表.zip (2.72 KB, 下载次数: 14)

2012-6-5 17:47 上传

点击文件名下载附件
求汇总

想问下如何把表1,表2中的各分公司的各网点汇总到汇总表中,要求是同一个公司的同一个网点名相同的,出次多次的,要汇总表表只显示一次谢谢

zhoujunah

用排重的方法试试，也许可以得到你想要的结果

cjainwei

合并计算这功能试一下。

柔子

不会呀,可以说清楚点吗?谢谢

windimi007

柔子 发表于 2012-6-6 09:31
不会呀,可以说清楚点吗?谢谢

先来一个sql解法：

1. SELECT 分公司名,网点名,SUM(数量) AS 合计数量 FROM
   
2. (SELECT * FROM [表1$]
   
3. UNION ALL
   
4. SELECT * FROM [表2$])
   
5. GROUP BY 分公司名,网点名

复制代码

windimi007

柔子 发表于 2012-6-6 09:31
不会呀,可以说清楚点吗?谢谢

再来个vba的，请测试！

1. Sub test()
   
2.     Dim d As Object
   
3.     Dim sh As Worksheet
   
4.     Dim arr, brr(1 To 10000, 1 To 3)
   
5.     Dim i As Long, j As Long, rw As Long
   
6.     Dim sr As String
   
7.     Set d = CreateObject("scripting.dictionary")
   
8.     For Each sh In Worksheets
   
9.         If sh.Name Like "表*" Then
   
10.             arr = sh.Cells(1, 1).CurrentRegion
    
11.             For i = 2 To UBound(arr)
    
12.                 sr = arr(i, 1) & vbTab & arr(i, 2)
    
13.                 If d.exists(sr) Then
    
14.                     rw = d(sr)
    
15.                     brr(rw, 3) = brr(rw, 3) + arr(i, 3)
    
16.                 Else
    
17.                     j = j + 1
    
18.                     d.Add sr, j
    
19.                     brr(j, 1) = arr(i, 1)
    
20.                     brr(j, 2) = arr(i, 2)
    
21.                     brr(j, 3) = arr(i, 3)
    
22.                 End If
    
23.             Next i
    
24.         End If
    
25.     Next sh
    
26.     With Sheets("汇总")
    
27.         .Cells(2, 1).Resize(Rows.Count - 1, 3).ClearContents
    
28.         .Cells(2, 1).Resize(j, 3) = brr
    
29.         .Cells.EntireColumn.AutoFit
    
30.     End With
    
31.     Set d = Nothing
    
32. End Sub
    

复制代码

柔子

我的神呀,这么复杂,那个动画很模糊看不清,加上我不是那个版 的EXCEL{:021:}

柔子

动画视频看到了,但是那个先来一个sql解法：
是什么懂也不知怎么操作