二つ文字列は「+」で繋げて、一つになります。
列AのA1~A5の文字列を検索条件として、列Bのなかで探し、見つけたら終了する。
'lとr定義します。lは数値のlong、rはrangeとして定義します。
dim l as long
dim r as range
dim l as long
dim r as range
'A1〜A5の範囲内のセル内
for each r in range("A1","A5")
if range("B":"B").find(r.value) is nothing then
range("C"+CStr(r.Row)).value = "false"
else
range("C"+CStr(r.Row)).value = "ture"
for each r in range("A1","A5")
if range("B":"B").find(r.value) is nothing then
range("C"+CStr(r.Row)).value = "false"
else
range("C"+CStr(r.Row)).value = "ture"
'見つけたので、Forループを終了する
Exit For
end if
next
end if
next
続く
No comments:
Post a Comment