在整个行上划分几个值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

除非其需要第二参考细胞

之前添加的周期的错字

CDbl（.Cells（R “G”）。值/ 细胞（R， “F”）。价值）