总共3466行，有几行没有内容，想删掉这几行，求代码。
按 F5
点击 "点位条件"
选择 "空值"
鼠标右键单击, 选择删除, 整行.
如果一定要VBA的话:
Sub 删除()
Sheet1.Columns("A:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 推荐于2016-10-20
没有必要通过vba实现,你按照以下方式去做吧:
1、全选某一列（即点击列序号）
2、开始->查找和选择->转到->定位条件->空值,确定后即选中所有空行的单元格
3、在某个选中的单元格上右击，选择删除,在弹出的删除对话框中选择"整行",就可以删除所有空白行了
1、全选某一列（即点击列序号）
2、开始->查找和选择->转到->定位条件->空值,确定后即选中所有空行的单元格
3、在某个选中的单元格上右击，选择删除,在弹出的删除对话框中选择"整行",就可以删除所有空白行了
第2个回答 2013-01-18
没必要VBA啊，加一辅助列，1，2，3......3466，然后按A列排序（设数据在A列开始），删掉最后空的几行，再按回辅助列排序，即可以删掉空行和不改变原来的顺序
第3个回答 2013-01-18
以下函数可以删除表格中 所有列都没有数据的空行。
Private Function MyFunction()
Dim I As Long, J As Long, C As Long
C = UsedRange.Columns.Count
For I = UsedRange.Rows.Count To 1 Step -1
For J = 1 To C
DoEvents
If Trim(Cells(I, J).Value) <> "" Then Exit For
Next
If J > C Then Rows(I).Delete
Next
MsgBox "完成！"
End Function
Private Function MyFunction()
Dim I As Long, J As Long, C As Long
C = UsedRange.Columns.Count
For I = UsedRange.Rows.Count To 1 Step -1
For J = 1 To C
DoEvents
If Trim(Cells(I, J).Value) <> "" Then Exit For
Next
If J > C Then Rows(I).Delete
Next
MsgBox "完成！"
End Function
