[已解决]求助 用VBA 实现删除整行数据

zhangchin

怎么用VBA 语句实现附表中红色的行，条件是 A序号为空时。就删除整行，谢谢
1.rar (7.84 KB, 下载次数: 25)

2011-11-23 20:39 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

mxg825

2011-11-23 20:51

Sub hb()
Dim i%
For i = Sheet1.Range("A65536").End(xlUp).Row To 2 Step -1
    If Cells(i, 1) = "" Then
     Sheet1.Rows(i).Delete
    End If
Next i
End Sub

‘用倒循环

跳转到最佳答案楼层

mxg825

Sub hb()
Dim i%
For i = Sheet1.Range("A65536").End(xlUp).Row To 2 Step -1
    If Cells(i, 1) = "" Then
     Sheet1.Rows(i).Delete
    End If
Next i
End Sub

‘用倒循环

zhangchin

为什么我这样写excel老是死机呢，
Sub hb1()
Dim i As Integer
For i = 1 To 10 Step 1
    If Cells(i, 1) = "" Then
     Sheet1.Rows(i).Delete
    End If
Next i
End Sub