Question

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

Answer 1

用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

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