[已解决]数据合并怎么弄？

spwsq

各位大师小弟想把上面表格中的同名的卡号合并，C列的数据求和，怎么办呢，急用！！！！谢谢

最佳答案

月排行榜 / 总排行榜

高

2015-9-5 12:20

给你做了个合并计算的例子。
1、在空白处选取一个单元格（合并计算的结果将出现在这里）
2、点菜单：数据-合并计算,弹出合并计算窗口
3、默认的函数或计算方式，选“求和”
4、引用位置，选列表区域，然后在“标签位置”那里勾选”最左列“
5、确定

跳转到最佳答案楼层

蝶·舞

数据合并或透视

七彩屋

1. Sub qcw()
   
2.     Dim i%, j%, arr, d As Object
   
3.     arr = [a1].CurrentRegion
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     For i = 1 To UBound(arr)
   
6.         d(arr(i, 1) & vbTab & arr(i, 2)) = d(arr(i, 1) & vbTab & arr(i, 2)) + arr(i, 3)
   
7.     Next
   
8.         Columns("A:C").ClearContents
   
9.     [a1].Resize(d.Count) = WorksheetFunction.Transpose(d.keys)
   
10.     [c1].Resize(d.Count) = WorksheetFunction.Transpose(d.items)
    
11.     [a:a].TextToColumns
    
12. End Sub

复制代码

spwsq

我看不懂呀，怎么弄

spwsq

有函数命令不行吗

高

给你做了个合并计算的例子。
1、在空白处选取一个单元格（合并计算的结果将出现在这里）
2、点菜单：数据-合并计算,弹出合并计算窗口
3、默认的函数或计算方式，选“求和”
4、引用位置，选列表区域，然后在“标签位置”那里勾选”最左列“
5、确定

七彩屋

spwsq 发表于 2015-9-5 09:28
我看不懂呀，怎么弄

工作簿1.rar (9.47 KB, 下载次数: 6)

2015-9-5 14:26 上传

点击文件名下载附件

spwsq

高 发表于 2015-9-5 12:20
给你做了个合并计算的例子。
1、在空白处选取一个单元格（合并计算的结果将出现在这里）
2、点菜单：数据 ...

可这样的话名字没有了呀，我还需要名字的，帮帮忙！我急死了都

高

在第4步时，引用位置，选列表区域，这里的列表区域从姓名那列开始选择，这样最左列就是姓名了。但是没有了编号，不知道行不行。如果不行，我现给你说公式操作的方法

wade_tan

=SUMIF(H9:H12,K9,J9:J12)
試一下這個公式