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

Question

在 AR 列中
我要从 AR3 到 AR13 填 1
和 0 从 AR14 到最后一行。
有没有办法在vba中自动化它？

Answer 1

    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