VBA材料品号条件相同的预计用量累计数量放在卷线汇总列并居中

小曹369

各老师，VBA材料品号条件相同的预计用量累计数量放在卷线汇总列并居中。谢谢

yu3924

既然发到jsa板块了，参与一下，写法有点取巧，如果后续有重复的订单号就不对了，严谨点应该用下面vba的写法

yu3924

vba写法

1. Sub test()
   
2.     Dim arr(), Sum, Start
   
3.     arr = Range("a1").CurrentRegion.Value
   
4.     Sum = arr(2, 11)
   
5.     Start = 2
   
6.     For i = 3 To UBound(arr)
   
7.         If arr(i, 6) <> arr(i - 1, 6) Then
   
8.             If i = UBound(arr) Then Cells(i, 14) = Cells(i, 11)
   
9.             Range(Cells(Start, 14), Cells(i - 1, 14)).Merge
   
10.             Range(Cells(Start, 14), Cells(i - 1, 14)) = Sum
    
11.             Sum = arr(i, 11)
    
12.             Start = i
    
13.         Else
    
14.             Sum = Sum + arr(i, 11)
    
15.             If i = UBound(arr) Then
    
16.                 Range(Cells(Start, 14), Cells(i, 14)).Merge
    
17.                 Range(Cells(Start, 14), Cells(i, 14)) = Sum
    
18.             End If
    
19.         End If
    
20.     Next
    
21. End Sub
    

复制代码

LIUZHU

居中这些设置可以提前完成，不考虑这个代码的话，排序、求和、合并

cjc209

自定义函数完成

LIUZHU

yu3924 发表于 2024-12-24 23:31
既然发到jsa板块了，参与一下，写法有点取巧，如果后续有重复的订单号就不对了，严谨点应该用下面vba的写法

new Set本来就是一个可迭代对象，不需要再转成数组在forEach了，new Set本来可以forEach

yu3924

LIUZHU 发表于 2024-12-26 10:47
new Set本来就是一个可迭代对象，不需要再转成数组在forEach了，new Set本来可以forEach

是诶 你不说我还真没反应过来set本身有这个方法的

Again123456

测试1224.rar (9.17 KB, 下载次数: 2)

2024-12-26 18:21 上传

点击文件名下载附件

lizhipei78

spaghetti8

js版块太冷清了，以至于我现在发帖的欲望的不足了。

这题搞个另类的解法。代码见图。