在EXCEL中用宏合并同类项,并数量相加?如下图,A是供应商的名称,B是规格,C是数量,D是单位.如何合并成下图?求高手做个宏,ABCD60120816012071306032306052303011204022303011204012306052合
更新时间：2024-04-24 12:23:36
1人问答
问题描述：
在EXCEL中用宏合并同类项,并数量相加?
如下图,A是供应商的名称,B是规格,C是数量,D是单位.如何合并成下图?求高手做个宏,
ABCD
6012081
6012071
306032
306052
303011
204022
303011
204012
306052
合并后成这样
ABCD
60120151
3060132
203021
4012
合并后B列40是3.
郭增军回答：
Sub汇总()
Dimarr,brr,crr,r%,rr%
r=[A65536].End(3).Row
arr=Range("a2:d"&r)
Range("a2:d"&r).ClearContents
t=1
Fori=1ToUBound(arr)
IfTrim(arr(i,1))""Then
y=Trim(arr(i,1))&Trim(arr(i,2))&Trim(arr(i,4))
brr=arr(i,3)
Forj=i+1ToUBound(arr)
yy=Trim(arr(j,1))&Trim(arr(j,2))&Trim(arr(j,4))
Ify=yyThen
brr=brr+arr(j,3)
arr(j,1)=""
EndIf
Next
t=t+1
arr(i,3)=brr
Range("a"&t).Resize(1,UBound(arr,2))=Application.Index(arr,i,0)
brr=""
EndIf
Next
EndSub
提供一个不使用字典汇总数据的方法,希望能满足你的要求
其它推荐
其它推荐
最新更新
精品分类
优秀其它推荐
热门其它
联系方式：