If InStr(1, Arr(j, 3), "SKA") > 0 Or InStr(1, Arr(j, 3), "SKB") > 0 Or InStr(1, Arr(j, 3), "SKC") > 0 or .....Then  MsgBox "OK"
  我的条件有很多，怎么实现简化？

If InStr(1, Plan(i, 1), Bom(j, 1), vbTextCompare) > 0 Then msgbox "ok" 

我用这样的方法判断的。