如何判断Excel中的一整行是否为空,并删除

如题所述

用vba可以实现。例如有表格如图:

第一步:点击开发工具-visual basic。如图:


第二步:在当前工作表中写入代码如下:

Sub 删除空行()
Dim bj As Boolean '判断一行中是否都是为空
For i = 15 To 1 Step -1
bj = False '默认为假,如果有非空则为真
For Each mycell In Rows(i).Cells '遍历当前行的单元格
If mycell.Text <> "" Then '当前单元格是否为空
bj = True '如果不为空,则标记赋值为真 退出改行的检查
Exit For
End If
Next mycell
If Not bj Then Rows(i).Delete '如果改行全部为空,则删除该行
Next i
End Sub

第三步:运行宏。结果如图:

温馨提示:答案为网友推荐,仅供参考

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网