Excel VBA使用偏移量移至下一行

Question

I want to place results in successive rows using the offset property if possible.

Line 9 is where I am having trouble getting the correct syntax.

Set startcell2 = Worksheets("Duplicates").Cells(1, 1)

rs.Open "Select dmdrawno From webprddt1.drawmstrp Where dmdrawno = '" & dwgno & "'", oConn, adOpenKeyset, adLockOptimistic

If Not rs.EOF Then
    'addnewrecord = False
Else
    startcell2.Value = dwgno
    startcell2.Offset(1, 0)
    addnewrecord = False

End If

rs.Close
Set rs = Nothing

Answer 1

Line 9 should read

Set startcell2 = startcell2.Offset(1, 0)

and then preferably be in a loop where you read the records