报错处理

6739912

............
Set C2 = CreateObject("scripting.dictionary")         
If arA(j2, 5) >= date1 And arA(j2, 5) <= date2 And arA(j2, 7) = ComboBox4 And arA(j2, 14) = "退桩" Then
              If c2.exists(sKey) Then k = c2(sKey) Else ReDim k(10)
              k(0) = arA(j2, 2)
              k(1) = arA(j2, 3)
              k(2) = arA(j2, 4)
              k(3) = arA(j2, 8)
              k(4) = k(4) + arA(j2, 13)
              k(5) = arA(j2, 9)
              k(6) = arA(j2, 10)
              k(7) = k(4) * k(5)
              k(8) = k(6) * k(7)
              k(9) = ComboBox4 & "退桩"
              c2(sKey) = k
End If
    Range("A2").Resize(c2.Count, 10) = Application.Rept(c2.items, 1)

...............
将符合条件的数据导入工作表，找到符合条件的数据时，运行正常
但没有找到符合条件的数据时会报错：不匹配
如何提示没有找到数据而不报错
On Error Resume Next   就行吗？

abc123281

建议上传附件   并说明详细要求

6739912

附件，请帮忙看看将符合条件的数据导入工作表，找到符合条件的数据时，运行正常
但没有找到符合条件的数据时会报错：不匹配
如何提示没有找到数据而不报错

要求
      如果没有找到数据，在C列显示结果为0   如：本附件中，查找赵3时，显示为0

6739912

己解决，加入条件判断即可