[4]
シート「キャンペーン名簿1」で、右の表11行目から21行目までについて順番に調査する。
右の表の各行ごとに､E列のIDが左の表のA列に存在するかを調べ､存在しないもののリストをK列に作れ｡
ただし､リストの内容はIDだけでよい｡
Sub tokkun_4()
Dim hida
Dim migi
Dim tate
tate = 11
Dim bango
bango = 1
Dim mitsuketa

For migi = 11 To 21
mitsuketa = False
For hida = 4 To 29
If Range("a" & hida).Value = Range("e" & migi).Value Then
Range("k" & migi).Value = ""
mitsuketa = True
Exit For
End If
Next hida

If mitsuketa = False Then
Range("k" & tate).Value = Range("e" & migi).Value '←追記部分
tate = tate + 1 '←追記部分
End If
Next migi
End Sub
'5分　[3]のcodeの加工だけ。始めたい行番号をtateで定義し 次に表示させたいものを tate=tate+1で次の行にずらすだけ

2018/08/19 15:19