VBA循環溢出

Question

我遇到了循環溢出的問題。這裏是我的代碼：

Private Sub DivideKPI() 
    Dim FRow As Long 
    Dim lrow As Long 
    Dim PRow As Long 

    Dim CurrentSheet As Worksheet 
    Set CurrentSheet = Excel.ActiveSheet 

    FRow = CurrentSheet.UsedRange.Cells(1).Row 
    lrow = CurrentSheet.UsedRange.Rows(CurrentSheet.UsedRange.Rows.count).Row 

    For PRow = lrow To 2 Step -1 
     CurrentSheet.Cells(PRow, "AO").Value = Round(((CurrentSheet.Cells(PRow, "AK").Value)/(CurrentSheet.Cells(PRow, "AM").Value)), 2) 
    Next PRow 
End Sub 

如果我把'PRow'手動代替循環，結果可以產生。但是我需要循環這個數據。如何做到這一點？我已經使用CLng，但也溢出。 謝謝！

*示例數據

AK   AM 
25.35  72 
224.92  24 

Answer 1

我不相信PRow可以是你的問題。嘗試：

For PRow = lrow To 2 Step -1 
     CurrentSheet.Cells(PRow, "AO").Value2 = Round(((CurrentSheet.Cells(PRow, "AK").Value2)/(CurrentSheet.Cells(PRow, "AM").Value2)), 2) 
    Next PRow