VBA删除Excel工作表空白单元格、行和列

还在手动挑选、删除Excel工作表中的空白单元格、行和列吗？VBA帮你快速搞定。

    Excel工作表中因数据修改、删除等原因，造成出现很多空白单元格，或空白行和列，即影响表格美观又影响单位数据的统计，如何快速查找空白单元格、或删除空白行和列。VBA代码，让所有工作简便快捷，分分钟搞定。

1、查找当前工作表内所有空白单元格，并将空白单元格底色涂上颜色,直观发现空白单元格。代码如下：

Function FindowsColsNo1()    '查找工作表中空白单元格

   On Error Resume Next      '代码出错时继续运行

   Selection.SpecialCells(xlCellTypeBlanks).Select '选定工作表空白单元格

    With Selection.Interior

        .Pattern = xlSolid

        .PatternColorIndex = xlAutomatic

        .Color = 65535        '空白单元格背影色变黄色

        .TintAndShade = 0

        .PatternTintAndShade = 0

    End With

End Function