作者:乔山办公网日期:
返回目录: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宏的定义,你删掉那个东西也可以阻止宏表的运行。