来自公式结果的Msgbox

Question

如果上面的公式返回错误或者选择中的单元格为空白但是尚未完成，我试图添加一个消息框。有什么想法吗？

 LastRow = Range("B" & Rows.Count).End(xlUp).Row
 Range("z2").Formula = "=VLOOKUP(A2,'Ship to'!$B:$C,2,0)"
 Range("z2").AutoFill Destination:=Range("z2:z" & LastRow)
 LastRow = Range("B" & Rows.Count).End(xlUp).Row

再次感谢您的帮助

菲尔

Answer 1

使用IsError method检查单元格公式是否返回错误：

For Each cell in Range("z2:z" & LastRow)

   If IsError(cell) then
      ' do what you need to do
   End If

Next cell