删除第一、二、三列位空的所有行（8000)行范围以内

代码如下：

Sub Macro1()Dim hang As Integer
For hang = 8000 To 1 Step -1If Sheet1.Cells(hang, 1) = "" And Sheet1.Cells(hang, 2) = "" And Sheet1.Cells(hang, 3) = "" ThenSheet1.Rows(hang).DeleteEnd If
Next hangEnd Sub

参考链接

Excel·VBA指定条件删除整行整列_vba 删除行-CSDN博客https://blog.csdn.net/hhhhh_51/article/details/123513999 

特此记录

anlog

2024年1月16日