这段代码的效率能提高么

wulai8377

找到一段删除空行的代码,根绝需求自己修改了一下,功能可以完全实现,就是效率有点低,请教能否有提高的方法
行数少还行,500行以上就比较慢了!


Sub 删除空行()

Dim rnArea As Range
Dim lnLastRow As Long, i As Long, j As Long

Application.ScreenUpdating = False

lnLastRow = Sheet15.Range("G3:W" & [A65536].End(3).Row).Rows.Count '指定区域的行数
Set rnArea = Sheet15.Range("G3:W" & [A65536].End(3).Row) '指定的区域

j = 0 '选择删除后剩余的选择部分的数据准备

For i = lnLastRow To 1 Step -1 '循环执行lnLastRow次

If Application.CountIf(rnArea.Rows(i), "0") = 16 Then '选定区域的行的非空单元格计数为0时,因为有公式用了一个条件判断

rnArea.Rows(i).EntireRow.Delete '删除所选区域空白行的整行

j = j + 1 '选择删除后剩余的选择部分的数据

End If

Next i

rnArea.Resize(lnLastRow - j).Select '选择删除后剩余的选择部分

Application.ScreenUpdating = True

End Sub

taller

tanglf188

aecn

taller 发表于 2023-2-17 00:39

老师这是啥编辑器啊？

wulai8377

谢谢两位老师,我试试

wulai8377

tanglf188 发表于 2023-2-17 10:29

老师,您这个没打到效果
因为都是公式计算的结果，计算结果很多是0,如果是0按空行算的
所以加了这句的判断
If Application.CountIf(rnArea.Rows(i), "0") = 16 Then '选定区域的行的非空单元格计数为0时,因为有公式用了一个条件判断

wulai8377

taller 发表于 2023-2-17 00:39

老师,代码出现这个提示

wulai8377

wulai8377 发表于 2023-2-17 14:41
老师,代码出现这个提示

不好意思,老师,少打了一个  S
这个代码效率比原来的快多了!

luikias

aecn 发表于 2023-2-17 13:39
老师这是啥编辑器啊？

下载一个主题就可自定义。

NieC

taller 发表于 2023-2-17 00:39

请问使用是什么版本的VBE