VBA錯誤對象不支持此對象或方法

-2

Sub addempty() 
    Dim i As Integer 
    Dim j As Integer 
    Dim x As Integer 

    For i = 3 To 300 
     x = 0 
     j = i - 1 
     If Cells(i, 2).Value = "FX" And Not IsEmpty(Cells(i - 1, 1).Value) Then 
      Do While Cells(j, 4).Value <> "" 
       x = Cells(j, 4).Value + x 
       j = j - 1 
      Loop 
     End If 
     Cells(i, 4).vlue = x 
    Next i 
End Sub

任何人都可以告訴我代碼有什麼問題，哪裏出錯？VBA錯誤對象不支持此對象或方法

來源

2017-01-23 OliverQueen

哪條線的錯誤？你有一個從底部三行錯字。 – SJR

我查過了 - 「vlue」錯字是這裏唯一的問題。 – Wujaszkun

@Wujaszkun - 我可以想象'j'可能會達到零？ – SJR