“在VBA中循环'for'逻辑错误来更新表？”

Question

显然在代码中没有拼写错误，不是构造问题，但是我没有获得所需的解决方案，即根据等效条件从另一张纸上粘贴一个值……有人可以发现我的逻辑缺陷吗？失踪了吗？

我已经尝试过“ Do While”，但是也没有成功，要么我错过了一个条件，要么无法发现缺陷。代码可以运行，但是不会在if语句找到的所需列中粘贴任何内容。

如果我不够清楚，请与我联系。

' Declaring the variables to update the metrics
Dim ceiling As Integer
nw = Sheet8.Range("A54")
ceiling = Sheet8.Cells(1, 54).Column
Start = 2
week = Sheet12.Cells(21, 54).Value

'Loop to paste values into the Column Week number desired

For i = 2 To ceiling
    If Sheet8.Cells(1, i) = week Then
        Sheet8.Cells(3, i).Value = Sheet12.Cells(25, 7).Value
    ElseIf Sheet8.Cells(1, i) <> week Then
        i = i + 1
    End If

Next i