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

Question

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 

任何人都可以告訴我代碼有什麼問題，哪裏出錯？

Answer 1

你有一個語法錯誤的位置：

Cells(i, 4).vlue = x應該

Cells(i, 4).value = x