JS问答练习帖

我的城市你来过

问题Q：1行标题如何(去除空值)转化为1列值?
举例1：1行标题如何(去除空值)转化为1列值?

function text(){
        var arr1=Range("a1:f1").Value()[0];
        var arr2=[],num=0;
        for (var st in arr1){
                if (arr1[st]!=null){
                arr2[num]=arr1[st];num++                       
                }
        }        Range("l1").Resize(arr2.length,1).Value2=null
                Range("l1").Resize(arr2.length,1).Value2=WorksheetFunction.Transpose(arr2)
}

今铭昔

1. function test07(){
   
2.         _26 : {
   
3.                 let file = Dir(`${ThisWorkbook.Path}/*.*`)
   
4.                 while(file){        // 空字符串转布尔值时为false
   
5.                         console.log(file)
   
6.                         file = Dir()
   
7.                 }
   
8.                 alert("文件已检索完毕")
   
9.         }
   
10.         _27 : {
    
11.                 // 如果Array.form第一参是一个数组对象，写得就哆嗦了，直接调用数组的flat方法就可以了
    
12.                 let arr1 = Range("a1",Range("a999").End(xlUp)).Value().flat()        // 单列转一维数组
    
13.         let arr2 = Range("a1").Resize(1,5).Value()[0]                                        // 直接就是一维数组
    
14.         }
    
15.         _28 : {
    
16.                 var arr=[85,86,84,89,95,97,92];
    
17.                 var newArr = arr.filter(n => n >= 90)        // 直接用filter
    
18.         Range("e1").Resize(1,newArr.length).Value2 = newArr
    
19.         }
    
20. }

复制代码

我的城市你来过

问题Q：单元格字符串去重合并?
举例1：将"231821258529"去重合并?

/*function text(){
        var rng=String(Range("a1").Value());brr1=[]
                var arr1=rng.match(/\d/g);
                        var brr1=arr1.filter((x,st,self)=>self.indexOf(x)==st);
                                Range("b1").Value2=`${brr1.join("")}`
}*/

我的城市你来过

问题Q：获取每一行最大值?
举例1：获取每一行最大值?

/*function text(){
        var lastrow=Range("g999").End(xlUp).Row;
        var arr1=Array.from(Range("b2:g"+lastrow).Value());
        var brr1=[];
        for (var s=0;s<lastrow;s++){
                try{
                        var at=WorksheetFunction.Max(arr1[s]);
                        var brr1=[...brr1,at]
                }catch(err){
                        return;
                }
                        Range("i2:i"+lastrow).Delete();
                        Range("i2:i"+lastrow).Value2=WorksheetFunction.Transpose(brr1)
        }
}*/

我的城市你来过

问题Q：map方法迭代?
举例1：0-9序列与0-8序列相乘显示?

function text(){
        var arr1=[...new Array(4).keys()];
        var arr2=[...new Array(3).keys()];
        var arr3=arr1.map(x=>arr2.map(y=>`${x}×${y}=${x*y}`));
        var arr4=arr3.flat();
        console.log(`${arr3}`)
}

我的城市你来过

问题Q：数据匹配引用同行数据?
举例1：根据A列序号，检索数据源区域所需结果?

/*function text(){
        var fst=WorksheetFunction;
        var lst=Range("a99").End(xlUp).Row
        for (var sss=1;sss<=lst;sss++){
                var arr0=Array.from(Range("a"+sss).Value());
                var arr1=Array.from(Range("n1:n10").Value(),x=>x[0]);
                var brr=[]
                for (var snt=0;snt<arr1.length;snt++){
                         var arr2=Array.from(arr1,x=>x==arr0[snt]);
                         try{
                          var n=fst.Match(true,arr2,0)
                         var brr=[...brr,Range(`o${n}:q${n}`).Value()[0]]                                
                         }catch(err){
                                 break
                         }
        }Range("a"+sss).Offset(0,1).Value2=`${brr.join("/")}`
        }
}*/

我的城市你来过

问题Q：去除单元格汉字，保留数字符号?
举例1：去除单元格汉字，保留数字符号?

function text(){
        let st=Range("a1").Value();
        let rn=st.split(/[一-龟]+/gs);
                Range("b1").Value2=(`${rn.join("")}`)
}

我的城市你来过

问题Q：正则提取中英文字符串?
举例1：提取中英文字符串?

function text(){
        var fst=WorksheetFunction;
        var lst=Range("a99").End(xlUp).Row
                for (sss=4;sss<=lst;sss++){
                        try{
                            let at=Range("a"+sss).Value();
                            let nt=at.match(/(?=[A-z])[A-z0-9-一-龟]+(?=.费|\s|、)/gs);
                                   let mt=Range("a"+sss).Offset(0,2).Resize(1,nt.length).Value2=nt;
                        }catch(err){
                                break
                        }
                }
}

我的城市你来过

问题Q：指定打印机直接打印选择表?
举例1：指定打印机直接打印选择表?

/*function text(){
        var pr1136="HP LaserJet Professional M1136 MFP";
        for (var st of Sheets){
                 var sst=st.Name;
                 switch(String(sst)){
                        case "D":Worksheets.Item("D").PrintOut("pr1136");break
                        case "F":Worksheets.Item("F").PrintOut("pr1136");break
                        case "G":Worksheets.Item("G").PrintOut("pr1136");break
                        default:break
                }
        }
}*/

我的城市你来过

问题Q：表格颜色清除、2列数据和为0删除整行?
举例1：复制一份表格，进行问题Q操作?(会报错，要多运行几次)?

function textcopy(){
                var sss=Worksheets.Count;
                        if (sss<2){
                                var st=Sheets.Copy(null,Worksheets("数据原表"));
                                        Sheets(2).Name="修改";
                    }
                    
                var lst=Range("a999").End(xlUp).Row;
                var fst=WorksheetFunction
                        for (var nnn=2;nnn<=lst;nnn++){
                                try{
                                        Range(`e${nnn}:f${nnn}`).Interior.ColorIndex=xlColorIndexNone
                                            var sst=fst.Sum(Range(`e${nnn}:f${nnn}`).Value());
                                 if (sst==0){
                                         Range(`a${nnn}:f${nnn}`).Delete()
                                }
                                        }catch(err){break}
                                }
}