VBA删除行循环

debugcn 发表于 Dev

银河沉思者

我正在尝试从该行中的值为'＃N / A'的表中行

到目前为止，我的脚本是：

Sub remove_na()

Dim ws As Worksheet

Dim r As Variant
Dim i As Variant

Set ws = ThisWorkbook.ActiveSheet

r = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

For Each i In Range("A1:A" & r)
    If i = "#N/A" Then i.EntireRow.Delete
Next

End Sub

运行此命令时，我在IF语句上收到类型不匹配错误。我已经尝试解决这个问题已有很长时间了，无法解决。我尝试过使用WHILE循环以及FOR。发生了同样的问题。

正在处理的数据的一个示例是这样的数据列（几百条记录）：

#N/A    #N/A
#N/A    #N/A
#N/A    #N/A
#N/A    #N/A
#N/A    #N/A
#N/A    #N/A
#N/A    #N/A
456699.512  6523052.64
456699.512  6523052.64
456699.512  6523052.64
456699.512  6523052.64
456699.512  6523052.64

任何建议将不胜感激。

干杯

米哈尔·罗莎（Michal Rosa）

Sub remove_na()

Dim ws As Worksheet

Dim r As Integer
Dim i As Integer

Set ws = ThisWorkbook.ActiveSheet

r = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

For i = r To 1 Step -1
    If IsError(Cells(i, 1).Value) Then Rows(i).EntireRow.Delete
Next

End Sub

编辑以改善答案

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。