是否将除法公式应用于Excel宏中的整列？

Sub DivideColumn()
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取最后一行的行号
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 循环应用除法公式
    For i = 1 To lastRow
        ' 使用相对引用，将当前行的值除以指定的数值
        Cells(i, 2).FormulaR1C1 = "=RC[-1]/2"
    Next i
End Sub