有一种运行宏的办法,自动删除空行:代" />
乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 如何删除<em>excel</em>删不尽的空行-microsoft excel 4.0宏,mi

如何删除<em>excel</em>删不尽的空行-microsoft excel 4.0宏,mi

作者:乔山办公网日期:

返回目录:excel表格制作


插入-定义-名称,将调用了宏表函数的名称删除即可。

有一种运行宏的办法,自动删除空行:

代码:

Sub 去掉表空行()
Dim i As Long
    i = 2
    Do While i <= Range("a65536").End(xlUp).Row
        If WorksheetFunction.CountA(Rows(i)) = 0 Then
        Rows(i).EntireRow.Delete
        i = i - 1
        GoTo l1
        End If
        
        If Left(Cells(i, 1), 1) = " " Then
        Rows(i).EntireRow.Delete
        i = i - 1
        GoTo l1
        End If
        
l1: i = i + 1
    Loop
    Cells.Select
    Cells.EntireRow.AutoFit
    Cells.EntireColumn.AutoFit
End Sub

这个能去除某e799bee5baa6e78988e69d83362一行啥都没有,或者有空格的行。

有一个弊端,就是第一行如果是空行的话,不会删除的。这是我为了打印资料不浪费纸做的。如果对你有帮助,请采纳。


方法1.新建一个EXCEL文档,把数据都移到新表里去
方法2.按ALT+F11,在左上的窗口,把模块移除,一个个双击SHEET,看到右边有代码的,就把代码删除

4.0宏不是写在模块里面。。是写在宏表里面的,你把隐藏的宏表删除就可以了。。。
宏表要运行,在他的插入,名称,定义里面一定有一个指向4.0宏的定义,你删掉那个东西也可以阻止宏表的运行。

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网