エクセル VBA 別ファイルから抽出した２つの値を結合して表示

Question

初心者です、教えてください。
同一フォルダに別ファイル①.xlsmの春夏シートがありまして、
春夏シートのＡ列とアクティブシートのＣ列に一致した値がある場合、
１．春夏シートのＥ列をアクティブシートのＦ列へ
２．春夏シートのＤとＦ列を結合してアクティブシートのＥ列へ

という処理をしたいのですが、
１は問題なく動くのですが、２がうまくいかず、
「型が一致しません」と出ます。（下記コードでエラー）
ThisWorkbook.Worksheets("Sheet1").Range("E" & I).value = Shohin & strColor ⇐黄色

Option Explicit

Sub Sample()
  Application.ScreenUpdating = False
  Dim I As Long
  Dim xlBook As Workbook
  Dim data As String
  Dim Shohin
  Dim strColor
  
  Set xlBook = Workbooks.Open(fileName:=ThisWorkbook.Path & "\①.xlsm")  
  For I = 5 To 20000
  'サイズを抽出してＦ列へ
  ThisWorkbook.Worksheets("Sheet1").Range("F" & I).value = Application.VLookup(ThisWorkbook.Worksheets("Sheet1").Range("C" & I).value, xlBook.Worksheets("春夏").Range("A2:F20000"), 5, False)
  
  '商品＋カラー抽出して結合してＥ列へ
  Shohin = Application.VLookup(ThisWorkbook.Worksheets("Sheet1").Range("C" & I).value, xlBook.Worksheets("春夏").Range("A2:F20000"), 4, False)
  strColor = Application.VLookup(ThisWorkbook.Worksheets("Sheet1").Range("C" & I).value, xlBook.Worksheets("春夏").Range("A2:F20000"), 6, False)

  ThisWorkbook.Worksheets("Sheet1").Range("E" & I).value = Shohin & strColor
  Next

  xlBook.Close
  'Application.ScreenUpdating = True
  MsgBox ("完了")
End Sub

Answer 1

アクティブシートのC列i行の値が春夏シートA2:F20000に存在しない場合、変数ShohinとstrColorそれぞれにエラー値が格納されます。
そのためいくつかの変数の中身を結合する時に、1つでもエラー値の変数があれば結合が不可となり処理が止まることになると思われます。

今回の場合、vloolup関数の結果がエラーとなり、そのエラーを変数ShohinとstrColorに格納することで最後の結合処理が失敗しています。
解決策としては、vlookup関数のエラーを無視するか、エラーがあった場合の処理を加えます。

①エラーを無視する場合：
for文の前に "On Error Resume Next" を記載

これによりアクティブシートのC列i行の値で、春夏シートA2:F20000に存在しないものを認識しても処理が止まることはなくなります。

②エラーがあった場合の処理を用する場合：
for文の前に "On Error GoTo エラー時の処理名" を記載し、
"End Sub" の直前に以下の記述を記載します。
'--------------------------
Exit Sub
エラー時の処理名:
エラー時の処理内容
'--------------------------

参考：http://officetanaka.net/excel/vba/tips/tips104.htm

Comments

[marutoki]

丁寧にご説明までいただきありがとうございます。
とりあえず、
On Error Resume Next
で思った通りの動きになりました！(´；ω；`)ｳｩｩ
ただ、確かこれは最後の砦的な使い方だったとおもうので、
エラー時の処理をきちんと書けるよう勉強したいと思います。