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

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

2017年5月29日作者：水星Excel

1,881 次浏览暂无评论

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

如下图所示的单元格区域中存在空行和空列

要将上图中的空行或空列删除，如果按照顺序遍历删除（从上到下，从左到右），由于删除的行列会导致后面的行列位置序号发生改变，会导致代码出错。

这里介绍逆序删除法，即从下到上遍历或从右到左遍历，遇到空行或空列删除后不会影响其它未删除的行列的序号。

代码如下：

Sub QQ1722187970()
    Dim oWK As Worksheet
    Set oWK = Sheet1
    With oWK
        iRow = .Range("a65536").End(xlUp).Row
        iCol = .Cells(1, 256).End(xlToLeft).Column
        '逆序删除行
        For i = iRow To 1 Step -1
            If Excel.Application.WorksheetFunction.CountA(.Range("a" & i).EntireRow) = 0 Then
                .Range("a" & i).EntireRow.Delete
            End If
        Next i
         '逆序删除列
        For i = iCol To 1 Step -1
            If Excel.Application.WorksheetFunction.CountA(.Cells(1, i).EntireColumn) = 0 Then
               .Cells(1, i).EntireColumn.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

iCol = .Cells(1, 256).End(xlToLeft).Column

'逆序删除行

For i = iRow To 1 Step -1

If Excel.Application.WorksheetFunction.CountA(.Range("a" & i).EntireRow) = 0 Then

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

End If

Next i

'逆序删除列

For i = iCol To 1 Step -1

If Excel.Application.WorksheetFunction.CountA(.Cells(1, i).EntireColumn) = 0 Then

.Cells(1, i).EntireColumn.Delete

End If

Next i

End With

End Sub

其它相关文章推荐：

声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。

其它相关文章推荐：

发表评论取消回复

感谢你的支持，我将持续地写出更好的文章。

热门文章

最近文章

微信公众号

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

其它相关文章推荐：

发表评论 取消回复

感谢你的支持，我将持续地写出更好的文章。

热门文章

最近文章

微信公众号

发表评论取消回复