在整個行上劃分幾個值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」）。價值）