数式の結果からの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