返回目录:excel表格制作
Sub XXX()
For I = 2 To [A65536].End(xlUp)
If Cells(I, 3) & Cells(I, 4) & Cells(I, 5) = "" Then
Rows(I).Delete
I = I - 1
End If
Next
End Sub
进入7a64e78988e69d83339Excel后按Alt+F11进入VBE编辑器,单击插入菜单选择模块,然后将以下的代码Copy过去
Sub 空白隐藏()
Dim Fori As Long, Fory As Long, EndRow As Long
Application.ScreenUpdating = False
For Fori = 2 To 4
EndRow = Sheets(Fori).Range("A65536").End(xlUp).Row
For Fory = 7 To EndRow
If Sheets(Fori).Cells(Fory, "A") = 0 Then Sheets(Fori).Rows(Fory).EntireRow.Hidden = True
Next Fory
Next Fori
Application.ScreenUpdating = True
End Sub
Sub 取消隐藏()
Dim ForSh As Long
For ForSh = 2 To 4
Sheets(ForSh).Cells.EntireRow.Hidden = False
Next
End Sub
如下图
经过测试正常运行
望采纳,谢谢!
写宏处理,一键删除,数据量大的话效率很高的
1、打开要删除百空白行的文档。
2、Alt+F11打开VB编辑器,右键度新建一个模块。
3、新建模块后,输入知
Sub 删除空行()
Dim a
a = 1
Do While Cells(a, "a") <> ""
If Cells(a, "D") = "" Then
Rows(a).Select
Selection.Delete Shift:=xlUp
Else
a = a + 1
End If
Loop
End Sub。
4、输入代码后,在工具栏中找到开发工具—道—宏,回点击执行命令。
5、找到并执行删除空行的宏,然后点击执行。
6、运行完成后,就答可以把空白行删除了。