エクセルVBAのIFとLikeについて
現在下記の様なコードを作成しましたが、ヒットする時と漏れが発生する時があります。原因がいくら悩んでも不明な為、コードの記載が変なのかもしれないと投稿しました。
初心者に毛が生えた位しか知識がないので、実際のコードを記載します。
'// 入力が含まれている最終行までをFor Eachで対象にする。
For Each Rr In .Range("A2:A" & .Cells(1000000, 1).End(xlUp).Row)
If Cells(Rr.Row, 2).Value Like "re:*" Or _
Cells(Rr.Row, 2).Value Like "Re:*" Or _
Cells(Rr.Row, 2).Value Like "RE:*" Or _
Cells(Rr.Row, 2).Value Like "fwd:*" Or _
Cells(Rr.Row, 2).Value Like "Fwd:*" Or _
Cells(Rr.Row, 2).Value Like "FWD:*" Or _
Cells(Rr.Row, 2).Value Like "*決定*" Or _
Cells(Rr.Row, 2).Value Like "*募集*" Then
※上記のElse以外の下記内容が含まれる場合は処理を実行って意味で記載してます。
ElseIf Cells(Rr.Row, 2).Value Like "*要員*" Or _
Cells(Rr.Row, 2).Value Like "*人材*" Or _
Cells(Rr.Row, 2).Value Like "*紹介*" Or _
Cells(Rr.Row, 2).Value Like "*事業主*" Or _
Cells(Rr.Row, 2).Value Like "*技術者*" Then
'// 対象アイテムの代入
Hizuke = .Cells(Rr.Row, 1)
Aite = .Cells(Rr.Row, 3)
kenmei = .Cells(Rr.Row, 2)
どうか宜しくお願い致します。
お礼
回答ありがとうございました。 良く分かりました。