根据姓名合并汇总多列数据

APPLE123

将姓名相同的人员对应月份的“数量”和“收费”项目合并汇总。合并的列数有点多，请教大神如何使用VBA进行数据合并汇总，谢谢！
模拟结果详见sheet2

不知道为什么

附件 参考。。。。。。。

吴中泉

吴中泉

吴中泉 发表于 2023-5-26 11:28

附件附后 根据姓名合并汇总多列数据.zip (23.66 KB, 下载次数: 12)

2023-5-26 11:31 上传

点击文件名下载附件

APPLE123

不知道为什么 发表于 2023-5-26 11:16
附件 参考。。。。。。。

厉害！几分钟解决问题！
谢谢老师的帮助！
请教一下，如何理解这一句代码：、
x = x + 1: dic(arr(i, 2)) = x: brr(x, 1) = x - 1
为何，先+1，后又-1
麻烦老师了，谢谢！

咔咔乱坠

楼主这种简单的需求可以公式的
例如在Sheet2中C2单元格，右拉，下拉

1. =SUMPRODUCT(($B2=Sheet1!$B$2:$B$31)*Sheet1!C$2:C$31)

复制代码

limonet

代码审核中。

不知道为什么

APPLE123 发表于 2023-5-26 11:37
厉害！几分钟解决问题！
谢谢老师的帮助！
请教一下，如何理解这一句代码：、

第一行是标题，记录序号时 x就是2了 所以减掉1

吴中泉

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("adodb.connection")
    Cn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
    Field = "sum([1月数量]),sum([1月收费]),sum([2月数量]),sum([2月收费]),sum([3月数量]),sum([3月收费]),sum([4月数量]),sum([4月收费]),sum([5月数量]),sum([5月收费]),sum([6月数量]),sum([6月收费]),sum([7月数量]),sum([7月收费]),sum([8月数量]),sum([8月收费]),sum([9月数量]),sum([9月收费]),sum([10月数量]),sum([10月收费]),sum([11月数量]),sum([11月收费]),sum([12月数量]),sum([12月收费]),sum([合计数量]),sum([合计收费])"
    StrSQL = "select 姓名," & Field & " from [sheet1$] group by 姓名"
    Range("B2").CopyFromRecordset Cn.Execute(StrSQL)
End Sub