我有这个 VBA 脚本,但我不知道如何使粗体部分变得动态,以便每个 =StripAccent(C2) 的公式都是 =StripAccent(C3)i 等等。

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

另一种是使用 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

关于vba - VBA中的动态变量,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/45432933/

10-14 04:14