VBA中的动态变量

我有这个VBA脚本，但我不知道如何将粗体部分动态化，因此对于每个

I

，公式将是

=stripeaccent（C2）

，

=stripeaccent（C3）

，依此类推

For i = 2 To 10  
    Cells(i, 5) = "=StripAccent(Ci)"
Next i

---

我读过关于双引号的文章，但是没有用。

这是一个可能的解决方案：

Public Sub TestMe()
    Dim i    As Long
    For i = 2 To 10
        Cells(i, 5) = "=StripAccent(C" & i & ")"
    Next i
End Sub

另一种方法是使用

单元格（i，3）

编辑：如果您在此处使用自定义函数，那么类似的方法也可以工作（但不能作为公式）：

---

在您的情况下，不需要循环，您可以直接将

公式添加到整个范围，如下所示：

Range(Cells(2, 5), Cells(10, 5)).Formula = "=StripAccent(C2)"

或者，甚至是“清洁剂”：

@维蒂亚塔他在哪里提到他需要一个环？我认为他希望根据“E”列中的行号拖动fomrula在某种程度上似乎是合法的。
For i = 2 To 10  
    Cells(i, 5).Formula = "=StripAccent(C" & i & ")"
Next i

Range(Cells(2, 5), Cells(10, 5)).Formula = "=StripAccent(C2)"

Range("E2:E10").Formula = "=StripAccent(C2)"