JS宏代码求助

xiwu815

WPS表格中的用JS宏代码运行，已上传附件，求大神指导！

xd3210

我的城市你来过

function text(){
         var lst=Range("a999").End(xlUp).Row
         var arc=Range("c2:c"+lst).Value().flat();
         var nec=[...new Set([...arc])].flat();
                   for (var k=0;k<nec.length;k++){
                              var arr=[]
                              for (var r=2;r<=lst;r++){
                                              if (Range("c"+r).Value()==nec[k] && Range("b"+r).Value()=="是"){
                                   var arr=[...arr,Range("a"+r).Value()]
                                   Range("d"+r).Value2=arr.join("")
                                              }
                                   }
                   }
}

我的城市你来过

=IF($B2="是",CONCAT(FILTER($A$2:$A$22,($C$2:$C$22=$C2)*($B$2:$B$22="是"))),"")

grf1973

练习一下。。。。

sunya_0529

我的城市你来过 发表于 2024-9-8 11:02
=IF($B2="是",CONCAT(FILTER($A$2:$A$22,($C$2:$C$22=$C2)*($B$2:$B$22="是"))),"")

JSA练习一下——

1. function 填写组合数据() {
   
2.     with (Range('A1').CurrentRegion) {
   
3.         const obj = Value2.reduce((a, [A, B, C]) => (a[C] ??= new Set(), B == '是' ? a[C].add(A) : null, a), {});
   
4.         Value2 = Value2.map((r, i) => r.map((v, j) => i && j == 3 ? (r[1] == '是' ? [...obj[r[2]]].join('') : '') : v));
   
5.     }
   
6. }

复制代码

Again123456

LIUZHU

参与下

xiwu815

谢谢大家的帮忙

守候_CJ

示例代码：

1. function teset(){
   
2.         const d = {}
   
3.         let k
   
4.         let v
   
5.         let v1
   
6.         const sht = ThisWorkbook.Worksheets.Item("Sheet1")
   
7.         let maxRow = sht.UsedRange.Row + sht.UsedRange.Rows.Count - 1
   
8.        
   
9.         for (let i=2;i<=maxRow;i++){
   
10.                 if (sht.Range("B"+i.toString()).Value2 === "是"){
    
11.                         k = sht.Range("G"+i.toString()).Value2
    
12.                         if ((k in d)===false){
    
13.                                 d[k] = {}
    
14.                         }
    
15.                         v = sht.Range("A"+i.toString()).Value2
    
16.                         if ((v in d[k])===false){
    
17.                                 d[k][v] = true
    
18.                         }
    
19.                 }
    
20.         }
    
21.        
    
22.        
    
23.         for (let i=2;i<=maxRow;i++){
    
24.                 if (sht.Range("B"+i.toString()).Value2 === "是"){
    
25.                         k = sht.Range("G"+i.toString()).Value2
    
26.                         if (k in d){
    
27.                                 v1 = ""
    
28.                                 for (v in d[k]){
    
29.                                         v1+=v
    
30.                                 }
    
31.                                 sht.Range("D"+i.toString()).Value2 = v1
    
32.                         }                       
    
33.                 }else{
    
34.                         sht.Range("D"+i.toString()).Value2 = ""
    
35.                 }
    
36.         }
    
37.        
    
38.         MsgBox("完成！")
    
39. }

复制代码