そして最後の特訓問題です。
[7]
シート「キャンペーン名簿1」で、右の表11行目から21行目までについて順番に調査する。
右の表の各行ごとに､E列のIDが左の表のA列に存在するかを調べ､存在しない場合は以下を行うマクロを作れ｡
当該右の表のE列に記載されたIDをA列に追記する。
当該右の表のF列に記載された名前をB列に追記する。
Sub tokkun_7()
Dim hida
Dim migi
Dim atate
atate = 30
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("a" & atate).Value = ""
mitsuketa = True
Exit For
End If
Next hida

If mitsuketa = False Then
Range("a" & atate).Value = Range("e" & migi).Value
Range("c" & atate).Value = Range("f" & migi).Value '←追記部分
atate = atate + 1
End If
Next migi
End Sub

2分。右の表のF列の内容をC30以下に追記する

2018/08/19 15:26