对于Excel中的每个循环VBA仅需两次迭代即可完成

我写了一个很小的宏，如果下一列中的单元格为空，则应该在一系列单元格上运行VLOOKUP公式。

我的问题是，我运行了For Each循环并正常工作，但是在2次迭代之后，宏完成了。应该对每个单元进行检查。

Sub copyFormula()

Dim i As Long
Dim cell As Variant

i = 4

For Each cell In Sheets

cell = Range("B" & i)

    If Not (IsEmpty(cell)) Then
     Range("C" & i).FormulaR1C1 = "=VLOOKUP(RC[-2],Locations!C[-2]:C[-1],2,FALSE)"
     Else: Range("B" & i).Offset(1, 0).Activate
    End If
    
    i = i + 1
    
Next cell

End Sub

这是工作簿的样子：