Select Case Trueで複雑条件判定  Sub test()  ’ Likeと組み合わせで複雑条件判定    Dim i As Long    Di···