删除第一、二、三列位空的所有行(8000)行范围以内
代码如下:
Sub Macro1()
Dim hang As Integer
For hang = 8000 To 1 Step -1
If Sheet1.Cells(hang, 1) = "" And Sheet1.Cells(hang, 2) = "" And Sheet1.Cells(hang, 3) = "" Then
Sheet1.Rows(hang).Delete
End If
Next hang
End Sub
参考链接
Excel·VBA指定条件删除整行整列_vba 删除行-优快云博客
https://blog.youkuaiyun.com/hhhhh_51/article/details/123513999
特此记录
anlog
2024年1月16日
这篇文章详细描述了如何通过VBA在Excel中编写一个名为SubMacro1的宏,该宏用于删除第一、二、三列中所有空值的行。它遍历8000行数据,如果某一行的前三列都为空,则执行删除操作。
3389

被折叠的 条评论
为什么被折叠?



