可删帖

zllyyz

可删帖 已自行找到方式

wxxydl

自填区域最后单价列  是什么意思？

wxxydl

给你做了前半段  。。。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.1.26
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     Application.ScreenUpdating = False
   
4.     Set sh = ThisWorkbook.Sheets("Sheet1")
   
5.     For Each sht In Sheets
   
6.         If sht.Name <> sh.Name Then
   
7.             If sht.UsedRange.Count > 5 Then
   
8.                 With sht
   
9.                     arr = .UsedRange
   
10.                     For j = 2 To UBound(arr, 2)
    
11.                         If arr(8, j) <> Empty Then
    
12.                             s = .Name: ss = Month(arr(8, j))
    
13.                             If Not d.exists(s) Then Set d(s) = CreateObject("Scripting.Dictionary")
    
14.                             d(s)(ss) = d(s)(ss) + arr(7, j)
    
15.                         End If
    
16.                     Next
    
17.                 End With
    
18.             End If
    
19.         End If
    
20.     Next
    
21.     With sh
    
22.         .[h5:u10000] = ""
    
23.         .[y5:ak10000] = ""
    
24.         .[h5].Resize(d.Count, 1) = Application.Transpose(d.keys)
    
25.         arr = .Range("h4:u" & d.Count + 4)
    
26.         For i = 2 To UBound(arr)
    
27.             Sum = 0
    
28.             For j = 2 To UBound(arr, 2) - 1
    
29.                 s = arr(i, 1)
    
30.                 If d.exists(s) Then
    
31.                     arr(i, j) = d(s)(Val(arr(1, j)))
    
32.                     Sum = Sum + arr(i, j)
    
33.                 End If
    
34.             Next
    
35.             arr(i, UBound(arr, 2)) = Sum
    
36.         Next
    
37.         .Range("h4:u" & d.Count + 4) = arr
    
38.         .Range("i5:u" & d.Count + 4).Copy .Range("y5")
    
39.         brr = .Range("v4:ak" & d.Count + 4)
    
40.         For i = 2 To UBound(brr)
    
41.             num = brr(i, 1) + brr(i, 2) + brr(i, 3)
    
42.             For j = 4 To UBound(brr, 2)
    
43.                 brr(i, j) = brr(i, j) * num
    
44.             Next
    
45.         Next
    
46.         .Range("v4:ak" & d.Count + 4) = brr
    
47.         ActiveWindow.DisplayZeros = False
    
48.     End With
    
49.     Set d = Nothing
    
50.     Application.ScreenUpdating = True
    
51.     MsgBox "OK！"
    
52. End Sub
    

复制代码

ykcbf1100

附件供参考。。。

zllyyz

wxxydl 发表于 2024-1-26 20:26
给你做了前半段  。。。。。

后半段才有意义...最后列就是 单元格区域最后有单价的所在

zllyyz

ykcbf1100 发表于 2024-1-26 20:28
附件供参考。。。

测试后 单价区域如果有并列的数字 数据就*sum(单价了)，是否有其他方式 用最后的单价*数量？
如果不使用字典的话更好了

ykcbf1100

zllyyz 发表于 2024-1-26 21:07
测试后 单价区域如果有并列的数字 数据就*sum(单价了)，是否有其他方式 用最后的单价*数量？
如果不使用 ...

首先，你在求助时并没有说怎么求和，我是根据你的效果图来做的。
其次，你也没说不能用字典，为啥事后才来说。

zllyyz

ykcbf1100 发表于 2024-1-26 21:11
首先，你在求助时并没有说怎么求和，我是根据你的效果图来做的。
其次，你也没说不能用字典，为啥事后才 ...

还是表达的问题，哈哈哈
测了才发现，能简便就简便对我们新手就比较友好了，哈哈哈
辛苦老师了   

cjc209

function test(){
        var arr=maxArray_Z("r5:u5");
        var 单价=maxArray_Z("v5:x5").map(x =>x.filter(y => ! isEmpty_Z(y)));
        arr=arr.map((r,i,brr)=>r.map((x,j)=> brr[i][j]=x*单价[i].slice(-1)));
        arr.toRange_Z("ah5")
}