[已解决]怎样用VBA删除excel表格中的B列内单元格为#VALUE的行？

wccloud

怎样用VBA删除excel表格中的B列内单元格为#VALUE的行？

最佳答案

月排行榜 / 总排行榜

zjdh

2012-11-7 16:32

若非要用VBA:
Sub test()
    For i = Cells(65536, 2).End(3).Row To 2 Step -1
        If IsError(Cells(i, 2)) Then Rows(i).Delete
    Next
End Sub

跳转到最佳答案楼层

zjdh

这也要用VBA吗？
用数据---自动筛选
筛选出#VALUE---删除即可

hwc2ycy

楼上正解啊。杀鸡何须用牛刀呢。
打蚊子也不用着大炮嘛。

zjdh

若非要用VBA:
Sub test()
    For i = Cells(65536, 2).End(3).Row To 2 Step -1
        If IsError(Cells(i, 2)) Then Rows(i).Delete
    Next
End Sub

rinyxa

学习了

hhl1984

Sub 删除()
Set rng = Range("a1:c10").SpecialCells(xlCellTypeConstants, xlErrors)
For Each rn In rng
    If IsError(rn) Then
        rn.EntireRow.Delete
    End If
Next rn
End Sub
奇怪，我这个怎么要执行两次才能删除完了

hoogle

hhl1984 发表于 2012-11-7 17:17
Sub 删除()
Set rng = Range("a1:c10").SpecialCells(xlCellTypeConstants, xlErrors)
For Each rn In rn ...

要像4楼那样倒着循环才行！

无聊的疯子

hhl1984 发表于 2012-11-7 17:17
Sub 删除()
Set rng = Range("a1:c10").SpecialCells(xlCellTypeConstants, xlErrors)
For Each rn In rn ...

直接一行就行了嘛！

1. 
   
2. Range("C:C").SpecialCells(2, 16).EntireRow.Delete
   

复制代码

wccloud

很好用，谢谢了！