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

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

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
上面才对，早上的没睡醒，写错了

你好，萌新，首先，你第4行不是对比，而是赋值，你等号改成==