用VBA代码实现相同数据对应2列数据连接在一起

gwjkkkkk · 发表于 2023-4-1 15:42

888来来来发表于 2023-4-1 13:08
感谢！相同日期对应的数量可以加在一起吗
另外把结果反馈到交期工作表E列和F列另外交期2工作表也 ...

请参考。。。。

xunanming · 发表于 2023-4-1 16:00

本帖最后由 xunanming 于 2023-4-1 16:29 编辑

参与练手..............................................

sdytsxd991122 · 发表于 2023-4-1 18:40

888来来来 · 发表于 2023-4-1 19:39

本帖最后由 888来来来于 2023-4-1 21:46 编辑

准提部林发表于 2023-4-1 14:36
同日期累計//加一列數量合計

感谢你的回答！解决了数据累加的问题！你的答案还增加了1列，说不定以后还能用到。
有个问题就是，结果列第2列，不是用,号隔开，用的是+号隔开的。
超级简单的代码，碰运气我还能修改，因为我看到了+号，修改了一下解决了这个问题！
015-00503-21 22/09/20,25000+23/01/03,40000+23/01/17,77500
另外1个问题，如果我想要的结果标题是这3个名称,如果我自己想定义这这3列标题行名称
电子编号，交期，数量汇总
代码怎么修改呢

888来来来 · 发表于 2023-4-1 19:50

xunanming 发表于 2023-4-1 16:00
参与练手..............................................

感谢你回答！数据累加的问题解决了
如何增加一下得到结果行E列和F列名称 E列：电子编号，F列：交期

xunanming · 发表于 2023-4-1 20:02

OK！！！！！！！！！！！！！！！！！！！！！！！！

888来来来 · 发表于 2023-4-1 20:11

本帖最后由 888来来来于 2023-4-1 23:11 编辑

xunanming 发表于 2023-4-1 20:02
OK！！！！！！！！！！！！！！！！！！！！！！！！

是想要的结果但是我需要工作表1和工作表2都能实现这个功能
但是工作表2 我插入了按钮得到汇总的数量都乘以2了
我查看了一下你是把2个工作的数据加到一起计算的我需要2个工作表是独立 1个模块通用 2个工作表

准提部林 · 发表于 2023-4-1 20:38

888来来来发表于 2023-4-1 19:39
感谢你的回答！解决了数据累加的问题！你的答案还增加了1列，说不定以后还能用到。
有个问题就是，结果 ...

1) 把"+"直接改逗號
2) 3列标题行名称...
arr(1,1)="电子编号"
arr(1,2)="交期"
arr(1,3)="数量汇总"
或 [f1].resize(1,3)=array("数量汇总,"交期","数量汇总")

xunanming · 发表于 2023-4-2 00:16

888来来来发表于 2023-4-1 20:11
是想要的结果但是我需要工作表1和工作表2都能实现这个功能
但是工作表2 我插入了按钮得到汇总的数 ...

你在这句 .Range("e1").Resize(UBound(brr), 2) = brr之后,加上
d.RemoveAll
这句就可以了,昨天没注意这点.

888来来来 · 发表于 2023-4-2 11:02

xunanming 发表于 2023-4-2 00:16
你在这句 .Range("e1").Resize(UBound(brr), 2) = brr之后,加上
d.RemoveAll
这句就可以了, ...

解决了2个工作表累加的问题但是我执行工作表1的时候工作表2也执行代码了
工作表1和工作表2可以独立执行代码吗我工作表2也插入了1个按钮

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

[求助] 用VBA代码实现相同数据对应2列数据连接在一起

评分