excel(vab)删除空行

发布时间：2024年01月16日

删除第一、二、三列位空的所有行（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

2024年1月16日

文章来源:https://blog.csdn.net/anlog/article/details/135618216
本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如若内容造成侵权/违法违规/事实不符，请联系我的编程经验分享网邮箱：chenni525@qq.com进行投诉反馈，一经查实，立即删除！