（VBA）动态使用嵌入式excel函数

Question

我正在尝试后处理数据。我也得到了有小时分和秒的专栏。使用VBA，我创建了一个循环来遍历for循环中的每一行。

For i = 2 To Max
Range("GE" & CStr(i + Offset)).Formula = "=TIME(AK & CStr(i + Offset);AL & CStr(i + Offset);AM & CStr(i + Offset))"
Next i

涉及运行时错误1004：应用程序定义或对象定义错误。

我们如何编辑它才能正常工作？

Answer 1

For i = 2 To Max
    Range("GE" & CStr(i + Offset)).Formula = "=TIME(AK" & CStr(i + Offset) & ",AL" & CStr(i + Offset) & ",AM" & CStr(i + Offset) & ")"
Next i

循环变量需要在您输入的字符串“外部”作为公式才能正确构建。

这会修复代码中的拼写错误，但您应该考虑专门为工作表设置范围。

我还将分号更改为逗号，因为这里的TIME函数在Excel中的工作方式如何，但如果您的设置不同，则可能需要还原它。