跟我学JavaScript in WPS

ctp_119

pc087 发表于 2022-6-2 08:59
单元格区域数据去重

方法好，简洁，，，值得学习！！！

pc087

ctp_119 发表于 2022-5-29 19:49
接着上面，继续数组方法

           字符串转数组：

补充，在js里字符串转数组有种特别的写法 var arr = [..."abcd"],这种三点解构的方法，在js里应用的很广，也很有趣

pc087

在js里，我个人觉得Map更贴近vba的字典

pc087

pc087 发表于 2022-6-2 08:59
单元格区域数据去重

jsa里，同一个问题可以有多种解法，比vba数组自由多了

利用数组includes去重

ctp_119

//多工作簿多工作表汇总到一表中
function hz(){
        var path=ThisWorkbook.Path;      //把当前工作簿的路径赋值给变量path
        var myn=ThisWorkbook.Name;        //把当前工作簿的名字赋值给变量myn
        var sht=ActiveSheet;            //把当前工作表对象赋值给变量sht
        var str=path+"\\*.et";         //*号是通配符，表示扩展名为et的文件的完整路径
        var fn=Dir(str);               //用Dir函数得到该路径下的第一个et类型的文件名
        while(fn!=myn){             //不等于汇总工作簿就执行下列代码
                var wb=Workbooks.Open(path+"\\"+fn);       //打开fn工作簿，并把fn工作簿对象赋值给wb
                for (var sh of wb.Sheets){                //迭代fn工作簿中的工作表
                        var i=sh.Range("A65536").End(xlUp).Row;      //工作表中最大行号
                        var brr=new Array(i-1).fill(myn+"+"+sh.Name);      //把工作簿名称和工作表名称，填充一个数组，以便添加一个字段，说明数据来源
                        var arr=sh.Range("A2:p"+i).Value2;          //把单元格区域赋值给数组
                        sht.Range("A"+(sht.Range("A65536").End(xlUp).Row+1)).Resize(arr.length,16).Value2=arr;           //写入工作表
                        sht.Range("q"+(sht.Range("Q65536").End(xlUp).Row+1)).Resize(brr.length,1).Value2=brr;
                }
                wb.Close(false);     //关闭工作簿
                try{             //捕捉错误
                        fn=Dir();        //继续遍历下一个工作簿，直到最后空字符串
                }
                catch(err){break}      //发生错误，就跳出while循环
        }
}

pc087

JSA因为数组有丰富的方法，所以合并表格变得方便很多

ctp_119

           在此感谢pc087坛友，他提供的flat()方法，后来我查资料，看书，深度学习了一下。现总结如下：
           flat() 方法会按照一个可指定的深度递归遍历数组，并将所有元素与遍历到的子数组中的元素合并为一个新数组返回。
            var brr=arr.flat(depth);        //参数depth递归几层，默认值是1
            

           注意：arr始终都没有发生改变！！！

ctp_119

              变量递增（++）或递减（--）运算

              为什么会突然想到讲这个知识点，是有情结在里面的。想当年读书的时候，学习vc++的时候，硬是没有搞懂，不知道变量通过加加减减后的值。若干年后，自学却搞懂了！！！当年也不知道如何去调试代码，读的是死书。如今想想，可笑至极！！！
             注意，是变量的递增或递减，不是常量，所以2++或++2都是错误的。
            //变量的自增和自减运算
function test(){
        var i=1
        Console.log(i);     //i=1
        Debug.Print(i++);    //后++表示运行完这条语句后，表里i会增加1，这条语句的时候，还是变量的值，所以输出1
        Console.log(i);       //i=2
        Debug.Print(++i);     //前++表示变量先自增1后再运行该语句，所以输出3
        Console.log(i);
}

zxmlysxl

pc087 发表于 2022-6-2 08:59
单元格区域数据去重

这个是真厉害了，小白被震撼到了

ctp_119

              多工作薄多工作表提取数据的另外一种方法

              本方法采用的是filesearch方法：
                     
     
                可以比较学习一下。