在excel vba中填写前10行的1,0

在AR列中 我必须填写从AR3到AR13的1 从AR14到最后一行为0。

---

有没有办法在vba中实现自动化？

最简单、最快速的解决方案，无需循环

LastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "AR").End(xlUp).Row
Range("AR3:AR13")=1
Range("AR14:AR" & LastRow )=0

Dim lRow尽可能长
将ws设置为Excel.Worksheet
设置ws=Application.ActiveSheet
lRow=3
你知道我们在这个问题上的立场吗？你收到你的答案了吗？
    Dim lRow As Long
    Dim ws As Excel.Worksheet

    Set ws = Application.ActiveSheet
    lRow = 3
    Do While lRow <= ws.UsedRange.Rows.count
        if lrow <= 13 then
            ws.Range("AR" & lrow).Value = 1
        Else
            ws.Range("AR" & lrow).Value = 0
        End if

        lRow = lRow + 1
        ws.Range("AR" & lRow).Activate
     Loop