根据条件删除空行

pnwzj

表头到表尾中间的行数不固定，判断b列是否为空，如果为空则删除该行。
求vba方式实现。多谢。

lsc900707

按条件倒着循环就可以的。

orr89

Sub 删除空行()
b = [a60000].End(xlUp).Row - 2
Range("a5:a" & b).ClearContents
For a = b To 5 Step -1
If Cells(a, 2) = "" Then
Rows(a).Delete
End If
Next a
    c = [b60000].End(xlUp).Row
    [a5] = "1"
    For d = 6 To c
    Cells(d, 1) = Cells(d - 1, 1) + 1
    Next d
End Sub

wangil

单击美女                     

wangil

单击图片删除                 

窗台边

Public Sub 删除空行()
On Error Resume Next
Dim x, i As Integer
x = Range("a1048576").End(xlUp).Row - 2 - 4     '计算表内容行数
[b5].Resize(x, 1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete '选取并删除空行
For i = 1 To Range("a1048576").End(xlUp).Row - 2 - 4    'A列重新排序
    Cells(i + 4, 1) = i
Next i
End Sub