エクセルvbaの無限ループ処理の対処

Question

エクセルvbaで処理が無限ループします。
あるデータ表からfor文で上から順にvlookup関数で該当するデータを出力し、データが間違いor空欄の場合は次の行にスキップして繰り返す…という処理を作ろうとしたのですが、以下文だとマクロそのものが無限にループしてしまいます。
On error Resume Next文も試したのですが、そうすると今度はエラーになった行から次の処理を始めてしまい、思うように動きません。ご教示をお願いいたします。

■VBA
Sub aaa()

On Error GoTo Skip

For i = 5 To Sheets("Data").Range("D30").End(xlUp).Row

IF(～～vlookup文の処理～～) Then

'//trueかどうか表示させる
Sheets("Data").Range("H" & i) = "true"
' Sheets("Data").Range("H" & i) = "error"

End If

SuperSkip:
Next

Exit Sub

Skip:
Resume SuperSkip

End Sub

Comments

[meg_]

コードは「コードの挿入」で記入してください。

[hatena19]

どのようなエラーを想定しているのでしょうか。
また、エラーが出たときにどのようにしたいのでしょうか。
（エラーが出たら処理を終了するとか、セルにerrorと代入するとか、、、、）

あと、
On Error GoTo Skip をコメントアウトして実行してみて、
どのコードでどのようなエラーが出ているのか確認して、質問に追記してください。

Answer 1

Sub aaa()
    On Error Resume Next
    Dim tbl As Range
    Set tbl = Sheets("table").UsedRange
    Dim i, v
    For i = 5 To Sheets("Data").Range("D30").End(xlUp).Row
        v = WorksheetFunction.VLookup(Sheets("Data").Range("D" & i), tbl, 2, False)
        If Err.Number = 0 Then
            Sheets("Data").Range("H" & i) = v
        Else
            Err.Clear
        End If
        v = ""
    Next
End Sub

Sub bbb()
    Dim tbl As Range
    Set tbl = Sheets("table").UsedRange
    Dim i, d
    For i = 5 To Sheets("Data").Range("D30").End(xlUp).Row
        d = Sheets("Data").Range("D" & i)
        If WorksheetFunction.CountIf(tbl.Columns(1), d) > 0 Then
            Sheets("Data").Range("H" & i) = WorksheetFunction.VLookup(d, tbl, 2, False)
        End If
    Next
End Sub