求助,使用宏，删除表格中空白行!

197732ZZY

求助,使用宏，删除表格中空白行!谢谢大师们！！！

spaghetti8

就一句话的事情:Range('a3:c105').Value2.reduceRight((_,v,i) => v.join("") == "" ? Rows(i+3).Delete() : 0, 0)

一江春水1688

代码参考如下：

1. function test(){
   
2.         let rng = Range('a3').CurrentRegion.Rows
   
3.         for(let i = rng.Count; i >= 1; i--){
   
4.                 let isNotNull = rng(i)().flat().some(x => Boolean(x))
   
5.                 if(!isNotNull) rng(i).Delete()
   
6.                
   
7.         }
   
8. }

复制代码

一江春水1688

spaghetti8 发表于 2024-12-1 11:14
就一句话的事情:Range('a3:c105').Value2.reduceRight((_,v,i) => v.join("") == "" ? Rows(i+3).Delete()  ...

厉害！
reduce、reduceRight用得炉火纯青。
老是不习惯使用reduce，看来得多找点事例练练手。

一江春水1688

一江春水1688 发表于 2024-12-1 11:34
代码参考如下：

1. function tt(){
   
2.         let rng = Range('a3').CurrentRegion.Rows
   
3.         rng().reduceRight((_,v,i) => (!v.join("")) && rng(i+1).Delete(),0)
   
4. }

复制代码

学习二楼代码，重写一个，虽然多一行代码，但好处是，不用管原始表格的右边界和下边界，由CurrentRegion自动确定。

lizhipei78

Range('A3:C105')().reduceRight((p,v,i)=>{!v[0] && !v[1] && !v[2] && Rows(i+3).Delete();},0)

lizhipei78

这种大数据的话，可能用数组方法重新赋值更加快，不需要频繁操作单元格

197732ZZY

spaghetti8 发表于 2024-12-1 11:14
就一句话的事情:Range('a3:c105').Value2.reduceRight((_,v,i) => v.join("") == "" ? Rows(i+3).Delete()  ...

谢谢，能不能，把做好附件发一下。

spaghetti8

5楼和6楼采用取反运算符"!"进行条件判断，是很有可能出错的

197732ZZY

谢谢大家回复，能不能，把做好附件发一下。