JS问答练习帖

我的城市你来过

问题Q：二维表格转一维表格?
举例1：二维表格转一维表格?

function text(){
        var ss=1;
        for (var rng of Range("b2:e5")){
                        var sth=[].concat(
                                                             Cells(rng.Row,1).Value(),
                                                             Cells(1,rng.Column).Value(),
                                                            rng.Value()
                                              );
                Range("g1:i1").Offset(ss++).Value2=sth;
        }
}

今铭昔

我的城市你来过 发表于 2024-8-19 19:57
问题Q：表格颜色清除、2列数据和为0删除整行?
举例1：复制一份表格，进行问题Q操作?(会报错，要多运行几次 ...

我的城市你来过

问题Q：数据区域去重合并?
举例1：数据区域去重合并?

function text(){
        var arr=Range("f4:k14").Value();
        var arr1=arr.map(x=>[...new Set(x)]).flat();
        var arr2=[...new Set([...arr1])];
        Range("l4").Resize(arr2.length,1).Value2=arr2.sort((a,b)=>a-b).join("/")
}

我的城市你来过

问题Q：数据整理?
举例1：将B列带标点符号的数据，转化为行展示?

function text(){
        var lst=Range("a99").End(xlUp).Row;
        var sss=0;
        var arry=Range("a1:d"+lst).Value()
                for (var arr of arry){
                        var newarr=String(arr[1]).split("、").map(v=>[arr[0],v,arr[2],arr[3]]);
                                for (st of newarr){
                                        Range("g1:j1").Offset(sss++).Value2=st
                                }
                }
}

Again123456

我的城市你来过 发表于 2024-8-24 08:42
问题Q：数据区域去重合并?
举例1：数据区域去重合并?

let res = [...new Set(rng.Value().flat())].sort((a,b)=>a-b)
rng.Cells(1).Offset(0,rng.Columns.Count).Resize(res.length,1).Value2 = res.map(v=>[v])

我的城市你来过

问题Q：一数列提取所需要内容，偏移1列填入？
举例1：一数列提取所需要内容，偏移1列填入？

function text(){
                 Range("b2:b99").Clear()
             var arr1=Array.from(Range("a2:a10").Value(),x=>x[0])
             for (var s=0;s<arr1.length;s++){
                       var arr2=arr1[s].match(/(?=\d)[0-9一-龟]+/)
                           Range("b2").Offset(s,0).Value2=arr2
             }
}

我的城市你来过

问题Q：去除空格二维表转一维表?
举例1：去除空格二维表转一维表?

function text(){
        Range("g1:i999").Clear()
        Range("g1:i1").Value2=["合骏","线号","数量"];
        var ss=1;
        for (var rng of Range("b2:d25")){
                 if (rng.Value()>0){
                          var sth=[].concat(
                                                                 Cells(rng.Row,1).Value(),
                                                         Cells(1,rng.Column).Value(),
                                                rng.Value());
                Range("g1:i1").Offset(ss++).Value2=sth;
                 }
        }
}

我的城市你来过

问题Q：近似匹配取数？
举例1：近似匹配取数？

function text(){
        for (var snt of Range("c7:d10").Value()){
                 if (snt[0].match("路卡工艺品")){
                         Range("k1").Value2=snt[1]
                 }
        }
}

我的城市你来过

问题Q：提取单元格数字?
举例2：提取单元格数字?

function text(){
        var lst=Range("a999").End(xlUp).Row
                Range("b2:b"+lst).Clear()
        var st=Array.from(Range("a2:a"+lst).Value()).flat()
               for (var s=0;s<st.length;s++){
                        var sms=st[s].match(/\d+/)
                    Range("b2").Offset(s,0).Value2=sms
        }
}

我的城市你来过

问题Q：提取单元格数字？
举例3：提取单元格数字？

function text(){
        Range("b1:b99").Clear()
        var lst=Range("a99").End(xlUp).Row
        for (var s=2;s<=lst;s++){
                      var sll=Range("a"+s).Value().match(/\d+/)
                                    Range("b"+s).Value2=sll
        }
}