質問: True MsgBox ("完了") End Sub ```
回答: アクティブシートのC列i行の値が春夏シートA2:F20000に存在しない場合、変数ShohinとstrColorそれぞれにエラー値が格納されます。 そのためいくつかの変数の中身を結合する時に、1つでもエラー値の変数があれば結合が不可となり処理が止まることになると思われます。 今回の場合、vloolup関数の結果がエラーとなり、そのエラーを変数ShohinとstrColorに格納することで最後の結合処理が失敗しています。 解決策としては、vlookup関数のエラーを無視するか、エラーがあった場合の処理を加えます。 1エラーを無視する場合: for文の前に "On Error Resume Next" を記載 これによりアクティブシートのC列i行の値で、春夏シートA2:F20000に存在しないものを認識しても処理が止まることはなくなります。 2エラーがあった場合の処理を用する場合: for文の前に "On Error GoTo エラー時の処理名" を記載し、 "End Sub" の直前に以下の記述を記載します。 '-------------------------- Exit Sub エラー時の処理名: エラー時の処理内容 '-------------------------- 参考:http://officetanaka.net/excel/vba/tips/tips104.htm