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

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

受講生さんの投稿

(投稿ID: 3505)

マクロに苦手意識があってなかなか勉強が続きませんでしたが、
おかげさまで何とかここまで来られました。

今回は、一度、流して講義を聞いてみて、その後自分で書いてみました。

すると、mistake = False　の位置が間違えていたため、「46」と「33」
が枠外に書かれませんでした。

こういう間違いをするということは、どの辺の理解が足りないのでしょうか？
よろしくお願いいたします。
Sub renshu()
Dim hida
Dim migi
Dim mistake
Dim tenkisaki

tenkisaki = 30
mistake = False　←　ここに入れてしまった

For migi = 11 To 21
　　　　　　　　　　←　本来はここ
For hida = 4 To 29
If Range("a" & hida) = Range("e" & migi) Then
    Range("c" & hida) = Range("f" & migi)
    mistake = True
End If

Next
If mistake = False Then
    Range("a" & tenkisaki) = Range("e" & migi)
     Range("c" & tenkisaki) = Range("f" & migi)
     tenkisaki = tenkisaki + 1
     End If
Next
end sub

2017/10/13 08:59