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

Question

如果可能，我想使用offset属性将结果放置在连续的行中。

第9行是我无法获取正确语法的地方。

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

第9行应显示为

Set startcell2 = startcell2.Offset(1, 0)

然后最好是在循环中读取记录