如何用vba数组和字典模拟E列和F列公式

xd3210

今铭昔 发表于 2024-1-29 14:10

谢谢指点！

Again123456

......

Again123456

1. function test(){
   
2.         let arr = Range("a1:d" + Cells(Rows.Count,1).End(xlUp).Row).Value2
   
3.         let d = {}
   
4.         arr.forEach((v,i) =>{
   
5.                 let k = ""+ v[0] + v[1] + v[2]
   
6.                  d[k] = d[k] ? [d[k][0] +1 , d[k][1] + v[3]] : [1,v[3]];
   
7.                 [arr[i][4] ,arr[i][5]] = [d[k][0] ,d[k][1]]
   
8.         })
   
9.         Range("h1").CurrentRegion.ClearContents()
   
10.         Range("h1").Resize(arr.length,arr[0].length).Value2 = arr
    
11. }

复制代码

Again123456

今铭昔 发表于 2024-1-29 13:52

这个和我的解法一样，不过你这个用数组做字典

perfect131

vba 写法也是 三元表达式(a?b:c)，不需要字典嵌套

perfect131

LIUZHU 发表于 2024-1-15 10:41
WPS替代Office是早晚的事，国产软件替代Windows也是早晚的事，国产软件可没有什么VBA，尽早适应JSA吧。

替代 那是不可能的 JSA 连 QueryClose 都没补
但 JS语言还是要学的
学会vba你就学会了JSA的属性，对象，学会JS 你就能写自己的处理算法

perfect131

vba 也没有那么复杂

perfect131

2222222222

perfect131

字典记录行 方法

yangqianming

Again123456 发表于 2024-2-5 23:38

这里好像有计数和求和两个字段名未解决，let k = ""+ v[0] + v[1] + v[2]，等号后面的空是啥意思？能给讲一下吗？