Excel 2011 vba:如何循环列的行并将所有行乘以单个值？

Sub MultiplyRowsByValue()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim valueToMultiply As Double
    Dim i As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 设置要乘以的值
    valueToMultiply = 2
    
    ' 循环处理每一行
    For i = 1 To lastRow
        ' 将当前行的值乘以指定的值
        ws.Cells(i, "A").Value = ws.Cells(i, "A").Value * valueToMultiply
    Next i
End Sub