VBA怎么判断一列中不同行的值，并在对应列输出结果

Question

这个一直错误，不知道怎么改，报错在if一行。
想取H列每一行单元格的值，根据H列的值，在J列对应行取D列的值

Answer 1

a=Worksheets("sheet1").Range("H" & i).Value
c=Worksheets("sheet1").Range("H" & m).Value
Dim z as Integer
z=a-c
Do Until z== 1
m = m - 1
c=Worksheets("sheet1").Range("H" & m).Value
z=a-c
Loop
上面才对，早上的没睡醒，写错了