如何用vba删除空白单元格或空行？

2017年5月29日作者：exceloffice

暂无评论

在用vba编写解决方案时，会经常遇到需要将空白行或者空白单元格删除的情况。

如下图所示

A列有一列数据，现在要把空白单元格删除或者空行删除。如果从上到下遍历删除的话，由于删除的单元格会导致后面的单元格的位置序号发生改变，容易导致程序错误。

这里介绍逆序删除法，即从下到上遍历，遇到空白单元格删除后不会影响上面的单元格的位置序号。

Sub QQ1722187970()
    Dim oWK As Worksheet
    Set oWK = Sheet1
    With oWK
        iRow = .Range("a65536").End(xlUp).Row
        '逆序遍历
        For i = iRow To 2 Step -1
            If Len(.Cells(i, "a")) = 0 Then
                .Range("a" & i).EntireRow.Delete
            End If
        Next i
    End With
End Sub

Sub QQ1722187970()

Dim oWK As Worksheet

Set oWK = Sheet1

With oWK

iRow = .Range("a65536").End(xlUp).Row

'逆序遍历

For i = iRow To 2 Step -1

If Len(.Cells(i, "a")) = 0 Then

.Range("a" & i).EntireRow.Delete

End If

Next i

End With

End Sub

打赏

声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。http://www.exceloffice.net/archives/391

如何用vba删除空白单元格或空行？

发表评论取消回复

扫一扫下面的二维码图案，加我微信

近期文章

功能

如何用vba删除空白单元格或空行？

发表评论 取消回复

扫一扫下面的二维码图案，加我微信

关键字

近期文章

功能

发表评论取消回复