删除第一、二、三列位空的所有行(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 删除行-CSDN博客https://blog.csdn.net/hhhhh_51/article/details/123513999
特此记录
anlog文章来源:https://www.toymoban.com/news/detail-797123.html
2024年1月16日文章来源地址https://www.toymoban.com/news/detail-797123.html
到了这里,关于excel(vab)删除空行的文章就介绍完了。如果您还想了解更多内容,请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章,希望大家以后多多支持TOY模板网!