投稿/コメントを表示します。

エクセルマクロ・VBA基礎編フォローアップ アドバンスド
VLookUp関数、Index関数、Match関数より便利なマクロ-該当する行が見つからない場合の処理をアレンジ

morimotoさんの投稿

(投稿ID: 4112)

[2]
'シート「キャンペーン名簿1」で、右の表11行目から21行目までについて順番に調査する。
右の表の各行ごとに､E列のIDが左の表のA列に存在するかを調べ､存在する場合は1, 2, 3, ... とH列に上から順に番号を割り振るマクロを作れ。
存在しない場合はH列には何も記入しない｡
Sub tokkun_2()
Dim hida
Dim migi
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("h" & migi).Value = bango　←追記
bango = bango + 1　←追記
mitsuketa = True
Exit For
End If
Next hida
Next migi
End Sub

7分：tokkun_1をcopyして追記加工した
2018/08/19 15:11