JS问答练习帖

我的城市你来过

问题Q：数列单元格内容扩展指定次数？
举例1：数列单元格内容扩展指定次数？

function text(){
         Range("c:c").Clear()
         var lst=Range("b999").End(xlUp).Row
     var brr=[];
         for (var arr of Range("a2:b"+lst).Value()){
                  for (var i=1;i<=arr[1];i++){
                             brr=[...brr,arr[0]]
                  for (var a=0;a<brr.length;a++){
                       Range("c1").Offset(a+1).Value2=brr[a]
                  }
                  }
         }
}

我的城市你来过

问题Q：获取AB列对应单元格相同字符个数？
举例1：获取AB列对应单元格相同字符个数？

function text(){
        Range("c:c").Clear();
        var lst=Range("a999").End(xlUp).Row;
                for (var s=2;s<=lst;s++){
                         var ar1=Range("a"+s).Value()
                         var ar2=Array.from(Range("b"+s).Value())
                         var brr=[]
                for (var v of ar2){
                         var rng=new RegExp(v,"g")
                         var brr=[...brr,Number(rng.test(ar1))]
                         Range("c"+s).Value2=eval(brr.join("+"))
                }
        }
}

我的城市你来过

问题Q：BC列条件获取A列值并显示D列？
举例1：BC列条件获取A列值并显示D列？(未达到附件目标效果)

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=nec[k]+"："+arr.join("")
                                              }
                                   }
                   }
}

我的城市你来过

问题Q：改变列时间对象显示格式？
举例1：改变列时间对象显示格式？

/*function text(){
                var arr=Array.from(Range("a2:a6").valueOf()).flat()
                for (var s=0;s<arr.length;s++){
                         var brr=arr[s].toLocaleDateString()
                         Range("e2").Offset(s).Value2=brr
                }
}*/

我的城市你来过

问题Q：数列中提取字符串的偶数?
举例1：数列A提取字符串中的偶数?

我的城市你来过

问题Q：分档获取匹配数据？
举例1：分档获取匹配数据？

Again123456

我的城市你来过 发表于 2024-9-25 14:38
问题Q：分档获取匹配数据？
举例1：分档获取匹配数据？

记得铭佬写过一个代码，挺好的，大概是这样的

今铭昔

我的城市你来过 发表于 2024-9-25 09:37
问题Q：数列中提取字符串的偶数?
举例1：数列A提取字符串中的偶数?

xd3210

今铭昔 发表于 2024-9-29 07:58

高级！收藏学习

我的城市你来过

问题Q：单元格汇总内容拆分？
举例1：单元格汇总内容拆分？