我有这个 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/