VBA已知数量及合计金额计算单价问题

kangkumbong

大家好！请教各位大神们，

VBA已知数量及合计金额计算单价问题


Option Explicit
Sub CalculateUnitPrice()
    Dim lastRow As Long
    Dim totalQuantity As Double
    Dim totalAmount As Double
    Dim unitPrice As Integer
    Dim i As Long
    '获取最后一行的行号
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
   
    '初始化总数量和总金额为0
    totalQuantity = 0
    totalAmount = 0
   
    '循环读取每一行的数量和金额并进行求和
    For i = 1 To lastRow
        totalQuantity = totalQuantity + Range("A" & i)
        totalAmount = totalAmount + Range("B" & i)
    Next i
   
    '计算单价
    unitPrice = totalAmount / totalQuantity
   
    '将结果输出到C列
    Range("C1").Value = unitPrice
End Sub

excel玉米