根据整行分割多个值VBA Excel

Question

我在VBA中编写了一个函数，用于计算销售订单的预定义汇率。但是我忘了把计算的金额除以项目数量。我使用了一个CDbl函数来选择值行，并将其除以相应的项目数量。只有一行时有效，但多行时无效？

任何人都能提供解决方案吗，代码在下面，谢谢！只是澄清一下-范围（"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

除非是打字错误，否则您需要在第二次引用Cells 之前添加一个句点

CDbl（.Cells（r，"G"）.Value单元格（r，"F"）.Value）