Excel VBA:如何删去文本内容为空的几行?

发布网友 发布时间：2022-04-22 08:33

我来回答

共4个回答

热心网友 时间：2022-06-18 17:40

按 F5

点击 "点位条件"

选择 "空值"

鼠标右键单击, 选择删除, 整行.

　　如果一定要VBA的话:

Sub 删除()

    Sheet1.Columns("A:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub

热心网友 时间：2022-06-18 17:41

没有必要通过vba实现,你按照以下方式去做吧:
1、全选某一列（即点击列序号）
2、开始->查找和选择->转到->定位条件->空值,确定后即选中所有空行的单元格
3、在某个选中的单元格上右击，选择删除,在弹出的删除对话框中选择"整行",就可以删除所有空白行了

热心网友 时间：2022-06-18 17:41

没必要VBA啊，加一辅助列，1，2，3......3466，然后按A列排序（设数据在A列开始），删掉最后空的几行，再按回辅助列排序，即可以删掉空行和不改变原来的顺序

热心网友 时间：2022-06-18 17:42

以下函数可以删除表格中 所有列都没有数据的空行。
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