vba - VBA 中的动态变量

Question

我有这个 VBA 脚本，但我不知道如何使粗体部分动态化，因此公式为 =StripAccent(C2), =StripAccent(C3) 对每个 i 依此类推。

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

我读到过双引号，但它在那里不起作用。

Answer 1

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

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

另一种是使用Cells(i,3)。

编辑:如果您使用此处的自定义函数 - Converting Special Characters into alphabet那么这样的东西也可以工作(但不是公式):

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