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

spaghetti8

附件。。。。。

197732ZZY

spaghetti8 发表于 2024-12-1 18:24
附件。。。。。

太感谢了，谢谢！

yu3924

lizhipei78 发表于 2024-12-1 18:10
这种大数据的话，可能用数组方法重新赋值更加快，不需要频繁操作单元格

这个破坏格式，这样最好10000行也就一两秒，也是删除行但只操作一次。

lizhipei78

yu3924 发表于 2024-12-2 12:59
这个破坏格式，这样最好10000行也就一两秒，也是删除行但只操作一次。

Union 这个在VBA中是比较慢的一个函数，所以我从来不用，在VBA中它并不比一行一行删除快，特别是数据上到一定量的时候，可能还要比一行一行删除还要慢
但是在JSA中就不清楚了

一江春水1688

再练练手：

1. function 删除数据后重写表格(){//速度快，但会破坏原表格格式
   
2.     let rng = Range('a3').CurrentRegion;
   
3.     let arr = rng().filter(x => x.join(''))
   
4.     rng.ClearContents();
   
5.     rng.Resize(arr.length, arr[0].length).Value2 = arr;
   
6. }

复制代码

1. function 一次性删除(){//不破坏原表格格式
   
2.     let rng;
   
3.     [...Range('a3').CurrentRegion.Rows].forEach(r =>
   
4.             !r().flat().join("") && (rng = Union(r.EntireRow, rng ??= r.EntireRow))
   
5.     );
   
6.     rng.Delete();
   
7. }

复制代码

一江春水1688

一江春水1688 发表于 2024-12-3 11:43
再练练手：

第2段代码还可以更精炼些，都是从铭佬那学的技巧：
!r().flat().join("") && (rng = Union(i=r.EntireRow, rng ??= i))
好几行代码，浓缩到一行了

我的城市你来过

=GROUPBY(A3:C105,,,3,,,A3:A105<>"")

我的城市你来过

cjc209

lizhipei78 发表于 2024-12-1 18:10
这种大数据的话，可能用数组方法重新赋值更加快，不需要频繁操作单元格

你这种把原格式都破坏了 不建议 只是保留了值