Question

如何在此代码中插入iferror函数？

For d = 2 To lastrowx2

Worksheets("Educational Service Report").Cells(d, 16).Value = Application.WorksheetFunction.VLookup( _
Worksheets("Educational Service Report").Cells(d, 15).Value, _
Worksheets("Educational Service Report").Range("X:Y"), 2, 0)

Next

如果出现错误，我只想要一个空值单元格（d，16）。

Answer 1

嵌套的应用程序功能可以为您完成以下工作：

For d = 2 To lastrowx2

Worksheets("Educational Service Report").Cells(d, 16).Value = Application.IfError( _
    Application.VLookup(Worksheets("Educational Service Report").Cells(d, 15).Value, _
    Worksheets("Educational Service Report").Range("X:Y"), 2, 0), "")

Next d

Answer 2

在带有Next的行之前添加：

If IsError(Worksheets("Educational Service Report").Cells(d, 16)) Then
    Worksheets("Educational Service Report").Cells(d, 16) = ""
End If

将Iferror函数添加到VBA

2 个答案: