如何判断一行单元格为空，都为空则删除整行。

2024-11-29 00:15:19

推荐回答（2个）

回答1：

使用counta()如果等于0，该函数为0，即说明此行为空，就删除。
Application.worksheetfunction.counta(rows(i))=0 then
rows(i).Delete
前面加上你的其他代码，即可完成删除空行。

回答2：

Dim i As Integer
i=1
If Rows(i).Find("*") Is Nothing Then
Rows(i).Delete Shift:=xlUp
End If

'如果第1行为空则删除第1行。