VBA删除 符合条件的行

329397900

Sub jju()
Dim rng As Range
For Each rng In Range("b1:b100")
If rng.Value = "" Then
rng.EntireRow.Clear
End If
Next rng
End Sub
我想从B1到B100 循环判断该单元格是否为空 如果是，就删除改行，继续下一个，代码出错，我是个菜单 希望能得到帮助

清风竹-

1. Sub jju()
   
2. Dim i
   
3. For i = 100 To 1 Step -1
   
4. If Cells(i, 2).Value = "" Then
   
5. Rows(i).Delete
   
6. End If
   
7. Next
   
8. End Sub

复制代码

zcjdkl

学习了，谢谢啦