在用vba编写解决方案时,会经常遇到需要将空白行或者空白单元格删除的情况。
如下图所示
A列有一列数据,现在要把空白单元格删除或者空行删除。如果从上到下遍历删除的话,由于删除的单元格会导致后面的单元格的位置序号发生改变,容易导致程序错误。
这里介绍逆序删除法,即从下到上遍历,遇到空白单元格删除后不会影响上面的单元格的位置序号。
1 2 3 4 5 6 7 8 9 10 11 12 13 |
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 |
发表评论