对整行VBA Excel除以多个值

Question

我在VBA中编写了一个函数，用于计算销售订单的预定义汇率。但是，我忘记将计算出的数量除以商品数量。我使用了一个CDbl函数来选择值行，并除以它对应的项目数量。当只有一行而不是多行时，它是有效的吗？

谁能提供一个解决方案，代码如下，谢谢！只是为了澄清- Range("V/U/W19")是定义了汇率的区域。

With Sheets("Paste Orders Here")
    lr = .Cells(.Rows.Count, "L").End(xlUp).Row
    For r = 2 To lr
        Select Case UCase(.Cells(r, "K").Value)
            Case "USD"
                Sheets("Brightpearl").Cells(r, "G") = _
                  CDbl(.Cells(r, "L").Value * Sheets("Configuration").Range("V19").Value)
            Case "EUR"
                Sheets("Brightpearl").Cells(r, "G") = _
                  CDbl(.Cells(r, "L").Value * Sheets("Configuration").Range("U19").Value)
            Case "GBP"
                Sheets("Brightpearl").Cells(r, "G") = _
                  CDbl(.Cells(r, "L").Value * Sheets("Configuration").Range("W19").Value)
        End Select
    Next r
End With

With Sheets("Brightpearl")
    lr = .Cells(.Rows.Count, "G").End(xlUp).Row
    For r = 2 To lr
        Sheets("Brightpearl").Cells(r, "G") = _
            CDbl(.Cells(r, "G").Value / Cells(r, "F").Value)
    Next r
End With

Answer 1

除非是拼写错误，否则需要在第二次引用单元格之前添加句点

CDbl(.Cells(r，"G").Value / Cells(r，"F").Value)