VBA - 复制行 - 如果发现错误，则继续复制单元格

Question

我有一个宏，可以将单元格复制到下面的单元格。

Sub CopyRows2()

Dim LastRow As Long

With Worksheets("Ready to upload") ' <-- here should be the Sheet's name
    LastRow = .Cells(.Rows.Count, "AD").End(xlUp).Row ' last row in column C

For i = 2 To LastRow
If Range("AD" & i) > "" And Range("AD" & i + 1) = "" Then
    Range("AD" & i).Copy
    Range("AD" & i + 1).PasteSpecial xlPasteValues
    Application.CutCopyMode = False

Else

    End If
Next

End With

ActiveWindow.ScrollRow = 1 'scrolling the screen to the top

End Sub

它工作正常，直到找到#N/A，然后它会给我一个错误消息:运行时错误'13' - 类型不匹配。在这种情况下，我想跳过它，然后继续复制行。

[

您能告诉我该怎么做吗？

非常感谢!

Answer 1

选项 1

最简单的方法是在代码中嵌入On Error Resume Next。然后就可以工作了。

<小时/>

选项 2如果你想更专业一点，那么你可以使用这样的东西:

Sub CopyRows2()

    Dim LastRow As Long

    On Error Resume Next

    'your code

    If Err.Number = 13 Then Err.Clear
    On Error GoTo 0

End Sub

它会忽略错误13，但它会告诉你是否还有其他错误，这非常有用。

<小时/>

选项 3 检查是否存在如下错误:

If Not IsError(Range("AD" & i)) And Not IsError(Range("AD" & i + 1)) Then
    'embed the code here
End If