excel - VBA 代码显示错误 2042，原因不确定

Question

我有一个变量 fila，其中包含整行 Excel 值

问题是，当在 Excel 中我有 #N/A 时，VBA 会采用该值，如 Error 2042。

我无法将该值分配给 valor 并产生错误。直到此时一切都正常，现在我尝试定义一个 On Error Goto 来转到 For 循环中的下一个迭代，但我不 知道为什么 VBA 不处理错误。

Do While Not IsEmpty(ActiveCell)

    txt = ActiveCell.Value2
    cell = ActiveCell.Offset(0, 1).Value2       
    fila = Range("C20:F20")

    For j = 1 To UBound(fila, 2)
        On Error GoTo Siguiente
        If Not IsEmpty(fila(1, j)) Then            
            valor = fila(1, j)
            cmd = Cells(1, j + 2).Value2
            devolver = function1(cmd, txt, cell, valor)
            arrayDevolver(p) = devolver
            p = p + 1                
        End If
Siguiente:
    Next
Loop 

Answer 1

这不是 VBA 错误 - 因此错误处理不会捕获它。要检测此问题，请在写入数组之前使用 IsError

下面的简单代码处理此测试的错误 2042 问题

Sub Test()
    Dim varIn As Variant
    [a1].FormulaR1C1 = "=NA()"
    If IsError([a1].Value2) Then
        varIn = "skip record"
    Else
        varIn = [a1].Value2
    End If
End Sub