Sub tokkun_1() Dim hida Dim migi Dim mitsuketa For migi = 11 To 21 mitsuketa = False '-----(1) For hida = 4 To 29 If Range("a" & hida).Value = Range("e" & migi).Value Then Range("g" & migi).Value = "あり" mitsuketa = True Exit For
End If '------(P) If mitsuketa = True Then '------(2) Range("g" & migi).Value = "なし" End If Next hida Next migi End Sub '60分 '理由:フラグの付けてやってみました。(1)でtrueならどうなるか (2)の位置が(P)より上なのか下なのか いろいろやってみてようやくできたところです。
morimotoさんの投稿
(投稿ID: 4111)
[1]
シート「キャンペーン名簿1」で、右の表11行目から21行目までについて順番に調査する。
右の表の各行ごとに、E列のIDが左の表のA列に存在するかを調べ、存在しない場合は "なし"、
存在する場合は"あり"とG列に記入するマクロを作れ。
Sub tokkun_1()
Dim hida
Dim migi
Dim mitsuketa
For migi = 11 To 21
mitsuketa = False '-----(1)
For hida = 4 To 29
If Range("a" & hida).Value = Range("e" & migi).Value Then
Range("g" & migi).Value = "あり"
mitsuketa = True
Exit For
End If '------(P)
If mitsuketa = True Then '------(2)
Range("g" & migi).Value = "なし"
End If
Next hida
Next migi
End Sub
'60分
'理由:フラグの付けてやってみました。(1)でtrueならどうなるか (2)の位置が(P)より上なのか下なのか いろいろやってみてようやくできたところです。